職工考勤管理信息系統(tǒng)-課程設(shè)計(jì)報(bào)告

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

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩25頁(yè)未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡(jiǎn)介

1、　　《數(shù)據(jù)庫(kù)系統(tǒng)概論》　　課程設(shè)計(jì)報(bào)告　　計(jì)算機(jī)學(xué)院　　2017年12月8日　學(xué)號(hào)

2、;　　目錄　　需求分析1　　1.1 系統(tǒng)目標(biāo)以及功能1　　1.2 系統(tǒng)功能分析1　　1.3系統(tǒng)E-R圖1　　1.4信息分析2

3、　　1.5功能圖2　　1.6模塊分析3　　1.7員工出勤和出差的E-R圖3　　概念結(jié)構(gòu)設(shè)計(jì)4　　2.1關(guān)系模

4、式分析4　　2.1.1實(shí)體關(guān)系模式：4　　2.1.2聯(lián)系的關(guān)系模式：4　　2.2下面是本次設(shè)計(jì)的每一個(gè)表所涉及的數(shù)據(jù)：4　　2.2.1員工信息表：4　　2.2.2請(qǐng)假信息表：5

5、　　2.2.3出差信息表：5　　2.2.4加班信息表：5　　2.2.5日出勤信息表：5　　2.2.6管理員信息表5　　部分代碼和截圖6　　3.1管理員登錄界面6

6、　　3.2職工考勤系統(tǒng)界面7　　3.3員工信息添加界面9　　3.4員工信息查詢界面10　　3.5員工信息修改界面11　　3.6員工信息刪除界面13　　3.7出差信息添加界面14

7、　　3.8出差信息查詢界面16　　3.9出差信息修改界面18　　3.10出差信息刪除界面19　　3.11管理員修改界面21　　心得體會(huì)22

8、參考文獻(xiàn)22　　需求分析　　1.1 系統(tǒng)目標(biāo)以及功能　　為了配合人事管理系統(tǒng)的使用，充分地記錄員工的出勤情況，可以開(kāi)發(fā)考勤管理系統(tǒng)。進(jìn)行出勤情況統(tǒng)計(jì)的過(guò)程中，要充分考慮到各種缺勤情況的類別。此系統(tǒng)其主要功能有職工信息，包括職工編號(hào)、職工姓名、性別、年齡、

9、職稱等；出勤記錄信息，包括上班打卡時(shí)間，下班打開(kāi)時(shí)間，缺勤記錄等；出差信息，包括出差起始時(shí)間、結(jié)束時(shí)間、統(tǒng)計(jì)總共天數(shù)等；請(qǐng)假信息，包括請(qǐng)假開(kāi)始時(shí)間，結(jié)束時(shí)間，統(tǒng)計(jì)請(qǐng)假天數(shù)等；加班信息，包括加班開(kāi)始時(shí)間、結(jié)束時(shí)間、統(tǒng)計(jì)加班總時(shí)間。　　實(shí)現(xiàn)企業(yè)員工出勤情況的詳細(xì)的、系統(tǒng)的管理。　　使得企業(yè)員工的管理更加現(xiàn)代化、科學(xué)化、自動(dòng)化，并可以很好地督促企業(yè)員工更好地為

10、企業(yè)謀福利。　　可以使用考勤機(jī)，使得企業(yè)的管理更加現(xiàn)代化。　　1.2 系統(tǒng)功能分析　　員工考勤系統(tǒng)能夠和考勤機(jī)相連，可以把數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫(kù)中，從而完成自動(dòng)、高效、科學(xué)的考勤信息的輸入。　　可以完成員工考勤信息的手工輸入、修改、刪除等操作。<p&

11、gt;　　可以設(shè)定缺勤的類型，如病假、事假等。　　1.3系統(tǒng)E-R圖　　M 1　　n　　1.4信息分析

12、　　這個(gè)系統(tǒng)的主要功能有：數(shù)據(jù)入庫(kù)、查詢、修改和刪除等。本系統(tǒng)的主要功能由以下幾個(gè)部分組成：?jiǎn)T工基本信息模塊輸入：?jiǎn)T工信息功能：對(duì)員工基本信息的查詢、修改、刪除和查詢。員工考勤管理模塊輸入：?jiǎn)T工考勤情況功能：完成對(duì)員工的考勤以及對(duì)考勤情況的查詢、統(tǒng)計(jì)和刪除員工考勤等情況 　　員工出差模塊輸入：?jiǎn)T工出差時(shí)間以及回來(lái)的時(shí)間功能：完成對(duì)員工出差信息的詳細(xì)記

