數(shù)據(jù)庫管理課程設(shè)計--工資管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：33 大?。?.67MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩32頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　計算機科學(xué)與技術(shù)學(xué)院　　課程設(shè)計報告 　　（ 2007 ~ 2008學(xué)年度第二學(xué)期）　　目錄　　系統(tǒng)需求分析--------------------

2、------------------------------------------------3　　1.1數(shù)據(jù)流圖（DFD）---------------------------------------------------------4　　1.2數(shù)據(jù)字典（DD）--------------------------------------------

3、---------------4　　1.2.1數(shù)據(jù)項-------------------------------------------------------------------4　　1.2.2數(shù)據(jù)流-------------------------------------------------------------------4</p

4、>　　1.2.3數(shù)據(jù)存儲----------------------------------------------------------------5　　1.2.4加工處理----------------------------------------------------------------6　　二．概念模型設(shè)計-

5、--------------------------------------------------------------------7　　三．邏輯模型設(shè)計---------------------------------------------------------------------7　　四．物理模型設(shè)計-------------------

6、--------------------------------------------------8　　4.1數(shù)據(jù)庫和表名稱--------------------------------------------------------------8　　4.2表的結(jié)構(gòu)設(shè)計-----------------------------------------

7、------------------------8　　五．應(yīng)用程序設(shè)計---------------------------------------------------------------------10　　5.1系統(tǒng)功能結(jié)構(gòu)設(shè)計-----------------------------------------------------------

8、10　　5.1.1工資管理系統(tǒng)----------------------------------------------------------11　　5.1.2系統(tǒng)管理模塊----------------------------------------------------------11　　5.1.3工資

9、管理模塊----------------------------------------------------------11　　5.1.4報表管理模塊----------------------------------------------------------11　　5.2界面設(shè)計--------------------------------

10、---------------------------------------12　　5.2.1登錄窗口----------------------------------------------------------------12　　5.2.2主界面窗體------------------------------------------------

11、-------------12　　5.2.3注冊用戶----------------------------------------------------------------13　　5.2.4員工信息管理----------------------------------------------------------13&

12、lt;p>　　5.2.5個人工資管理----------------------------------------------------------13　　5.2.6員工工資條-------------------------------------------------------------14　　5.2.7關(guān)于-------------

13、---------------------------------------------------------14　　5.3應(yīng)用系統(tǒng)實施-----------------------------------------------------------------15　　5.3.1開發(fā)工具的選擇---------------------------

14、----------------------------15　　5.3.2代碼部分----------------------------------------------------------------15　　5.3.3系統(tǒng)測試------------------------------------------------------------

15、----32　　5.3.4系統(tǒng)運行----------------------------------------------------------------33　　六．參考文獻---------------------------------------------------------------------------33

16、　　系統(tǒng)需求分析　　管理信息系統(tǒng)(MIS)不僅是一個技術(shù)系統(tǒng)，而且也是一個社會系統(tǒng)。這從另一個方面可看出，任何企事業(yè)單位的管理信息系統(tǒng)都是基于自己單位的實際情況而建立，即使是同行企業(yè)建立的相同系統(tǒng)都會由于企業(yè)的實際情況而有所不同。　　工資管理是任何企事業(yè)單位都面臨的問題，由于各個公司的工資處理方

17、式總是有所區(qū)別，因此目前還沒有一個通用的工資管理系統(tǒng)，只能針對公司情況去開發(fā)適合本公司需求的工資管理系統(tǒng)。早期的工資管理是人工化的，工作量大時，出現(xiàn)錯誤的機率也會隨之升高，這會導(dǎo)致會計人員花費更多的時間去改正錯誤，延誤工資發(fā)放的時間，或出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。而企業(yè)工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計和計算，完成企業(yè)工資信息的處理，而且還可以用電腦安全完整地保存企業(yè)工資記錄。　　系統(tǒng)初步調(diào)

