數(shù)據(jù)庫系統(tǒng)畢業(yè)論文(含代碼)-資料下載頁
2025-06-22 14:58本頁面
【正文】 heckData Then Exit Sub 39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。如果是修改數(shù)據(jù) msg = MsgBox(您確實要修改這條數(shù)據(jù)嗎?, vbYesNo) If msg = vbYes Then Call setData 39。設(shè)置數(shù)據(jù) Else Exit Sub End If ElseIf flag = Add Then 39。如果是添加新數(shù)據(jù) Call setData 39。設(shè)置數(shù)據(jù) End If 39。更新數(shù)據(jù) 39。移動控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù)!) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadData 39。重新裝載數(shù)據(jù) 39。定位到添加或修改記錄 If 0 Then (供應(yīng)商編號=39。 amp。 Trim((0).Text) amp。 39。) If Not Then Call ShowData 39。重新顯示數(shù)據(jù) End If Exit SubErrMsg: MsgBox , vbExclamation, 出錯End SubPrivate Function CheckData() As Boolean39。檢查數(shù)據(jù)的合法性 Dim rst As Dim msgt As String msgt = 39。檢查數(shù)據(jù) If Trim(txt(0).Text) = Then 39。檢查供應(yīng)商編號是否為空 msgt = 供應(yīng)商編號為空； 39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) ElseIf Not Len(Trim(txt(0).Text)) = 4 Then 39。檢查供應(yīng)商編號是否為4位 msgt = msgt amp。 供應(yīng)商編號不是4位； 39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) ElseIf Trim(txt(1).Text) = Then 39。檢查供應(yīng)商名稱是否為空 msgt = 供應(yīng)商名稱為空； 39。光標(biāo)定位 txt(1).SetFocus txt(1).SelStart = 0 txt(1).SelLength = Len(txt(1).Text) End If If Not msgt = Then 39。如果不為空，給出錯誤提示 MsgBox (msgt) CheckData = False 39。返回False Exit Function End If 39。檢查唯一性 SQL = select * from 供應(yīng)商資料表 where 供應(yīng)商編號=39。 amp。 Trim(txt(0).Text) amp。 39。 Set rst = SelectSQL(SQL, msg) 39。如果是進行添加操作且已經(jīng)存在該記錄，提示重復(fù)添加 If flag = Add And 0 Then MsgBox (該信息已經(jīng)存在，重復(fù)添加!) 39。光標(biāo)定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) CheckData = False 39。返回False Exit Function End If CheckData = True 39。合法返回TrueEnd FunctionPrivate Sub setData()39。為字段設(shè)置數(shù)據(jù) (供應(yīng)商編號) = (0).Text (供應(yīng)商名稱) = (1).Text For Index = 2 To 4 (Index) = (Index).Text Next Index (提供商品) = (5).TextEnd SubPrivate Sub cmdCancel_Click() Call ShowData 39。重新在控件中顯示信息 If 0 Then 39。所有移動控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index End If 39。設(shè)置控件Enable值為不可用 Call ControlEnable(False) 39。修改、刪除、添加按鈕可用,保存和取消按鈕不可用 = True: = True: = True； = False: = FalseEnd SubPrivate Sub CmdQuery_Click()39。查詢操作 Call LoadData 39。裝載數(shù)據(jù) Call ShowData 39。顯示數(shù)據(jù)End SubPrivate Sub CmdExit_Click()39。退出操作 = True Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)39。退出操作 = True Unload MeEnd Sub系統(tǒng)其它各模塊代碼與供應(yīng)商資料模塊代碼類似。23
法律信息相關(guān)推薦
鄂ICP備17016276號-1