圖書管理系統(tǒng)設計方案-資料下載頁
2025-05-10 00:27本頁面
【正文】 b 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。 \ = adUseClient 書庫, , adOpenKeyset, adLockOptimistic Set = rs1 txt(0).Enabled = False Icon = LoadPicture( 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 請單擊行標選擇需要修改的圖書行, vbCritical, 提示 Exit SubElse If txt(0) (0) Then MsgBox 請單擊行標選擇需要修改的圖書行, vbCritical, 提示 Else If MsgBox(確認要修改么？, 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=。Data Source= amp。 amp。 \ = adUseClient 書庫, , adOpenKeyset, adLockOptimistic Set = rs1 txt(0).Enabled = False Icon = LoadPicture( amp。 \)End SubPrivate Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub cmdSearch_Click() On Error Resume Next = adUseClient Select * From 書庫 Where amp。 amp。 =39。 amp。 amp。 39。, , adOpenKeyset, adLockOptimistic Set = rs1 If = 0 Then MsgBox 查無此書 End SubPrivate Sub Form_Load() Provider=。Data Source= amp。 amp。 \ 書號 書名 作者 出版社 類別 Icon = LoadPicture( amp。 \)End SubPrivate Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub MDIForm_Load() = LoadPicture( amp。 \)End SubPrivate Sub mnuAbout_Click() vbModalEnd SubPrivate Sub mnuAddNew_Click() vbModalEnd SubPrivate Sub mnuAddR_Click() vbModalEnd SubPrivate Sub mnuBookAdd_Click() vbModalEnd SubPrivate Sub mnuBookB_Click() vbModalEnd SubPrivate Sub mnuBookDelete_Click() vbModalEnd SubPrivate Sub mnuBookEdit_Click() vbModalEnd SubPrivate Sub mnuBookFind_Click() End SubPrivate Sub mnuBookR_Click() vbModalEnd SubPrivate Sub mnuEditP_Click() vbModalEnd SubPrivate Sub mnuExit_Click() EndEnd SubPrivate Sub mnuRDelete_Click() vbModalEnd SubPrivate Sub mnuREdit_Click() End SubPrivate Sub mnuSearch_Click() End SubOption ExplicitPublic As New Public rs1 As New , rs2 As New Public rs3 As New , rs4 As New Public rs5 As New , rs6 As New Public BlnQX As BooleanPublic Function QX() If BlnQX = False Then = False = False = False = False End IfEnd Function THANKS !!!致力為企業(yè)和個人提供合同協(xié)議，策劃案計劃書，學習課件等等打造全網一站式需求歡迎您的下載，資料僅供參考可修改編輯
公司管理相關推薦
鄂ICP備17016276號-1