18、查的內(nèi)容主要是了解公司組織的整體信息，包括員工信息和員工工資信息。通過對系統(tǒng)特點進行調(diào)查和分析，可以得到本系統(tǒng)的關(guān)鍵部分如下：　　員工職務(wù)工資的設(shè)定，是工資管理系統(tǒng)的基礎(chǔ)，可以實現(xiàn)工資的基本管理。這樣可以減少出錯，提高效率。 　　其他工資的設(shè)置，是對員工基本工資的補充。　　系統(tǒng)應(yīng)該可以輸出工資報表，可以通過報表側(cè)

19、面反映員工工作的好壞。　　系統(tǒng)還應(yīng)包括員工基本信息的錄入、修改和刪除。　　系統(tǒng)還應(yīng)該提供強大的數(shù)據(jù)統(tǒng)計、查詢功能。　　系統(tǒng)應(yīng)有比較好的可操作性、穩(wěn)定性和可擴展性。　　數(shù)據(jù)流圖（DFD）　　數(shù)據(jù)

20、流圖是一種能全面地描述信息系統(tǒng)邏輯模型的主要工具，它可以用少數(shù)幾種符號綜合地反映出信息在系統(tǒng)中的流動、處理和存儲情況，比管理業(yè)務(wù)流程圖具有更好的抽象性和概括性。它包括四種符號，如下圖所示：　　通過詳細調(diào)查和業(yè)務(wù)流程圖，舍去物質(zhì)和其他要素，繪制出工資管理數(shù)據(jù)流程圖。如下圖所示：　　數(shù)據(jù)字典（DD）

21、　　DFD只是對數(shù)據(jù)處理和彼此之間的聯(lián)系進行了說明。為了對數(shù)據(jù)流程圖中的各個元素作出詳細的說明，有必要建立數(shù)據(jù)字典，將數(shù)據(jù)流圖中的全部數(shù)據(jù)流及其組成部分的數(shù)據(jù)元素，數(shù)據(jù)存儲，數(shù)據(jù)加工描述清楚,以便于系統(tǒng)設(shè)計的進行。數(shù)據(jù)流程圖配以數(shù)據(jù)字典，就可以從圖形和文字兩個方面對系統(tǒng)的邏輯模型進行完整的描述。因此，開發(fā)人員有必要編寫詳細的數(shù)據(jù)字典,來描述系統(tǒng)開發(fā)過程的細節(jié)。　　下面列出本系

22、統(tǒng)中主要的數(shù)據(jù)字典，包括數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加工處理。　　數(shù)據(jù)項　　數(shù)據(jù)項又稱數(shù)據(jù)元素，是數(shù)據(jù)的最小單位，是無法再細分的數(shù)據(jù)。下面列出主要的數(shù)據(jù)元素，如下表所示　　主要的數(shù)據(jù)元素<b&

23、gt;　　數(shù)據(jù)流　　數(shù)據(jù)流是由一個或一組固定的數(shù)據(jù)項組成。其體現(xiàn)了數(shù)據(jù)的流向，從哪里來，流向哪里。如下表所示。　　數(shù) 據(jù) 流　　數(shù)據(jù)存儲　　數(shù)據(jù)存儲是數(shù)據(jù)結(jié)構(gòu)保存的場所，它只描

24、述了數(shù)據(jù)的邏輯存儲結(jié)構(gòu)，而不涉及它的物理組織?，F(xiàn)就以相關(guān)表來說明數(shù)據(jù)存儲的定義，如下表所示。　　數(shù) 據(jù) 存儲　　加工處理　　加工處理是對數(shù)據(jù)流程圖中的邏輯處理進行分析及一些必要說明。如下表所示。

25、　　加工處理　　概念模型設(shè)計　　對數(shù)據(jù)中詞典中的數(shù)據(jù)存儲進行分析，得出用戶、員工信息、員工工資信息等數(shù)據(jù)存儲，它們都由自己的頭信息另加若干細節(jié)項構(gòu)成，根據(jù)實體與屬性的區(qū)分準(zhǔn)則（作為“屬性”，不能再具有需要描述的性質(zhì)），這些細節(jié)項應(yīng)上升為實體。工資管理系統(tǒng)的主要實體及其屬性有

