圖書(shū)管理系統(tǒng)設(shè)計(jì)方案(文件)
【正文】 LoadPicture( amp。 39。 39。 39。 39。 \ = Date = False Icon = LoadPicture( amp。 amp。 amp。 =39。, , adOpenKeyset, adLockOptimistic Set = rs1 If = 0 Then MsgBox 查無(wú)此書(shū) End SubPrivate Sub Form_Load() Provider=。 \)End SubPrivate Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub MDIForm_Load() = LoadPicture( amp。 amp。 amp。 \)End SubPrivate Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub cmdSearch_Click() On Error Resume Next = adUseClient Select * From 書(shū)庫(kù) Where amp。 \)End SubPrivate Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdEdit_Click()If txt(0).Text = Or txt(1) = Or txt(2) = Or txt(3) = Or txt(4) = Or = Then MsgBox 請(qǐng)單擊行標(biāo)選擇需要修改的圖書(shū)行, vbCritical, 提示 Exit SubElse If txt(0) (0) Then MsgBox 請(qǐng)單擊行標(biāo)選擇需要修改的圖書(shū)行, vbCritical, 提示 Else If MsgBox(確認(rèn)要修改么？, vbYesNo, 提示) = vbYes Then Dim i As Integer For i = 0 To 4 (i) = txt(i).Text Next i (5) = adAffectCurrent MsgBox 修改成功, , 提示 End If End IfEnd IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 4 txt(i).Text = (i) Next i = (5)End SubPrivate Sub Form_Load() Provider=。 adAffectCurrent Dim i As Integer For i = 0 To 4 txt(i) = Next i = 1 End If MsgBox 刪除成功！, , 提示 End IfEnd IfEnd SubPrivate Sub DataGrid1_Click() Dim i As Integer For i = 0 To 4 txt(i).Text = (i) Next i = (5)End SubPrivate Sub Form_Load() Provider=。Data Source= amp。 amp。 amp。 amp。 amp。 amp。自動(dòng)設(shè)置讀者編號(hào) 避免讀者編號(hào)重復(fù) End If txt(0).Enabled = False Icon = LoadPicture( amp。 \)End Sub //權(quán)限Private Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOk_Click() Dim i As Integer If txt(0).Text = Or txt(1).Text = Or txt(2).Text = Or txt(3).Text = Then MsgBox 請(qǐng)輸入完整的信息！ Else 讀者庫(kù), , adOpenKeyset, adLockOptimistic For i = 0 To 3 (i) = txt(i).Text Next i MsgBox 添加新用戶成功！, , 恭喜 txt(0).Text = (0) + 1 For i = 1 To 3 txt(i).Text = Next i End IfEnd SubPrivate Sub Form_Load() Provider=。 If 0 Then MsgBox 有重名！, vbCritical, 警告 Exit Sub End If If txt(2).Text = txt(1).Text Then 系統(tǒng)設(shè)置, , adOpenKeyset, adLockOptimistic (0) = txt(0).Text (1) = txt(1).Text (2) = MsgBox 添加新用戶成功！, , 恭喜 txt(0).Text = txt(1).Text = txt(2).Text = = 1 Else MsgBox 兩次輸入的密碼不相同，請(qǐng)確認(rèn)后重新輸入, vbCritical, 警告 End If End IfEnd Sub //注冊(cè)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1