數(shù)據(jù)庫課程設(shè)計—物資管理系統(tǒng)-資料下載頁

　　

【正文】 的顯示物資編號的組合框與記錄集MyRS1的學號字段綁定 = = 1End SubPrivate Sub sc12_Click() Dim strSql As String 39。 strSql用于保存查詢字符串 = False 39。 設(shè)置顯示物資編號的組合框有效 = False 39。 設(shè)置顯示物資編號的文字提示有效 = True 39。 設(shè)置顯示物資名稱的組合框有效 = True 39。 設(shè)置顯示物資名稱的文字提示無效 strSql = SELECT DISTINCT wzname FROM material 39。產(chǎn)生查詢字符串，用于從物資表中選擇物資名稱。 If = adStateOpen Then 39。 如果記錄集MyRS1處于打開狀態(tài) 39。 關(guān)閉記錄集MyRS1 End If strSql, Mycon, adOpenStatic, adLockReadOnly 39。按查詢字符串strSql指定的查詢產(chǎn)生記錄集 Set = MyRs1 39。設(shè)置Form16的顯示物資名稱的組合框的數(shù)據(jù)源為MyRS1 = wzname 39。設(shè)置Form16的顯示物資名稱的組合框與記錄集MyRS1的物資名稱字段綁定 = = 1End SubPrivate Sub tc_Click() If = adStateOpen Then End If If = adStateOpen Then End If If = adStateOpen Then End If Set MyRs = Nothing Set MyRs1 = Nothing Set MyRs2 = Nothing Set Mycon = Nothing Unload MeEnd SubPrivate Sub sg2_Click()End SubPrivate Sub tij1_Click() 39。 添加物資基本信息 1End SubPrivate Sub xg1_Click() If = adStateOpen Then 39。 如果記錄集MyRS處于打開狀態(tài) 39。 關(guān)閉記錄集MyRS End If material, Mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable 1End Sub添加物資基本信息代碼Private Sub Command1_Click() Dim strInsert As String strInsert = INSERT INTO material VALUES(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) On Error GoTo errhandle 39。 如果出錯則轉(zhuǎn)向errhandler處執(zhí)行 39。 開始事務(wù) (strInsert) 39。 執(zhí)行添加 39。 提交事務(wù) MsgBox 添加成功 39。 顯示添加操作完成的提示消息 = : = : = : = : = 39。 清空在界面上錄入的信息 Exit Suberrhandle: 39。 錯誤處理程序入口，當添加操作出現(xiàn)錯誤時執(zhí)行 MsgBox 添加失敗 39。 撤銷事務(wù)End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub刪除物資基本信息代碼Private Sub Command1_Click() Dim strDelete As String, StudName As String If Trim() And Trim() = Then strDelete = DELETE material WHERE wzid LIKE 39。 amp。 Trim() amp。 %39。 ElseIf Trim() = And Trim() Then strDelete = DELETE material WHERE wzname LIKE 39。 amp。 Trim() amp。 %39。 Else Exit Sub End If strDelete a = MsgBox(確定要刪除指定的物資基本信息嗎?, vbOKCancel + vbExclamation, 注意) If a = vbOK Then MsgBox 指定的物資基本信息已經(jīng)從數(shù)據(jù)庫中刪除, vbInformation, 注意 Else MsgBox 刪除被撤消, vbExclamation, 注意 End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End Sub修改物資基本信息代碼Private Sub Command1_Click() 39。 按確定按鈕，進行批更新End SubPrivate Sub Command2_Click() 39。 按取消按鈕，取消批更新End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Activate() Set = MyRsEnd SubPrivate Sub Form_Unload(Cancel As Integer) Set = Nothing End Sub余額統(tǒng)計代碼Private Sub Command1_Click() Dim total As Integer, strSql As String 39。 生成查詢字符串 strSql = SELECT count(*) FROM msurplus WHERE yename like39。% amp。 Trim() amp。 %39。 If = adStateOpen Then End If 39。 執(zhí)行統(tǒng)計 Set MyRs = (strSql) 39。 取出統(tǒng)計結(jié)果 total = (0) MsgBox Trim() amp。 該物資的余額總數(shù)為： amp。 Str(total), , 統(tǒng)計結(jié)果End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) If = adStateOpen Then End If Set = NothingEnd Sub 28