26、：　　·用戶 {[user],password,[right]}　　·員工信息 { empID，name，sex，borntime，region，nation，govvis，culture，marr，　　headship，addr，phone，email，ID，pic，resume}</

27、p>　　·員工工資信息{ empID，name，headship，base_pay，prize，salary，income_tax，income }　　實體聯(lián)系（E-R）圖　　邏輯模型設(shè)計　　邏輯結(jié)構(gòu)設(shè)計的任務(wù)就是把概念模型設(shè)計階段設(shè)計好

28、的基本E-R圖轉(zhuǎn)換為與選用的具體機器上的DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)，現(xiàn)選用關(guān)系模型，E-R圖向關(guān)系模型的轉(zhuǎn)換結(jié)果如下所示：　　·用戶（[user]，password，[right]）　　[user]為此關(guān)系的主鍵。　　·員工信息（empID，name，sex，borntime

29、，region，nation，govvis，culture，marr，headship，addr，phone，email，ID，pic，resume）　　empID此關(guān)系的主鍵。　　·員工工資信息（empID，name，headship，base_pay，prize，salary，income_tax，income）&l

30、t;p>　　empID此關(guān)系的主鍵。　　物理模型設(shè)計　　數(shù)據(jù)庫和表名稱　　在本系統(tǒng)中數(shù)據(jù)庫的名稱設(shè)置為gzgl。數(shù)據(jù)庫中表名稱和字符標(biāo)識如下所示：　　表的結(jié)構(gòu)設(shè)計</

31、b>　　·用戶（yh）　　·員工信息（yg）　　·員工工資信息(yggz)　　實現(xiàn)員工工資信息（職工編號、姓名、職務(wù)）隨著員工信息的更新、刪除、插入而更新、刪除

32、、插入，實現(xiàn)動態(tài)更新，我使用了三個觸發(fā)器，分別如下：　　CREATE TRIGGER [Delete_Reminder] ON dbo.員工信息 　　FOR delete　　AS　　declare @emp varchar(12)&l

33、t;/p>　　select @emp =empID from deleted　　delete 　　from 員工工資信息　　where empID=@emp　　CREATE TRIGGER [Insert

34、_Reminder] ON dbo.員工信息 　　FOR INSERT　　AS　　insert into [員工工資信息]　　(empID,name,headship)　　s

35、elect　　empID,name,headship　　from inserted　　CREATE TRIGGER [Update_name] ON dbo.員工信息 　　FOR UPDATE

36、;　　AS　　declare @emp varchar(12)　　declare @na varchar(10)　　declare @hs varchar(10)　　select @emp =empID from inserted

37、　　select @na =name from inserted　　select @hs =headship from inserted　　if update(name) or update(headship)　　begin<

38、p>　　update[員工工資信息]　　set name=@na,headship=@hs　　where empID=@emp　　end　　實現(xiàn)個人所得稅的自動計算，而不在程序中修改，我使用了一個計算個人所得稅的觸發(fā)器，代碼如下

39、：　　CREATE TRIGGER [modifyincome_tax] ON dbo.員工工資信息 　　FOR INSERT, UPDATE　　AS　　update [員工工資信息]　　se

40、t income_tax=(salary-1600)*0.05　　where empID = [員工工資信息].empID and (salary-1600)>=0 and (salary-1600)<500　　update [員工工資信息]　　set income_tax=(salary-160

41、0)*0.1-25　　where empID = [員工工資信息].empID and (salary-1600)>=500 and (salary-1600)<2000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.15-125</p&g

42、t;　　where empID = [員工工資信息].empID and (salary-1600)>=2000 and (salary-1600)<5000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.20-375　　wh

43、ere empID = [員工工資信息].empID and (salary-1600)>=5000 and (salary-1600)<20000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.25-1375　　where empID = [員工

44、工資信息].empID and (salary-1600)>=20000 and (salary-1600)<40000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.3-3375　　where empID = [員工工資信息].empID an

