版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p><b> 需求分析</b></p><p> 隨著企業(yè)人員數(shù)量增加,企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。隨著我國(guó)國(guó)民經(jīng)濟(jì)建設(shè)的蓬勃發(fā)展和具有中國(guó)特色的社會(huì)主義市場(chǎng)經(jīng)濟(jì)體制的迅速完善,各個(gè)行業(yè)都在積極使用現(xiàn)代化的手段,不斷改善服務(wù)質(zhì)量,提高工作效率,這些都在很大程度上給企業(yè)提出越來(lái)越嚴(yán)峻的挑戰(zhàn),對(duì)企業(yè)體系無(wú)論是在行政職能、企業(yè)管理水平以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。建設(shè)一
2、個(gè)科學(xué)高效的信息管理系統(tǒng)是解決這一問(wèn)題的必由之路。企業(yè)內(nèi)部財(cái)務(wù)管理是該企業(yè)運(yùn)用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟(jì)效益的主要因素之一。工資管理作為企業(yè)內(nèi)部的一種財(cái)務(wù)管理也是如此,由于企業(yè)職工人數(shù)較多,每一位職工的具體實(shí)際情況也不盡相同,各項(xiàng)工資條款的發(fā)放,如果沒(méi)有一個(gè)完整的管理系統(tǒng)對(duì)企業(yè)和員工的工作都帶來(lái)許多的不便?;谝陨显?,企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì),實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。</p>
3、<p><b> 二、程序的主要功能</b></p><p><b> 1、創(chuàng)建功能:</b></p><p> 添加一個(gè)職員的基本信息,包括員工編號(hào),姓名,基本工資。</p><p><b> 2、刪除功能:</b></p><p> 能夠?qū)σ粋€(gè)職員的工資
4、信息進(jìn)行刪除按員工編號(hào)進(jìn)行刪除。</p><p><b> 3、添加功能:</b></p><p> 能夠添加新員工的信息。</p><p><b> 4、插入功能:</b></p><p> 能夠插入員工的基本信息,包括員工編號(hào),姓名等。</p><p><b
5、> 5、修改功能:</b></p><p> 輸入要修改的員工編號(hào)后可以對(duì)員工的基本信息進(jìn)行修改。</p><p><b> 6、查找功能:</b></p><p> 可以通過(guò)員工編號(hào)或者員工姓名進(jìn)行查找。</p><p><b> 三、程序運(yùn)行平臺(tái)</b></p&
6、gt;<p> SQL Server 2005 簡(jiǎn)介:</p><p> SQL Server 2005 是一個(gè)全面的數(shù)據(jù)庫(kù)平臺(tái),使用集成的商業(yè)智能 (BI) 工具提供了企業(yè)級(jí)的數(shù)據(jù)管理。SQL Server 2005 數(shù)據(jù)庫(kù)引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲(chǔ)功能,使您可以構(gòu)建和管理用于業(yè)務(wù)的高可用和高性能的數(shù)據(jù)應(yīng)用程序。</p><p><b&g
7、t; VB6.0簡(jiǎn)介:</b></p><p> Visual Basic(VB)是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō),VB都是世界上使用人數(shù)最多的語(yǔ)言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶界面(GUI)和快速應(yīng)用程序開發(fā)(RAD)系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù),或者輕松的創(chuàng)建Ac
8、tiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。</p><p><b> 系統(tǒng)總框架圖</b></p><p><b> 系統(tǒng)各功能模塊設(shè)置</b></p><p><b> 1.用戶管理模塊:</b></p><p> 用戶登錄時(shí)有權(quán)限的設(shè)定
9、。查看或者修改系統(tǒng)只有總經(jīng)理或者副經(jīng)理才有權(quán)限,而個(gè)人用戶只能查看關(guān)于個(gè)人信息、工資等內(nèi)容,無(wú)權(quán)修改其它信息。</p><p> 圖5.1用戶管理模塊</p><p><b> 查看信息模塊:</b></p><p> 該模塊主要是為了方便管理員查看數(shù)據(jù)庫(kù)中的各項(xiàng)信息。一個(gè)好的系統(tǒng)需要強(qiáng)大的后臺(tái)數(shù)據(jù)庫(kù)做支持。當(dāng)管理員對(duì)某個(gè)信息進(jìn)行修改、增
10、加、刪除等操作時(shí),數(shù)據(jù)庫(kù)中的信息必須同時(shí)得到更新,這樣才能保證系統(tǒng)的正常運(yùn)行。</p><p> “查看員工信息表”就是查看所有員工的信息,包括姓名,性別,部門等信息。</p><p> “查看員工工資表”就是查看每個(gè)員工的月工資。</p><p> 圖5.2查看信息模塊</p><p> 3.員工信息修改模塊:</p>
11、<p> 該模塊主要用于員工信息的及時(shí)更新。包括對(duì)員工信息的修改,增加與刪除。當(dāng)有新員工加入或者有員工離職時(shí),都要對(duì)該員工信息進(jìn)行增加和刪除。</p><p> “員工信息修改”就是對(duì)某個(gè)員工的某些信息進(jìn)行修改,保持最新狀態(tài)。</p><p> “員工信息增加”就是增加某個(gè)新員工的信息,以確保數(shù)據(jù)庫(kù)的完整性。</p><p> “員工信息刪除”就
12、是刪除某個(gè)已經(jīng)離職員工的信息,確保數(shù)據(jù)庫(kù)中沒(méi)有占用空 間的多余信息。</p><p> 圖5.3員工信息修改模塊</p><p><b> 工資查詢模塊:</b></p><p> 該模塊負(fù)責(zé)工資的查詢。按職工號(hào)查詢,則判斷職工號(hào)是否出錯(cuò),出錯(cuò)則顯示出錯(cuò)信息。由于時(shí)間有限,在數(shù)據(jù)庫(kù)中只有11和12月兩個(gè)月的
13、工資,所以只能查詢這兩個(gè)月的,若超出這兩個(gè)月則會(huì)有出錯(cuò)提示。</p><p> 圖5.4工資查詢模塊</p><p><b> 系統(tǒng)維護(hù)模塊:</b></p><p> 系統(tǒng)在使用的過(guò)程中,由于使用不善,避免不了會(huì)出現(xiàn)一些問(wèn)題。從而導(dǎo)致系統(tǒng)數(shù)據(jù)丟失,損壞,對(duì)企業(yè)是很不利的。因此,在日常的使用過(guò)程中,我們需要對(duì)系統(tǒng)進(jìn)行維護(hù),以保證即使出錯(cuò)也
14、不會(huì)有問(wèn)題。</p><p> 圖5.5系統(tǒng)維護(hù)模塊</p><p><b> 數(shù)據(jù)庫(kù)的設(shè)計(jì)</b></p><p> 本系統(tǒng)的數(shù)據(jù)庫(kù)是SQL數(shù)據(jù)庫(kù),在SQL環(huán)境下創(chuàng)建數(shù)據(jù)庫(kù)工資.mdb文件。該數(shù)據(jù)庫(kù)包括員工信息表、工資標(biāo)準(zhǔn)表、用戶表用于紀(jì)錄員工的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示:</p><p><b>
15、 員工信息表</b></p><p><b> 工資標(biāo)準(zhǔn)表</b></p><p><b> 用戶表</b></p><p><b> 實(shí)體E-R圖:</b></p><p><b> 部 門屬于</b></p>&
16、lt;p> 員工 具有 工資結(jié)構(gòu)</p><p><b> 崗位級(jí)別具有</b></p><p><b> 工資條具有</b></p><p><b> 測(cè)試分析結(jié)果</b></p><p><b> 登錄界面:</b&
17、gt;</p><p><b> 主程序界面:</b></p><p><b> 工資查詢界面:</b></p><p><b> 4.成員管理界面:</b></p><p><b> 數(shù)據(jù)管理界面:</b></p><p>
18、;<b> 存在的缺點(diǎn)與不足</b></p><p> 由于知識(shí)淺薄,經(jīng)驗(yàn)不足及閱歷頗淺,因此,在該系統(tǒng)的設(shè)計(jì)方面還有很多不足,比如功能過(guò)少,界面不醒目等問(wèn)題。缺點(diǎn)是在在數(shù)據(jù)管理界面中沒(méi)有實(shí)現(xiàn)了數(shù)據(jù)的還原,我會(huì)在下一階段的學(xué)習(xí)過(guò)程中,根據(jù)具體要求不斷的修改、完善,爭(zhēng)取使系統(tǒng)慢慢趨于完美。</p><p><b> 程序源代碼</b><
19、/p><p><b> 1.登錄窗口</b></p><p> Dim conn As New ADODB.Connection</p><p> Dim rs As New ADODB.Recordset</p><p> Private Sub Command1_Click()</p><p&
20、gt; Dim SQL As String</p><p> If Text1.Text = "" Then</p><p> MsgBox "請(qǐng)輸入口令!", 16</p><p> Text1.SetFocus</p><p><b> Exit Sub</b><
21、;/p><p><b> End If</b></p><p> If Combo1.Text = "" Then</p><p> MsgBox "請(qǐng)選擇登錄用戶!", 16</p><p> Combo1.SetFocus</p><p><b
22、> Exit Sub</b></p><p><b> End If</b></p><p> SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 口令='" & Text1.Text &
23、amp; "' "</p><p> rs.Open SQL, conn, 1, 3</p><p> If rs.RecordCount > 0 Then</p><p> MsgBox "登錄成功!", 64, "提示"</p><p><b>
24、rs.Close</b></p><p> zhchx.Show '想要打開的主窗體</p><p><b> delu.Hide</b></p><p><b> Else</b></p><p> MsgBox "口令不對(duì),請(qǐng)重新輸入!",
25、 16, "提示"</p><p><b> rs.Close</b></p><p> Text1.SetFocus</p><p><b> End If</b></p><p><b> End Sub</b></p><p
26、> Private Sub Command2_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> conn.ConnectionSt
27、ring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"</p><p><b> conn.Open</b></p><p><b> End Sub</b></p
28、><p><b> 主程序</b></p><p> Private Sub Command1_Click()</p><p> gzchx.Show</p><p><b> Unload Me</b></p><p><b> End Sub</b&
29、gt;</p><p> Private Sub Command2_Click()</p><p><b> cygl.Show</b></p><p><b> Unload Me</b></p><p><b> End Sub</b></p><
30、;p> Private Sub Command3_Click()</p><p><b> sjcx.Show</b></p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Su
31、b Command4_Click()</p><p><b> delu.Show</b></p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p><b> 工資查詢</b></
32、p><p> Dim conn As New ADODB.Connection</p><p> Dim rs As New ADODB.Recordset</p><p> Private Sub Command1_Click()</p><p> If rs.State = 1 Then</p><p><
33、;b> rs.Close</b></p><p><b> End If</b></p><p> If Text1.Text = "" Or Text2.Text = "" Then</p><p> MsgBox "編號(hào),姓名均不能為空,請(qǐng)重新輸入!",
34、16, "提示"</p><p> Text1.SetFocus</p><p><b> Exit Sub</b></p><p><b> Else</b></p><p> SQL = "SELECT * FROM 工資表 WHERE 員工編號(hào)='
35、" & Text1.Text & "' AND 月份='" & Text2.Text & "' "</p><p> rs.Open SQL, conn, 1, 1</p><p> If rs.RecordCount > 0 Then</p><p>
36、; DataGrid1.AllowAddNew = False</p><p> DataGrid1.AllowDelete = False</p><p> DataGrid1.AllowUpdate = False</p><p> Set DataGrid1.DataSource = rs</p><p><b>
37、Exit Sub</b></p><p><b> Else</b></p><p> MsgBox "輸入有誤,請(qǐng)重新輸入!", 16, "提示"</p><p><b> rs.Close</b></p><p><b> E
38、nd If</b></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> conn.Close</p><p> z
39、hchx.Show</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> If rs.State = 1 Then</p><p
40、><b> rs.Close</b></p><p><b> End If</b></p><p> If Text1.Text = "" Or Text2.Text = "" Then</p><p> MsgBox "編號(hào),月份均不能為空,請(qǐng)重新輸入!&
41、quot;, 16, "提示"</p><p> Text1.SetFocus</p><p><b> Else</b></p><p> SQL = "SELECT * FROM 工資表 "</p><p> rs.Open SQL, conn, 1, 3</p&
42、gt;<p> Do Until rs.EOF</p><p> If Text1.Text = rs("員工編號(hào)") And Text2.Text = rs("月份") Then</p><p> rs.MoveNext</p><p> DataGrid1.AllowAddNew = False<
43、;/p><p> DataGrid1.AllowDelete = False</p><p> DataGrid1.AllowUpdate = False</p><p> Set DataGrid1.DataSource = rs</p><p><b> Exit Sub</b></p><p
44、><b> Else</b></p><p> rs.MoveNext</p><p><b> End If</b></p><p><b> Loop</b></p><p><b> End If</b></p><
45、;p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalo
46、g=gongzi"</p><p><b> conn.Open</b></p><p><b> End Sub</b></p><p><b> 成員管理</b></p><p> Dim conn As New ADODB.Connection</
47、p><p> Dim rs As New ADODB.Recordset</p><p> Private Sub Command1_Click()</p><p> If rs.State = 1 Then</p><p><b> rs.Close</b></p><p><b>
48、; End If</b></p><p> SQL = "SELECT 職務(wù) FROM 員工信息表 where 員工編號(hào)= '" & delu.Combo1.Text & "'"</p><p> rs.Open SQL, conn, 1, 3</p><p> If rs(
49、"職務(wù)") <> "總經(jīng)理" And rs("職務(wù)") <> "副經(jīng)理" Then</p><p> MsgBox "您沒(méi)有此權(quán)限", 64, "信息提示"</p><p><b> rs.Close</b></p&
50、gt;<p><b> Else</b></p><p><b> rs.Close</b></p><p> conn.Close</p><p><b> cyxg.Show</b></p><p><b> Unload Me</b
51、></p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> conn.Close</p><p> zhchx.Show&l
52、t;/p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> If rs.State = 1 Then</p><p><b&g
53、t; rs.Close</b></p><p><b> End If</b></p><p> If Text1.Text = "" Then</p><p> MsgBox "編號(hào)不能為空,請(qǐng)重新輸入!", 16, "提示"</p><p&g
54、t; Text1.SetFocus</p><p><b> End If</b></p><p> SQL = "SELECT * FROM 員工信息表 where 員工編號(hào)= '" & Text1.Text & "'"</p><p> rs.Open SQL,
55、 conn, 1, 3</p><p> If rs.RecordCount <= 0 Then</p><p> MsgBox "該成員不存在,請(qǐng)重新輸入!", 16, "提示"</p><p> Text1.SetFocus</p><p><b> Else</b&g
56、t;</p><p> Text2.Text = rs("姓名")</p><p> Text3.Text = rs("性別")</p><p> Text4.Text = rs("職務(wù)")</p><p><b> rs.Close</b></p
57、><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated
58、 Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"</p><p><b> conn.Open</b></p><p><b> End Sub</b></p><p><b> 成員修改</b><
59、;/p><p> Dim conn As New ADODB.Connection</p><p> Dim rs As New ADODB.Recordset</p><p> Dim rs1 As New ADODB.Recordset</p><p> Dim rs2 As New ADODB.Recordset</p>
60、<p> Private Sub Command1_Click()</p><p> conn.Close</p><p><b> cygl.Show</b></p><p><b> Unload Me</b></p><p><b> End Sub</
61、b></p><p> Private Sub Command2_Click()</p><p> If rs.State = 1 Then</p><p><b> rs.Close</b></p><p><b> End If</b></p><p>
62、If Text1.Text = "" Then</p><p> MsgBox "編號(hào)不能為空,請(qǐng)重新輸入!", 16, "提示"</p><p> Text1.SetFocus</p><p><b> End If</b></p><p> SQL
63、= "SELECT * FROM 員工信息表 where 員工編號(hào)= '" & Text1.Text & "' AND 姓名='" & Text2.Text & "' AND 性別='" & Combo1.Text & "' AND 職務(wù)='" &
64、; Text4.Text & "' "</p><p> rs.Open SQL, conn, 1, 3</p><p> If rs.RecordCount <= 0 Then</p><p> MsgBox "所刪信息有誤,請(qǐng)重新輸入!", 16, "提示"</p>
65、;<p> Text1.SetFocus</p><p><b> Else</b></p><p><b> rs.Delete</b></p><p> SQL2 = "SELECT * FROM 工資表 where 員工編號(hào)= '" & Text1.Text
66、& "'"</p><p> rs2.Open SQL2, conn, 1, 3</p><p> If rs2.RecordCount > 0 Then</p><p> rs2.Delete</p><p><b> rs2.Close</b></p>
67、<p><b> Else</b></p><p><b> rs2.Close</b></p><p><b> End If</b></p><p> SQL1 = "SELECT * FROM 用戶表 where 用戶名= '" & Text
68、1.Text & "'"</p><p> rs1.Open SQL1, conn, 1, 3</p><p> If rs1.RecordCount > 0 Then</p><p> rs1.Delete</p><p><b> rs1.Close</b></
69、p><p><b> Else</b></p><p><b> rs1.Close</b></p><p><b> End If</b></p><p> SQL2 = "SELECT * FROM 工資表 where 員工編號(hào)= '" &a
70、mp; Text1.Text & "'"</p><p> rs2.Open SQL2, conn, 1, 3</p><p> If rs2.RecordCount > 0 Then</p><p> rs2.Delete</p><p><b> rs2.Close</b&
71、gt;</p><p><b> Else</b></p><p><b> rs2.Close</b></p><p><b> End If</b></p><p> MsgBox "刪除成功", 64, "信息提示"<
72、/p><p><b> End If</b></p><p><b> rs.Close</b></p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> If
73、rs.State = 1 Then</p><p><b> rs.Close</b></p><p><b> End If</b></p><p> If Text1.Text = "" Then</p><p> MsgBox "編號(hào)不能為空,請(qǐng)重新輸入!
74、", 16, "提示"</p><p> Text1.SetFocus</p><p><b> End If</b></p><p> SQL = "SELECT * FROM 員工信息表 where 員工編號(hào)= '" & Text1.Text & "&
75、#39;"</p><p> rs.Open SQL, conn, 1, 3</p><p> If rs.RecordCount <= 0 Then</p><p> MsgBox "該成員不存在,請(qǐng)重新輸入!", 16, "提示"</p><p> Text1.SetFocu
76、s</p><p><b> Else</b></p><p> rs("姓名") = Text2.Text</p><p> rs("性別") = Combo1.Text</p><p> rs("職務(wù)") = Text4.Text</p>
77、<p><b> rs.Update</b></p><p> MsgBox "修改成功", 64, "信息提示"</p><p><b> rs.Close</b></p><p><b> End If</b></p>&
78、lt;p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> If rs.State = 1 Then</p><p><b> rs.Close</b></p><p><b> End If&l
79、t;/b></p><p> If Text1.Text = "" Then</p><p> MsgBox "編號(hào)不能為空,請(qǐng)重新輸入!", 16, "提示"</p><p> Text1.SetFocus</p><p><b> End If</b
80、></p><p> SQL = "SELECT * FROM 員工信息表 where 員工編號(hào)= '" & Text1.Text & "'"</p><p> rs.Open SQL, conn, 1, 3</p><p> If rs.RecordCount > 0 The
81、n</p><p> MsgBox "該成員已存在,請(qǐng)重新輸入!", 16, "提示"</p><p> Text1.SetFocus</p><p><b> Else</b></p><p><b> rs.AddNew</b></p>
82、<p> rs("員工編號(hào)") = Text1.Text</p><p> rs("姓名") = Text2.Text</p><p> rs("性別") = Combo1.Text</p><p> rs("職務(wù)") = Text4.Text</p>
83、<p><b> rs.Update</b></p><p><b> rs.Close</b></p><p> SQL = "SELECT * FROM 工資表 where 員工編號(hào)= '" & Text1.Text & "'"</p>&
84、lt;p> rs.Open SQL, conn, 1, 3</p><p><b> rs.AddNew</b></p><p> rs("員工編號(hào)") = Text1.Text</p><p> rs("月份") = Trim("11")</p><
85、p><b> rs.Update</b></p><p><b> rs.Close</b></p><p> SQL = "SELECT * FROM 用戶表 where 用戶名= '" & Text1.Text & "'"</p><p&g
86、t; rs.Open SQL, conn, 1, 3</p><p><b> rs.AddNew</b></p><p> rs("用戶名") = Text1.Text</p><p><b> rs.Update</b></p><p><b> rs.C
87、lose</b></p><p> SQL = "SELECT * FROM 工資表 where 員工編號(hào)= '" & Text1.Text & "'"</p><p> rs.Open SQL, conn, 1, 3</p><p><b> rs.AddNew&l
88、t;/b></p><p> rs("員工編號(hào)") = Text1.Text</p><p> rs("月份") = Trim("12")</p><p><b> rs.Update</b></p><p><b> rs.Close&
89、lt;/b></p><p> MsgBox "添加成功", 64, "信息提示"</p><p><b> End If</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()
90、</p><p> conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"</p><p><b> conn.Open</b></p><
91、;p><b> End Sub</b></p><p><b> 數(shù)據(jù)管理</b></p><p> Dim conn As New ADODB.Connection</p><p> Dim rs As New ADODB.Recordset</p><p> Private Su
92、b Command1_Click()</p><p> conn.Execute "backup database gongzi to disk='f:\sql課設(shè)\gongxi完全備份.bak' with FORMAT, name='Full Backup Of gongzi'"</p><p> conn.Execute &quo
93、t;backup log gongzi to disk='f:\sql課設(shè)\gongxilog完全備份.bak' with norecovery, name='Full Backup Of gongzi'"</p><p> MsgBox "數(shù)據(jù)完全備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"&l
94、t;/p><p><b> End Sub</b></p><p> Private Sub Command2_Click()</p><p> conn.Execute "restore database 工資 from disk='f:\sql課設(shè)\gongxi完全備份.bak' with NORECOVERY
95、"</p><p> conn.Execute "restore log 工資1 from disk='f:\sql課設(shè)\gongxilog完全備份.bak' with NORECOVERY"</p><p> MsgBox "完全恢復(fù)已經(jīng)完成", vbOKOnly + vbInformation, "提醒&q
96、uot;</p><p><b> End Sub</b></p><p> Private Sub Command3_Click()</p><p> conn.Close</p><p> zhchx.Show</p><p><b> Unload Me</b>
97、;</p><p><b> End Sub</b></p><p> Private Sub Command4_Click()</p><p> conn.Execute "backup database gongzi to disk='f:\sql課設(shè)\gongxi差異備份.bak' WITH INIT&qu
98、ot;</p><p> conn.Execute "backup log gongzi to disk='f:\sql課設(shè)\gonxilog差異備份.bak' WITH INIT"</p><p> MsgBox "數(shù)據(jù)差異備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"<
99、/p><p><b> End Sub</b></p><p> Private Sub Command5_Click()</p><p> conn.Execute "restore database 工資2 from disk='f:\sql課設(shè)\gongxi差異備份.bak' with NORECOVERY&
100、quot;</p><p> conn.Execute "restore log 工資21 from disk='f:\sql課設(shè)\gongxilog差異備份.bak' with NORECOVERY"</p><p> MsgBox "差異恢復(fù)已經(jīng)完成", vbOKOnly + vbInformation, "提醒&
101、quot;</p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=
102、False;Initial Catalog=master"</p><p><b> conn.Open</b></p><p><b> End Sub</b></p><p><b> 總結(jié)</b></p><p> 在本系統(tǒng)開發(fā)的過(guò)程中,我全面實(shí)踐一個(gè)面
103、向數(shù)據(jù)庫(kù)的應(yīng)用系統(tǒng)的開發(fā)過(guò)程,學(xué)習(xí)很多有關(guān)的知識(shí)。這樣的項(xiàng)目對(duì)我們學(xué)過(guò)的數(shù)據(jù)結(jié)構(gòu),程序設(shè)計(jì),數(shù)據(jù)庫(kù)等課程是一個(gè)綜合性很高的實(shí)踐。工資管理系統(tǒng)的目的和現(xiàn)實(shí)意義就是提高企業(yè)或公司的管理效率,避免一些在管理中由于人為因素而存在的一些諸多問(wèn)題。工資管理系統(tǒng)還可以節(jié)省人力資源,不必浪費(fèi)過(guò)多的人力資源在這種手工發(fā)放工資的模式之上。工資管理系統(tǒng)也可以為企業(yè)或公司節(jié)省生產(chǎn)成本,獲取更大的利潤(rùn),人力資源問(wèn)題的減少必將為企業(yè)或公司節(jié)省一些不必要的生產(chǎn)成本,
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 工資管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告(數(shù)據(jù)庫(kù)課程設(shè)計(jì))
- 工資管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告數(shù)據(jù)庫(kù)課程設(shè)計(jì)
- 工資管理系統(tǒng)_數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告
- 數(shù)據(jù)庫(kù)工資管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告--工資管理系統(tǒng)設(shè)計(jì)
- 工資管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告(數(shù)據(jù)庫(kù)課程設(shè)計(jì))模板
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--工資管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)工資管理系統(tǒng)課程設(shè)計(jì)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)----工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)——工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)報(bào)告--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)--工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)工資管理系統(tǒng)課程設(shè)計(jì)
- 數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)報(bào)告---工資管理系統(tǒng)設(shè)計(jì)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)工資管理系統(tǒng)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)工資管理系統(tǒng)
評(píng)論
0/150
提交評(píng)論