13、錄，也是為了完善員工考勤信息　　員工加班模塊　　輸入：?jiǎn)T工加班開(kāi)始以及結(jié)束時(shí)間功能：完成對(duì)員工加班信息的詳細(xì)記錄，也是為了完善員工考勤信息　　員工請(qǐng)假模塊　　輸入：?jiǎn)T工請(qǐng)假時(shí)間以及回來(lái)的時(shí)間&

14、lt;/p>　　功能：完成對(duì)員工請(qǐng)假信息的詳細(xì)記錄，也是為了完善員工考勤信息；　　1.5功能圖　　1.6模塊分析 　　在這個(gè)系統(tǒng)中各個(gè)模塊之間獨(dú)立工作，但是相互補(bǔ)充，考勤表，記錄了員工們的出勤信息，但是不包括出

15、差和請(qǐng)假，加班的員工信息，所以就需要出差和請(qǐng)假，加班這兩個(gè)模塊來(lái)補(bǔ)充這一缺陷。最后就是留言板，主要是為了給員工們一個(gè)自由言論的機(jī)會(huì)，這一也對(duì)公司是一件有意義的事情。　　圖1.3.1系統(tǒng)功能模塊圖　　1.7員工出勤和出差的E-R圖　　概念結(jié)構(gòu)設(shè)計(jì)<

16、p>　　2.1關(guān)系模式分析　　2.1.1實(shí)體關(guān)系模式：　　職工（編號(hào)，姓名，性別，年齡，職稱，）　　出勤記錄（上班打卡時(shí)間，下班打卡時(shí)間，缺勤記錄）　　出差記錄（出差起始時(shí)間，出差結(jié)束時(shí)間，出差總天數(shù)）&

17、lt;p>　　請(qǐng)假記錄（請(qǐng)假開(kāi)始時(shí)間，請(qǐng)假結(jié)束時(shí)間，請(qǐng)假天數(shù)）　　加班記錄（加班開(kāi)始時(shí)間，加班結(jié)束時(shí)間，加班總時(shí)間）　　2.1.2聯(lián)系的關(guān)系模式：　　報(bào)到（編號(hào)，姓名，上班打卡時(shí)間，下班打卡時(shí)間，缺勤記錄）　　安排（編號(hào)，姓名，出差起始時(shí)間，出差結(jié)束時(shí)間，出差總天數(shù)

18、）　　申請(qǐng)（編號(hào)，姓名，請(qǐng)假開(kāi)始時(shí)間，請(qǐng)假結(jié)束時(shí)間，請(qǐng)假天數(shù)）　　參加（編號(hào)，姓名，加班開(kāi)始時(shí)間，加班結(jié)束時(shí)間，加班總時(shí)間）　　2.2下面是本次設(shè)計(jì)的每一個(gè)表所涉及的數(shù)據(jù)：　　2.2.1員工信息表：　　2.2.2請(qǐng)假信息表：<

19、;/p>　　2.2.3出差信息表：　　2.2.4加班信息表：　　2.2.5日出勤信息表：　　2.2.6管理員信息表　　部分代碼和截圖　　3.1管理員登錄界面<

20、/p>　　代碼　　Option Explicit　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Su

21、b Command2_Click()　　Unload Me　　End Sub　　Private Sub Command1_Click()　　Set conn = New ADODB.Connect

22、ion　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　If Text1.Text = "

23、;" Then　　MsgBox "請(qǐng)輸入用戶名"　　Text1.SetFocus　　Exit Sub　　End If　　sq

24、lcmd = "SELECT * FROM guan WHERE name='" & Text1.Text & "'"　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient<p

25、>　　rss.Open sqlcmd, conn, adOpenStatic, adLockReadOnly　　If rss.EOF Then　　MsgBox "輸入的用戶名不對(duì)，請(qǐng)重新輸入", vbOKOnly, "提示"　　Text1.SetFocus</p

26、>　　Exit Sub　　End If　　If Trim(rss.Fields("passward")) <> Text2.Text Then　　MsgBox "輸入的

27、密碼不對(duì)，請(qǐng)重新輸入", vbOKOnly, "提示"　　Text2.SetFocus　　Exit Sub　　Else　　user = Text1.Text</

28、p>　　pwd = Text2.Text　　Form2.Show　　Unload Me　　End If　　rss.Close<