45、d (salary-1600)>=40000 and (salary-1600)<60000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.35-6375　　where empID = [員工工資信息].empID and (salary-160

46、0)>=60000 and (salary-1600)<80000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.4-10375　　where empID = [員工工資信息].empID and (salary-1600)>=80000

47、 and (salary-1600)<100000　　update [員工工資信息]　　set income_tax=(salary-1600)*0.45-15375　　where empID = [員工工資信息].empID and (salary-1600)>=100000

48、　　應(yīng)用程序設(shè)計　　系統(tǒng)功能結(jié)構(gòu)設(shè)計　　為了詳細描述系統(tǒng)模塊功能，在系統(tǒng)功能模塊劃分的的基礎(chǔ)上，對相應(yīng)系統(tǒng)的數(shù)據(jù)流圖進行功能分解，得到含義明確、功能單一的單元功能模塊，從而得到系統(tǒng)的功能模塊圖。　　工

49、資管理系統(tǒng)　　本系統(tǒng)主要分系統(tǒng)管理模塊、工資管理模塊、報表管理模塊和幫助模塊組成。　　工資管理系統(tǒng)模塊圖　　系統(tǒng)管理模塊　　這一模塊主要完成一些用戶的管理和員工信息的管理以及系

50、統(tǒng)的退出和重新登錄。　　系統(tǒng)管理模塊結(jié)構(gòu)圖　　工資管理模塊　　這一模塊主要實現(xiàn)個人工資管理、工資批量設(shè)置和工資計算公式的功能。　　工資管理模塊結(jié)構(gòu)圖</

51、p>　　報表管理模塊　　這一模塊主要完成對工資管理系統(tǒng)中公司中的員工信息和工資信息的制表，為企業(yè)領(lǐng)導(dǎo)提供所需的數(shù)據(jù)。主要包括：員工工資表、員工信息表和員工工資條　　報表管理模塊結(jié)構(gòu)圖　　界面

52、設(shè)計　　由于工資管理系統(tǒng)的最終用戶是對計算機技術(shù)并不精通的管理人員，從他們的應(yīng)用需求出發(fā)，應(yīng)該本著用戶操作界面友好、清晰、易學(xué)易用、易于維護的原則來進行設(shè)計。　　登錄窗口　　進入系統(tǒng)時要進行安全性檢驗。需輸入你的用戶名，密碼。本系統(tǒng)由管理員負責(zé)注冊和注銷用

53、戶，您可以使用管理員登錄系統(tǒng)，初始密碼為jsjmz。通過數(shù)據(jù)庫的安全認證，您還可以限制他人以管理員登錄，只能以來賓的用戶登錄系統(tǒng)，初始密碼為123456。　　系統(tǒng)用戶登錄窗體設(shè)計如下：　　主界面窗體　　本系統(tǒng)主要有三個功能：系統(tǒng)管理、工資管理、報表管理。其中系統(tǒng)管理中包含用戶

54、管理、員工信息管理、重新登錄系統(tǒng)功能，工資管理包含員工工資管理、工資批量設(shè)置、工資計算公式，報表中由員工信息表、員工工資表、員工工資條，本系統(tǒng)可以讓您輕松地了解本公司員工的基本信息和工資管理。主界面窗體設(shè)計如下：　　注冊用戶　　您可以通過管理員用戶注冊其他用戶（注冊成功的用戶為非管理員權(quán)限），而非管理員用戶沒有此項功

55、能。注冊用戶窗體如下：　　員工信息管理　　您可以通過此功能查看或修改員工的基本信息。其中管理員擁有添加、修改、刪除及查詢員工信息的權(quán)利，而非管理員只能查詢員工信息，而不能擁有添加、修改和刪除的權(quán)利。　　個人工資管理

56、　　您可以通過此功能查看或修改員工的工資信息。其中管理員擁有修改和查詢員工工資信息的權(quán)利，而非管理員只能查詢員工工資信息，而不能擁有修改員工工資的權(quán)利。　　員工工資條　　您可以打印員工的工資信息發(fā)放給各員工。　　關(guān)于&l

