vb_access設(shè)計(jì)圖書管理系統(tǒng)設(shè)計(jì)書(文件)
【正文】 在思路上是完全相同的。 修改狀態(tài)標(biāo)志 Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() On Error GoTo loaderror Dim sql As String sql = select * from 圖書資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic While Not (0) Wend findok = True modify = False 39。其運(yùn)行效果如圖41所示。 _ Combo1(0).Text amp。 39?！ nd If If = True Then find_date1 = Format(CDate(Comboy(0).Text amp。 Combod(0).Text), yyyymmdd) find_date2 = Format(CDate(Comboy(1).Text amp。 Combod(1).Text), yyyymmdd) sqlfind = select * from 圖書資料 where 購買日期 between amp。 amp。 添加編號(hào) With rs_find Do While Not .EOF Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext Loop End With End If For i = 2001 To 2005 39。 圖42 查詢結(jié)果 200631 16:26:00 顯示目錄 (6) 用戶登錄子窗體代碼 運(yùn)行的用戶登錄子窗體如圖43所示。 amp。 amp。 檢驗(yàn)密碼是否正確 用戶名和密碼通過后，要關(guān)閉本窗體并打開主窗體。 圖44 運(yùn)行的值班管理子窗體 先定義連接數(shù)據(jù)庫的變量: Option Explicit Dim rs_zhiban As New 然后列出窗體部分的代碼。 設(shè)定DataGrid可以增加記錄 Else If Not IsNull() Then If Not IsDate(Trim((值班開始日期).CellText())) Then MsgBox 請按照格式y(tǒng)yyymmdd輸入值班開始日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim((值班開始時(shí)間).CellText())) Then MsgBox 請按照格式hhmm輸入值班開始時(shí)間, 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((值班截止時(shí)間).CellText())) Then MsgBox 請按照格式hhmm輸入值班截止時(shí)間, vbOKOnly + vbExclamation, Exit Sub End If If Trim((值班人).CellText()) = Then MsgBox 值班人不能為空!, vbOKOnly + vbExclamation, Exit Sub End If MsgBox 添加信息成功!, vbOKOnly + vbExclamation, = False = False Else MsgBox 沒有添加信息!, vbOKOnly + vbExclamation, End If = 新增記錄 = True End If adderror: If 0 Then MsgBox End If End Sub Private Sub cmdcancel_Click() Unload Me End Sub Private Sub cmddel_Click() Dim answer As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎?, vbYesNo, ) If answer = vbYes Then = True MsgBox 成功刪除!, vbOKOnly + vbExclamation, = False Else Exit Sub End If delerror: If 0 Then MsgBox End If End Sub Private Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = select * from 值班管理 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。 不可刪除 = False Set = rs_zhiban Exit Sub loaderror: MsgBox End Sub Private Sub Form_Unload(Cancel As Integer) Set = Nothing End Sub (8) 投訴管理子窗體代碼 投訴管理子窗體是為了對人員進(jìn)行更好的管理而設(shè)置的，可以向其添加投訴的對象、時(shí)間和內(nèi)容等?！ D45 運(yùn)行的投訴管理子窗體 以下為窗體的代碼: Private Sub Command1_Click() On Error GoTo adderr Exit Sub adderr: MsgBox End Sub Private Sub Command2_Click() On Error GoTo deleteerr With If Not .EOF And Not .BOF Then If MsgBox(刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End If End With Exit Sub deleteerr: MsgBox End Sub Private Sub Command3_Click() If Then MsgBox 這是第一條記錄, vbOKCancel + vbQuestion End If End Sub Private Sub Command4_Click() If Then MsgBox 這是最后一條記錄, vbOKCancel + vbQuestion End If End Sub Private Sub Command5_Click() If Then MsgBox 記錄空, vbOKCancel + vbQuestion End Else End If Exit Sub End Sub P
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1