29、;/p>　　End Sub　　截圖　　3.2職工考勤系統(tǒng)界面　　Option Explicit　　Private Sub chuchai_add_Click()<

30、/p>　　Form4.Show　　End Sub　　Private Sub chuchai_change_Click()　　Form5.Show　　End Sub<

31、;/p>　　Private Sub chuchai_chaxun_Click()　　Form6.Show　　End Sub　　Private Sub chuchai_delete_Click()　　Form

32、7.Show　　End Sub　　Private Sub chuqin_add_Click()　　Form20.Show　　End Sub　　Privat

33、e Sub chuqin_change_Click()　　Form21.Show　　End Sub　　Private Sub chuqin_chaxun_Click()　　Form22.Show

34、;　　End Sub　　Private Sub chuqin_delete_Click()　　Form23.Show　　End Sub　　Private Sub exit_Click()</

35、p>　　Unload Me　　End Sub　　Private Sub guan_change_Click()　　Form3.Show　　End Su

36、b　　Private Sub jiaban_add_Click()　　Form16.Show　　End Sub　　Private Sub jiaban_change_Click()<p

37、>　　Form17.Show　　End Sub　　Private Sub jiaban_chaxun_Click()　　Form18.Show　　End Sub<

38、;p>　　Private Sub jiaban_delete_Click()　　Form19.Show　　End Sub　　Private Sub qingjia_add_Click()　　Form8.Show

39、;　　End Sub　　Private Sub qingjia_change_Click()　　Form13.Show　　End Sub　　Private Sub qingj

40、ia_chaxun_Click()　　Form14.Show　　End Sub　　Private Sub qingjia_delete_Click()　　Form15.Show

41、;　　End Sub　　Private Sub yuangong_add_Click()　　Form10.Show　　End Sub　　Private Sub yuangong_change_Click()<

42、/p>　　Form11.Show　　End Sub　　Private Sub yuangong_chaxun_Click()　　Form9.Show　　End Sub&

43、lt;/p>　　Private Sub yuangong_delete_Click()　　Form12.Show　　End Sub　　截圖　　3.3員工信息添加界面&l

44、t;/p>　　代碼　　Option Explicit　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private

45、Sub Command1_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"<

46、p>　　Dim sqlcmd As String　　sqlcmd = "SELECT * FROM yuangong"　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient<p&g

47、t;　　rss.Open sqlcmd, conn, 1, 3　　rss.AddNew　　rss.Fields(0) = Text1.Text　　rss.Fields(1) = Text2.Text　　rss.Fields(2) = Text3.Text

48、;　　rss.Fields(3) = Text4.Text　　rss.Fields(4) = Text5.Text　　rss.Update　　MsgBox "添加成功"　　rss.Close&

49、lt;/p>　　Unload Me　　End Sub　　Private Sub Command2_Click()　　Unload Me<p&g

50、t;　　End Sub　　截圖　　3.4員工信息查詢界面　　代碼Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset&

51、lt;/p>　　Private Sub Command1_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalo

52、g=worker"　　sqlcmd = "SELECT * FROM yuangong WHERE number='" & Text1.Text & "' "　　Dim rss As New ADODB.Recordset　　rss

53、.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 1　　If Not rss.EOF Then　　Text2.Text = rss.Fields(0)　　Text3.Text = rss.Fields(1)&

54、lt;/p>　　Text4.Text = rss.Fields(2)　　Text5.Text = rss.Fields(3)　　Text6.Text = rss.Fields(4)　　rss.Close&l

55、t;b>　　Else　　MsgBox "沒(méi)有記錄"　　End If　　End Sub　　Private Sub Command2_Click()<

56、;/p>　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　sqlcmd = "S

57、ELECT * FROM yuangong WHERE name='" & Text7.Text & "' "　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient　　rss

58、.Open sqlcmd, conn, 1, 1　　If Not rss.EOF Then　　Text2.Text = rss.Fields(0)　　Text3.Text = rss.Fields(1)　　Text4.Text = rss.Fields(2)</p&

59、gt;　　Text5.Text = rss.Fields(3)　　Text6.Text = rss.Fields(4)　　rss.Close　　Else　　MsgBox &q

60、uot;沒(méi)有記錄"　　End If　　End Sub　　截圖　　3.5員工信息修改界面

61、　代碼　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　Set conn = New ADODB.Con

62、nection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SE

63、LECT * FROM yuangong WHERE number='" & Combo1.Text & "'"　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient　　rs