57、t;/p>　　注：此系統(tǒng)中還有許多窗體因篇幅有限，不能一一顯示，只顯示了一些主要窗體，若要進一步了解這些窗口及其它窗口，請查看系統(tǒng)應(yīng)用設(shè)計和運行界面。　　應(yīng)用系統(tǒng)實施　　開發(fā)工具的選擇　　本系統(tǒng)采用Visual

58、 Basic 6.0和SQL Server 2000編寫，為了您能夠輕松使用本系統(tǒng)請您在使用前請看怎樣配置您的系統(tǒng)（包括配置SQL Server 2000服務(wù)器（導(dǎo)入數(shù)據(jù)庫文件）和配置數(shù)據(jù)源（使用數(shù)據(jù)源ODBC方法））　　代碼部分　　·系統(tǒng)登錄窗體代碼：　　Dim

59、TIM As Integer　　Dim myval As String　　Private Sub Command1_Click()　　Adodc1.CommandType = adCmdUnknown　　Adodc1.RecordSource = "select

60、 *from 用戶 where [user]='" + DataCombo1.BoundText + "'"　　Adodc1.Refresh　　If Adodc1.Recordset.RecordCount = 0 Then　　MsgBox ("暫無此用戶，

61、請重新選擇用戶！")　　DataCombo1.SetFocus　　Exit Sub　　End If　　If DataCombo1.BoundText <> "&qu

62、ot; And Text1.Text <> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("password")) Then　　loginflag = 0　　usename = DataCombo1.BoundText<p

63、>　　If Adodc1.Recordset.Fields("right") = "管理員" Then　　loginuserflag = 1　　Else　　loginuserflag = 0

64、;　　End If　　frmMain.Show　　Unload Me　　Else　　If TIM = 3 Then

65、　myval = MsgBox("密碼輸入錯誤，請向系統(tǒng)管理員查詢！")　　If myval = vbOK Then End　　End If　　If DataCombo1.BoundText = "" Then&

66、lt;p>　　MsgBox ("請選擇用戶")　　DataCombo1.SetFocus　　Else　　If Text1.Text = "" Then　　MsgBox ("用戶密

67、碼不能為空,請輸入用戶密碼！")　　Text1.SetFocus　　Else　　If Text1.Text <> Adodc1.Recordset.Fields("password") Then

68、;　　MsgBox ("密碼錯誤，請查證后重新輸入密碼！")　　Text1.SelStart = 0　　Text1.SelLength = Len(Text1.Text)　　TIM = TIM + 1　　Text1.SetFocus

69、　　End If　　End If　　End If　　End If　　End Su

70、b　　Private Sub Command2_Click()　　If loginflag = 1 Then　　End　　Else

71、frmMain.Show　　Me.Hide　　End If　　Text1.Text = ""　　DataCombo1.Text = "請選擇用戶"</

72、p>　　End Sub　　Private Sub DataCombo1_Change()　　TIM = 1　　Text1.Text = ""<

73、b>　　End Sub　　Private Sub DataCombo1_Click(Area As Integer)　　Adodc1.CommandType = adCmdUnknown　　Adodc1.RecordSource = "select * from 用戶"

74、;　　Adodc1.Refresh　　End Sub　　Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyR

75、eturn Then Text1.SetFocus　　End Sub　　Private Sub Form_Activate()　　DataCombo1.SetFocus　　TIM = 1</

76、p>　　If loginflag <> 1 Then　　frmLogin.Caption = "工資管理系統(tǒng)——重新登錄窗體"　　End If　　End Sub

77、;　　Private Sub Form_Unload(Cancel As Integer)　　If loginflag = 1 Then　　End　　Else　　frmMai

78、n.Show　　Me.Hide　　End If　　End Sub　　Private Sub Picture1_Click()<p

79、>　　Call ShellAbout(hWnd, "工資管理系統(tǒng)——木子制作", "歡迎提出建議：jsjmz@qq.com(QQ:506817493)", Me.Icon)　　End Sub　　Private Sub Picture2_Click()

80、　　SendKeys "{F1}"　　End Sub　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyReturn

81、Then Command1_Click　　If KeyCode = vbKeyUp Then DataCombo1.SetFocus　　End Sub　　·主窗體代碼：　　Private

82、 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As Stri

83、ng, ByVal nShowCmd As Long) As Long　　Const SW_SHOWNORMAL = 1　　Private Sub Form_Activate()　　StatusBar1.Panels(2).Text = "當(dāng)前登錄的是" & usename</p

