學校社團信息管理系統(tǒng)—計算機畢業(yè)設計論文-資料下載頁
2024-08-15 08:18本頁面
【正文】 ick()If = ThenMsgBox 沒有輸入查詢條件！, 16, 提示！ = End IfDo While TrueIf (編號).Value = Then = (編號).ValueExit DoEnd IfLoop = End Sub 社團和會費查詢Private Sub Command1_Click() = TrueIf = ThenMsgBox 沒有輸入查詢條件！, 16, 提示！ = End IfDo While TrueIf (社團部).Value = Then = (社團部).ValueExit DoEnd IfLoop = End SubPrivate Sub Command1_KeyPress(KeyAscii As Integer)Print KeyAsciiEnd SubPrivate Sub Command2_Click() = True = 查詢另一個 = 4200 = 4081If = ThenMsgBox 沒有輸入查詢條件！, 16, 提示！ = 輸入社團名進行查詢End IfDo While TrueIf (社團部).Value = Then = (社團部).ValueExit DoEnd IfLoop = End SubPrivate Sub Timer1_Timer() = TimeEnd Sub 超級用戶登錄代碼Private Sub Command1_Click()If Trim() = Trim() And Trim() = Trim() Then Unload MeElseFor X = 1 To 1If = True ThenMsgBox 您輸入的用戶名和密碼有誤，請重新輸入！, 16, 出錯： = = = 1Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End IfEnd IfNext XEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 歡迎使用的代碼Private Sub Label4_Click()Unload MeEnd SubPrivate Sub Picture1_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()If + 0 Then 20Else = End IfEnd Sub 社團設置的代碼Private Sub Command1_Click() = True = True = True = True = True = True = TrueIf = True ThenIf = True And = True ThenMsgBox 您的數(shù)據(jù)庫中沒有記錄！, 16, 出錯：ElseIf = 修改記錄 Then = 設置完畢 = False = False = False = False = 8220 = 300 = True = 修改記錄：ElseIf = ThenMsgBox 姓名不能為空！, 16, 出錯：Else For X = 11 To 13 If Len(Trim()) 200 Then MsgBox 太長, 16, 出錯： Exit Sub End If Next X = 修改記錄 = True = True = True = True = 5728 = 600 = 1500 = False = 數(shù)據(jù)輸入：End IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()If = Or = ThenMsgBox 社團部名稱和部長不能為空！, 16, 出錯：ElseMsgBox 成功保存！, 64, 恭喜！ = True = True = TrueEnd IfEnd SubPrivate Sub Command3_Click() = True = True = True = True = True = True = TrueIf = Or = ThenMsgBox 社團部名稱和部長不能為空！, 16, 出錯： = ElseMsgBox 開始新建社團！, 64, 恭喜！ = False = False = FalseEnd IfEnd SubPrivate Sub Command4_Click()If = True And = True ThenMsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！, 16, 出錯！ElseMsgBox 您確定要刪除這條信息？, 32, 提示！If = False ThenElseMsgBox 您的數(shù)據(jù)庫中沒有信息可以刪除！, 16, 出錯！End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)If = True ThenCancel = 0ElseMsgBox 請編輯完這條記錄再退出！, 64, 提示： Cancel = 1End IfEnd Sub 關于社團管理系統(tǒng)的代碼Private Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(1).ForeColor = vbBlackEnd SubPrivate Sub Label2_Click(Index As Integer) Dim p As String p = mailto:4310031@ End SubPrivate Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(1).ForeColor = vbBlueEnd Sub 主界面的代碼Private Sub A1_Click()Unload Me 39。關閉當前窗體End SubPrivate Sub a2_Click()Unload MeEnd SubPrivate Sub a3_Click() = 9345 = 12870End SubPrivate Sub b1_Click() = 8355 = 13710End SubPrivate Sub bz_Click()End SubPrivate Sub c1_Click() = 9510 = 13875End SubPrivate Sub C2_Click() = 6795 = 10020 = True = 輸入社團名進行查詢End SubPrivate Sub c3_Click() = 社團費查詢 = 4200 = 4081 = 495 = 2055 = True = 輸入社團部名稱End SubPrivate Sub cz_Click() 2End SubPrivate Sub dc_Click() 0End SubPrivate Sub glysx_Click()End SubPrivate Sub gy_Click()End SubPrivate Sub pp_Click() 1End SubPrivate Sub stsz_Click() = 6930 = 8400End SubPrivate Sub tc_Click()MsgBox 也讓我和你同樂啊, 64, 好用就行呀39。Unload MeEndEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case key1 = 8355 = 13710Case key2 = 9510 = 13875Case key3 = 6795 = 10020 = True = 輸入社團名進行查詢Case key4Case key7 = 6930 = 8400Case key6MsgBox 做任何事情都要有信心和耐心, 64, 切記?。篣nload MeEnd SelectEnd Sub
語文相關推薦
鄂ICP備17016276號-1