freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

以access為數(shù)據(jù)庫的酒店管理系統(tǒng)設(shè)計(jì)與開發(fā)畢業(yè)論文(編輯修改稿)

2024-07-25 03:17 本頁面
 

【文章內(nèi)容簡介】 MsgBox End IfEnd SubPrivate Sub Command4_Click()If = 確定 Then = False = False = 新增記錄 = True = True = FalseElseIf = 確定 Then = False = 修改記錄 = True = True = FalseEnd If = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 散客資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_client = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd SubEnd Sub本窗體用來錄入團(tuán)隊(duì)入住的信息,也是用ADO連接數(shù)據(jù)庫。定義變量:Option ExplicitDim rs_dclient As New “新增記錄”按鈕要求先填寫基本信息,然后與數(shù)據(jù)庫信息比較。Private Sub Command1_Click()On Error GoTo adderrorIf = 新增記錄 Then 39。當(dāng)此按鈕的狀態(tài)為為“增加記錄”時 = 確定 39。按鈕名稱改為“確定” = False 39。刪除與修改按鈕不可用 = False = True 39。取消按鈕可用 = True = True 39。設(shè)定datagrid可以增加記錄ElseIf Not IsNull() Then If Trim((團(tuán)隊(duì)名稱).CellText()) = Then MsgBox 團(tuán)隊(duì)名稱不能為空!, vbOKOnly + vbExclamation, Exit Sub End If If Trim((負(fù)責(zé)人姓名).CellText()) = Then MsgBox 負(fù)責(zé)人姓名不能為空!, vbOKOnly + vbExclamation, Exit Sub End If If Trim((證件號碼).CellText()) = Then MsgBox 證件號碼不能為空!, vbOKOnly + vbExclamation, Exit Sub End If If Trim((房間號碼).CellText()) = Then MsgBox 房間號碼!, vbOKOnly + vbExclamation, Exit Sub End If MsgBox 添加信息成功!, vbOKOnly + vbExclamation, = False = FalseElse MsgBox 沒有添加信息!, vbOKOnly + vbExclamation, End If = 新增記錄 = True = True = FalseEnd Ifadderror:If 0 Then MsgBox End IfEnd Sub“修改記錄”按鈕的部分代碼如下:Private Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf = 修改記錄 Then answer = MsgBox(確定要修改嗎?, vbYesNo, ) If answer = vbYes Then = 確定 = False = False = True = True Else Exit Sub End IfElse If Not IsNull() Then End If = 修改記錄 = True = True = False = False MsgBox 修改成功!, vbOKOnly + vbExclamation, End Ifcmdmodify:If 0 Then MsgBox End IfEnd Sub選擇入住信息列表中需要刪除的記錄,然后單擊“刪除記錄”按鈕,可以刪除所選記錄?!皠h除”按鈕的代碼如下:Private Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(確定要刪除嗎?, vbYesNo, )If answer = vbYes Then = True MsgBox 成功刪除!, vbOKOnly + vbExclamation, = FalseElse Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command4_Click()If = 確定 Then = False = False = 新增記錄 = True = True = FalseElseIf = 確定 Then = False = 修改記錄 = True = True = FalseEnd If = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End Sub窗體載入時自動在網(wǎng)絡(luò)中添加數(shù)據(jù)庫中的信息,代碼如下:Private Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 團(tuán)隊(duì)資料 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。打開數(shù)據(jù)庫39。設(shè)定datagrid控件屬性 = False 39。不可增加 = False 39。不可刪除 = FalseSet = rs_dclient = FalseExit Subloaderror: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)Set = NothingEnd Sub. 增加用戶窗體是用來增加用戶的用戶名、密碼和權(quán)限的。單擊“確定”按鈕后,還要返回一個信息框,提示成功的信息。 窗體部分代碼的思路是,收集輸入的表中的字符串,然后與數(shù)據(jù)庫中的系統(tǒng)的用戶數(shù)據(jù)比較,如果不存在,則允許添加。Private Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個用戶, vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() = Then MsgBox 密碼不能為空,請重新輸入!, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = 下面是返回成功信息對話窗口的代碼: MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() system guestEnd Sub修改密碼子窗體是用來修改用戶密碼的。 修改密碼子窗體運(yùn)行效果在“確定”按鈕的Click事件中添加如下代碼:Private
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評公示相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1