64、s.Open sqlcmd, conn, 1, 3　　If Not rss.EOF Then　　rss.Fields(1) = Text1.Text　　rss.Fields(2) = Text2.Text　　rss.Fields(3) = Text3.Text</p

65、>　　rss.Fields(4) = Text4.Text　　rss.Update　　rss.Close　　MsgBox "修改成功"　　Else&

66、lt;/p>　　MsgBox "沒(méi)有記錄"　　End If　　Unload Me　　End Sub　　Priv

67、ate Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Command3_Click()　　Set conn = New ADODB.C

68、onnection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd2 As String　　sqlcmd2 = &quo

69、t;SELECT * FROM yuangong WHERE number='" & Combo1.Text & "'"　　Dim rss2 As New ADODB.Recordset　　rss2.CursorLocation = adUseClient<p&g

70、t;　　rss2.Open sqlcmd2, conn, 1, 1　　If Combo1.Text <> "" Then　　Text1.Text = rss2.Fields(1)　　Text2.Text = rss2.Fields(2)

71、Text3.Text = rss2.Fields(3)　　Text4.Text = rss2.Fields(4)　　End If　　rss2.Close　　End Sub&

72、lt;p>　　Private Sub Form_Load()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"<

73、;/p>　　Dim sqlcmd As String　　sqlcmd = "SELECT number FROM yuangong "　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient

74、　　rss.Open sqlcmd, conn, 1, 1　　Combo1.Clear　　While Not rss.EOF　　Combo1.AddItem (rss.Fields("number"))　　rs

75、s.MoveNext　　Wend　　rss.Close　　End Sub　　截圖

76、;　　3.6員工信息刪除界面　　代碼　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()&l

77、t;/p>　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmmd As

78、String　　sqlcmmd = "DELETE FROM yuangong WHERE number='" & Combo1 & "'"　　Dim rst As New ADODB.Recordset　　rst.CursorLocati

79、on = adUseClient　　rst.Open sqlcmmd, conn, 1, 3　　MsgBox "已刪除該記錄!", vbOKOnly, "提示"　　Unload Me<b&

80、gt;　　End Sub　　Private Sub Form_Load()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password

81、=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SELECT number FROM yuangong "　　Dim rss As New ADODB.Recordset

