【正文】 on ExplicitDim rs_zhiban As New Private Sub cmdadd_Click()On Error GoTo adderrorIf = 確定增加記錄 Then 39。當(dāng)此按鈕的狀態(tài)為為“增加記錄”時 = 確定 39。按鈕名稱改為“確定” = False = True = True = True 39。設(shè)定datagrid可以增加記錄ElseIf Not IsNull() Then If Not IsDate(Trim((值班開始日期).CellText())) Then MsgBox 請按照格式y(tǒng)yyymmdd輸入值班開始日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((值班開始時間).CellText())) Then MsgBox 請按照格式hhmm輸入值班開始時間, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((值班截止日期).CellText())) Then MsgBox 請按照格式y(tǒng)yyymmdd輸入值班截止日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((值班截止時間).CellText())) Then MsgBox 請按照格式hhmm輸入值班截止時間, vbOKOnly + vbExclamation, Exit Sub End If If Trim((值班人).CellText()) = Then MsgBox 值班人不能為空！, vbOKOnly + vbExclamation, Exit Sub End If 39。MsgBox 添加信息成功！, vbOKOnly + vbExclamation, = False = FalseElse MsgBox 沒有添加信息！, vbOKOnly + vbExclamation, End If = 確定增加記錄 = TrueEnd Ifadderror:If 0 Then MsgBox End IfEnd SubPrivate Sub cmdcancel_Click()Unload MeEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要刪除嗎？, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除！, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 值班管理 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_zhibanExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub（7）查詢輸出子窗體代碼Option ExplicitDim rs_find As New Private Sub Command1_Click()On Error GoTo cmderrorDim find_date1 As StringDim find_date2 As StringIf = True Then sqlfind = select * from 散客資料 where 房號 between 39。 amp。 _ Combo1(0).Text amp。 39。 amp。 and amp。 39。 amp。 Combo1(1).Text amp。 39。End IfIf = True Then find_date1 = Format(CDate(Comboy(0).Text amp。 amp。 _ Combom(0).Text amp。 amp。 Combod(0).Text), yyyymmdd) find_date2 = Format(CDate(Comboy(1).Text amp。 amp。 _ Combom(1).Text amp。 amp。 Combod(1).Text), yyyymmdd) sqlfind = select * from 散客資料 where 抵達(dá)日 between amp。 _ find_date1 amp。 amp。 and amp。 amp。 find_date2 amp。 End If sqlfind, conn, adOpenKeyset, adLockPessimisticUnload Mecmderror:If 0 Then MsgBox 請輸入正確的查詢條件！, vbOKOnly + vbExclamation, 警告End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim i As IntegerDim sql As String39。If findok = True Then 39。 39。End Ifsql = select * from 散客資料 order by 房號 desc = adUseClient sql, conn, adOpenKeyset, adLockPessimisticIf = False Then 39。添加編號 With rs_find Do While Not .EOF Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext Loop End WithEnd IfFor i = 2001 To 2005 39。添加年 Comboy(0).AddItem i Comboy(1).AddItem iNext iFor i = 1 To 12 39。添加月 Combom(0).AddItem i Combom(1).AddItem iNext iFor i = 1 To 31 39。添加日 Combod(0).AddItem i Combod(1).AddItem iNext iEnd SubPrivate Sub Form_Unload(Cancel As Integer)End Sub（8）用戶登錄子窗體代碼Option ExplicitDim t As Integer 39。記錄確定次數(shù)Private Sub Command1_Click()Dim sql As StringDim rs_login As New If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶, vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbOKOnly + vbExclamation, Else 39。檢驗密碼是否正確 If Trim((1)) = Trim() Then userID = userpow = (2) Unload Me Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, End If End IfEnd Ift = t + 1If t = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = provider=。 amp。 _ data source= connectionstringt = 0End Sub