84、>　　If loginuserflag = 1 Then　　mnuAdduser.Enabled = True　　mnuDeleteuser.Enabled = True　　mnuBatchset.Enabled = True　　Picture

85、1.Enabled = True　　Else　　mnuAdduser.Enabled = False　　mnuDeleteuser.Enabled = False　　mnuBatchset.Enabled = False</p&

86、gt;　　Picture1.Enabled = False　　End If　　End Sub　　Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode A

87、s Integer)　　i = MsgBox("您真的退出工資管理系統(tǒng)？", vbYesNo + vbExclamation)　　If i = vbYes Then　　End　　End If<

88、;/b>　　End Sub　　Private Sub mnuAbout_Click()　　Call ShellAbout(hWnd, "工資管理系統(tǒng)——木子制作", "歡迎提出建議：jsjmz@qq.com(QQ:506817493)&qu

89、ot;, Me.Icon)　　End Sub　　Private Sub mnuAdduser_Click()　　frmAdduser.Show　　Me.Hide<p&

90、gt;　　End Sub　　Private Sub mnuAssist_Click(Index As Integer)　　ShellExecute Me.hWnd, vbNullString, App.Path & "\幫助.chm", vbNullString, ""

91、, SW_SHOWNORMAL　　End Sub　　Private Sub mnuBatchset_Click()　　frmBatch.Show　　Me.Hide<p

92、>　　End Sub　　Private Sub mnuChange_Click()　　frmChange.Show　　Me.Hide　　End Sub&

93、lt;/p>　　Private Sub mnuDeleteuser_Click()　　frmDeleteuser.Show　　Me.Hide　　End Sub　　Pri

94、vate Sub mnuEMP_Click(Index As Integer)　　frmUser.Show　　Me.Hide　　End Sub　　Private Sub mnuExit_Click

95、()　　i = MsgBox("您真的退出工資管理系統(tǒng)？", vbYesNo + vbExclamation)　　If i = vbYes Then　　End　　End If&

96、lt;/p>　　End Sub　　Private Sub mnuFormulae_Click()　　frmFormulae.Show　　Me.Hide

97、　　End Sub　　Private Sub mnuInfotable_Click()　　DataReport2.Show　　Me.Hide　　End Sub

98、;　　Private Sub mnuPersalaryset_Click()　　frmPersal.Show　　Me.Hide　　End Sub　　Private Sub m

99、nuRlogin_Click()　　frmLogin.Show　　Me.Hide　　End Sub　　Private Sub mnuWagebar_Click()<p

100、>　　DataReport1.Show　　Me.Hide　　End Sub　　Private Sub mnuWagetable_Click()　　DataReport3.Show</p

101、>　　Me.Hide　　End Sub　　Private Sub Picture2_Click()　　mnuChange_Click　　End Sub

102、　　Private Sub Picture1_Click()　　mnuAdduser_Click　　End Sub　　Private Sub Picture3_Click()

103、;　　frmUser.Show　　Me.Hide　　End Sub　　Private Sub Picture4_Click()　　mnuInfotable_Click<

104、;p>　　End Sub　　Private Sub Picture5_Click()　　mnuPersalaryset_Click　　End Sub　　Private Sub Picture

105、6_Click()　　mnuWagebar_Click　　End Sub　　Private Sub Picture7_Click()　　mnuRlogin_Click　　En

106、d Sub　　Private Sub Picture8_Click()　　mnuExit_Click　　End Sub　　·注冊用戶窗體代碼：　　Private

