數(shù)據(jù)庫系統(tǒng)畢業(yè)論文(含代碼)-預(yù)覽頁
【正文】 附錄系統(tǒng)設(shè)計的主要代碼如下：數(shù)據(jù)庫連接的代碼如下：ConnectionString = Provider=。 Trim() amp。 。 。添加到ComboBox列表 strItem = (0) amp。默認(rèn)ComboBox Else MsgBox (請先創(chuàng)建用戶信息！) = False Exit Sub End IfEnd SubPrivate Sub CmdOK_Click() Dim rst As Dim password As String 39。 UserID amp。判斷密碼是否正確 If password = Trim() Then LoginSucceeded = True Unload Me Else MsgBox (密碼錯誤！) LoginSucceeded = False End IfEnd SubPrivate Sub cmdCancel_Click() 39。查找權(quán)限 SQL = select 權(quán)限 from 用戶信息表 where 用戶ID=39。 Set rst = SelectSQL(SQL, msg) If 0 Then rights = Trim((0)) Else MsgBox (沒有用戶信息！) Exit Sub End If 39。調(diào)入采購單 Case 4: Call 采購入庫_Click 39。調(diào)入密碼維護 End SelectEnd SubPrivate Sub 采購單_Click() = FalseEnd SubPrivate Sub 采購單分析_Click() = FalseEnd SubPrivate Sub 采購入庫_Click() = FalseEnd SubPrivate Sub 供應(yīng)商資料_Click() = FalseEnd SubPrivate Sub 庫存盤點_Click() = FalseEnd SubPrivate Sub 庫存維護_Click() = FalseEnd SubPrivate Sub 密碼維護_Click() = FalseEnd SubPrivate Sub 商品資料_Click() = FalseEnd SubPrivate Sub 銷售單分析_Click() = FalseEnd SubPrivate Sub 銷售利潤_Click() = FalseEnd SubPrivate Sub 銷售清單_Click() = FalseEnd SubPrivate Sub 用戶管理_Click() = FalseEnd Sub供應(yīng)商資料管理模塊：[7] [9]Option ExplicitDim rs As Dim SQL As StringDim msg As StringDim Index As IntegerDim flag As String 39。裝載數(shù)據(jù) Call ShowData 39。得到查詢條件 colName = 39。 colName amp。 %39。 ORDER BY 供應(yīng)商編號 Set rs = SelectSQL(SQL, msg) Set = rs If = 0 Then 39。編輯控件可用性 = True: = True: = True = False: = False 39。在控件中顯示數(shù)據(jù) If 0 Then 39。移到第一條記錄 If Not Then Case Is = 1 39。所有控件重置 Call ControlClear 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = False: = False: = False = True: = TrueEnd SubPrivate Sub ControlClear()39。設(shè)置控件Enable值 Call ControlEnable(True) 39。錯誤處理 If 0 Then msg = MsgBox(刪除該條記錄嗎?, vbYesNo) If msg = vbYes Then 39。設(shè)置控件Enable值為不可用 Call ControlEnable(False) If = 0 Then 39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。設(shè)置數(shù)據(jù) End If 39。定位到添加或修改記錄 If 0 Then (供應(yīng)商編號=39。) If Not Then Call ShowData 39。檢查供應(yīng)商編號是否為空 msgt = 供應(yīng)商編號為空； 39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) ElseIf Trim(txt(1).Text) = Then 39。返回False Exit Function End If 39。 39。返回False Exit Function End If CheckData = True 39。所有移動控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index End If 39。裝載數(shù)據(jù) Call ShowData 39。23
法律信息相關(guān)推薦
鄂ICP備17016276號-1