82、;　　rss.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 1　　Combo1.Clear　　While Not rss.EOF　　Combo1.AddItem (rss.Fields("numb

83、er"))　　rss.MoveNext　　Wend　　rss.Close　　End Sub

84、;　　截圖　　3.7出差信息添加界面　　代碼　　Option Explicit　　Dim conn As New ADODB.Connection　　Dim rs As

85、 New ADODB.Recordset　　Private Sub Command1_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;passw

86、ord=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SELECT * FROM chuchai "　　Dim rss As New ADODB.Recordset

87、rss.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 3　　rss.AddNew　　rss.Fields(0) = Text1.Text　　rss.Fields(1) = Text2.Text</p&

88、gt;　　rss.Fields(2) = Text3.Text　　rss.Fields(3) = Text4.Text　　rss.Fields(4) = Text5.Text　　rss.Update　　MsgBox "添加成功"&

89、lt;/p>　　rss.Close　　Unload Me　　End Sub　　Private Sub Command2_Click()<p&g

90、t;　　Unload Me　　End Sub　　Private Sub Command3_Click()　　Text5.Text = Val(Text4.Text) - Val(Text3.Text)<p&g

91、t;　　End Sub　　截圖　　3.8出差信息查詢界面　　代碼　　Dim conn As New ADODB.Connection

92、　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(lo

93、cal);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SELECT * FROM chuchai WHERE number='" & Text1.Text & "'&q

94、uot;　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 1　　If Not rss.EOF Then<

95、p>　　Text4.Text = rss.Fields(0)　　Text5.Text = rss.Fields(1)　　Text6.Text = rss.Fields(2)　　Text7.Text = rss.Fields(3)　　Text8.Text = rss.

96、Fields(4)　　rss.Close　　Else　　MsgBox "沒(méi)有記錄"　　End If

97、;　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Comma

98、nd3_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Di

99、m sqlcmd As String　　sqlcmd = "SELECT * FROM chuchai WHERE name='" & Text2.Text & "'"　　Dim rss As New ADODB.Recordset　　rss

100、.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 1　　If Not rss.EOF Then　　Text4.Text = rss.Fields(0)　　Text5.Text = rss.Fields(1)&

101、lt;/p>　　Text6.Text = rss.Fields(2)　　Text7.Text = rss.Fields(3)　　Text8.Text = rss.Fields(4)　　rss.Close&l

102、t;b>　　Else　　MsgBox "沒(méi)有記錄"　　End If　　End Sub　　截圖

103、　　3.9出差信息修改界面　　代碼　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1

104、_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim s

105、qlcmd As String　　sqlcmd = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"　　Dim rss As New ADODB.Recordset　　rss

106、.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 3　　If Not rss.EOF Then　　rss.Fields(1) = Text1.Text　　rss.Fields(2) = Text2.Text&

107、lt;/p>　　rss.Fields(3) = Text3.Text　　rss.Fields(4) = Text4.Text　　rss.Update　　rss.Close　　MsgBox "修改成

108、功"　　Else　　MsgBox "沒(méi)有記錄"　　End If　　Unload Me&

109、lt;b>　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Command

110、3_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim

111、sqlcmd2 As String　　sqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"　　Dim rss2 As New ADODB.Recordset

112、　rss2.CursorLocation = adUseClient　　rss2.Open sqlcmd2, conn, 1, 1　　If Combo1.Text <> "" Then　　Text1.Text = rss2.Fields(1)

113、;　　Text2.Text = rss2.Fields(2)　　Text3.Text = rss2.Fields(3)　　Text4.Text = rss2.Fields(4)　　End If　　rss2.Close

114、;　　End Sub　　Private Sub Command4_Click()　　Text4.Text = Val(Text3.Text) - Val(Text2.Text)　　End Sub

115、　　Private Sub Form_Load()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"&

116、lt;/p>　　Dim sqlcmd As String　　sqlcmd = "SELECT number FROM chuchai "　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClien

117、t　　rss.Open sqlcmd, conn, 1, 1　　Combo1.Clear　　While Not rss.EOF　　Combo1.AddItem (rss.Fields("number"))　　r

118、ss.MoveNext　　Wend　　rss.Close　　End Sub　　截圖<p&g

119、t;　　3.10出差信息刪除界面　　代碼　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()

120、　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmmd A

121、s String　　sqlcmmd = "DELETE FROM chuchai WHERE number='" & Combo1 & "'"　　Dim rst As New ADODB.Recordset　　rst.CursorLocat

122、ion = adUseClient　　rst.Open sqlcmmd, conn, 1, 3　　MsgBox "已刪除該記錄!", vbOKOnly, "提示"　　Unload Me<b

123、>　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Command3_Cl

124、ick()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlc

125、md2 As String　　sqlcmd2 = "SELECT * FROM chuchai WHERE number='" & Combo1.Text & "'"　　Dim rss2 As New ADODB.Recordset　　rss

126、2.CursorLocation = adUseClient　　rss2.Open sqlcmd2, conn, 1, 1　　If Combo1.Text <> "" Then　　Text1.Text = rss2.Fields(1)　　T

127、ext2.Text = rss2.Fields(2)　　Text3.Text = rss2.Fields(3)　　Text5.Text = rss2.Fields(4)　　End If　　rss2.Close&

128、lt;p>　　End Sub　　Private Sub Form_Load()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User

129、ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SELECT number FROM chuchai "　　Dim rss As New ADODB.Recordset</p&

130、gt;　　rss.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 1　　Combo1.Clear　　While Not rss.EOF　　Combo1.AddItem (rss.Fiel

131、ds("number"))　　rss.MoveNext　　Wend　　rss.Close　　End Sub<

132、p>　　截圖　　3.11管理員修改界面　　代碼　　Option Explicit　　Dim conn As New ADODB.Connection

133、;　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　Set conn = New ADODB.Connection　　conn.Open "Provider=SQLOLEDB.1;Data Source=(local);Use

134、r ID=sa;password=sa;Initial Catalog=worker"　　Dim sqlcmd As String　　sqlcmd = "SELECT * FROM guan WHERE name='" & user & "'"<

135、;p>　　Dim rss As New ADODB.Recordset　　rss.CursorLocation = adUseClient　　rss.Open sqlcmd, conn, 1, 3　　If Text1.Text <> Text2.Text Then<

136、p>　　MsgBox "輸入的密碼不一致！請(qǐng)重新輸入", vbOKOnly, "提示"　　End If　　If Not rss.EOF Then　　rss.Fields("passward") = Text1.

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

溫馨提示

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ì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

職工考勤管理信息系統(tǒng)-課程設(shè)計(jì)報(bào)告

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載