107、Sub Command1_Click()　　If Trim(Text1.Text) = "" Then　　MsgBox ("用戶不能為空，請重新輸入！")　　Text1.SetFocus　　Exit Sub<

108、/b>　　End If　　If Trim(Text2.Text) = "" Then　　MsgBox "密碼不能為空，請重新輸入！"　　Text2.SetFocus

109、　　Exit Sub　　End If　　If Combo1.Text = "" Then　　MsgBox ("用戶權(quán)限不能為空，請重新輸入！")<p&

110、gt;　　Combo1.SetFocus　　Exit Sub　　End If　　If Text2.Text <> Text3.Text Then　　MsgBox ("兩次輸入

111、的密碼不一致，請重新輸入！")　　Text2.Text = ""　　Text3.Text = ""　　Text2.SetFocus　　Else

112、　　Adodc1.CommandType = adCmdUnknown　　Adodc1.RecordSource = "select *from 用戶 where [user]='" + Trim(Text1.Text) + "'"　　Adodc1.Refresh<p&

113、gt;　　If Adodc1.Recordset.RecordCount > 0 Then　　i = MsgBox("用戶名已經(jīng)存在！是否重新輸入？", vbYesNo + vbExclamation)　　If i = vbYes Then　　Text1.Text = "&qu

114、ot;　　Text2.Text = ""　　Text3.Text = ""　　Text1.SetFocus　　Else　　Command2_Click&

115、lt;/p>　　End If　　Else　　Adodc1.RecordSource = "select *from 用戶"　　Adodc1.Refresh<p&

116、gt;　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields(0) = Trim(Text1.Text)　　Adodc1.Recordset.Fields(1) = Trim(Text2.Text)　　Adodc1.Recordset.Fields(2) = Trim

117、(Combo1.Text)　　Adodc1.Recordset.Update　　Adodc1.Recordset.Close　　i = MsgBox("恭喜你注冊用戶成功！是否繼續(xù)注冊用戶？", vbYesNo + vbExclamation + vbDefaultButton2)</p

118、>　　If i = vbYes Then　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text1.SetFocus</

119、p>　　Else　　Command2_Click　　End If　　End If　　End If</b&g

120、t;　　End Sub　　Private Sub Command2_Click()　　Unload Me　　frmMain.Show

121、End Sub　　Private Sub Form_Activate()　　Text1.SetFocus　　End Sub　　Private Sub Picture1_Click()<

122、p>　　frmAbout.Show　　End Sub　　Private Sub Form_Unload(Cancel As Integer)　　Unload Me　　frmMain.Show

123、　　End Sub　　Private Sub Picture2_Click()　　Call ShellAbout(hWnd, "工資管理系統(tǒng)——木子制作", "歡迎提出建議：jsjmz@qq.com(QQ:506817493)", Me

124、.Icon)　　End Sub　　Private Sub Picture3_Click()　　SendKeys "{F1}"　　End Sub<p

125、>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyReturn Then　　If Text1.Text <> "" Then　　Text2.SetFocu

126、s　　End If　　End If　　End Sub　　Private Sub Text2_KeyDown(KeyCode As Integer, Shift

127、 As Integer)　　If KeyCode = vbKeyReturn Then　　If Text2.Text <> "" Then　　Text3.SetFocus　　End If</p&g

128、t;　　End If　　End Sub　　Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyRetu

129、rn Then　　If Text3.Text <> "" Then　　Command1_Click　　End If　　End If<p

130、>　　End Sub　　·員工信息窗體代碼：　　Dim Constr As String　　Dim FileName As String　　Dim addflag As Integer<p

131、>　　Const BlockSize = 4096　　Dim ADOFld As ADODB.Field　　Private Sub Combo5_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyReturn Then Comm

132、and18_Click　　End Sub　　Private Sub Combo6_KeyDown(KeyCode As Integer, Shift As Integer)　　If KeyCode = vbKeyReturn Then Command17_Click</

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫管理課程設(shè)計--工資管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫管理課程設(shè)計--工資管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載