【正文】 2 = Text3 = Text4 = Text5 = Text7 = Text8 = Text9 = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()If Text4 = Then MsgBox 您輸入學(xué)號(hào)，然后在相應(yīng)處輸入相應(yīng)的資料，修改后將以當(dāng)前資料為準(zhǔn)，學(xué)號(hào)不能修改！ Exit SubEnd IfText4 = LTrim$()Text4 = RTrim$()If Len(Text4) 12 Then MsgBox 您輸入的學(xué)號(hào)過(guò)長(zhǎng)，請(qǐng)從新輸入12個(gè)字符以內(nèi)的學(xué)號(hào)！ Text4 = Exit SubEnd IfIf Text5 = Then MsgBox 請(qǐng)輸入姓名！ Exit SubEnd IfText5 = LTrim$()Text5 = RTrim$()If Len(Text5) 10 Then MsgBox 您輸入的姓名過(guò)長(zhǎng)，請(qǐng)從新輸入10個(gè)字符以內(nèi)的姓名！ Text5 = Exit SubEnd IfIf Text7 = Then MsgBox 請(qǐng)輸入出生日期！ Exit SubEnd IfText7 = LTrim$()Text7 = RTrim$()If IsDate(Text7) = False Then MsgBox 您輸入的出生日期格式不正確，請(qǐng)從新輸入正確的日期如：200896！ Text7 = Exit SubEnd IfText8 = LTrim$()Text8 = RTrim$()If IsDate(Text2) = False Then MsgBox 您輸入的入學(xué)日期格式不正確，請(qǐng)從新輸入正確的日期如：200896！ Text2 = Exit SubEnd IfText9 = LTrim$()Text9 = RTrim$()If Len(Text9) 12 Then MsgBox 您輸入的聯(lián)系電話過(guò)長(zhǎng)，請(qǐng)從新輸入12個(gè)字符以內(nèi)的聯(lián)系電話！ Text9 = Exit SubEnd IfText1 = LTrim$()Text1 = RTrim$()If Len(Text1) 10 Then MsgBox 您輸入的民族過(guò)長(zhǎng)，請(qǐng)從新輸入18個(gè)字符以內(nèi)的民族！ Text1 = Exit SubEnd IfText2 = LTrim$()Text2 = RTrim$()If Len(Text2) 8 Then MsgBox 您輸入的政治面貌過(guò)長(zhǎng)，請(qǐng)從新輸入=8個(gè)字符以內(nèi)的政治面貌！ Text2 = Exit SubEnd IfText3 = LTrim$()Text3 = RTrim$()If Len(Text3) 100 Then MsgBox 您輸入的家庭地址過(guò)長(zhǎng)，請(qǐng)從新輸入100個(gè)字符以內(nèi)的家庭地址！ Text3 = Exit SubEnd Ifa = select * from 系部 where 系部代碼=39。 Text9 amp。 ,39。 , amp。, amp。 Combo4 amp。,39。 Text5 amp。,39。 Text4 amp。,39。 Combo3 amp。,39。 Combo2 amp。,39。 Combo1 amp。,39。 Text3 amp。,39。 Text2 amp。,39。 Text1 amp。If = 1 Then a, conn, 3, 1If 0 Then MsgBox 該學(xué)生已經(jīng)存在請(qǐng)從新輸入！ Text4 = Exit SubElse i = MsgBox(您確認(rèn)要添加該學(xué)生的記錄嗎？, 1 + vbExclamation, 添加學(xué)生記錄) If i = 1 Then a = insert into 學(xué)生 (民族,政治面貌,家庭地址,系部代碼,專業(yè)代碼,班級(jí)代碼,學(xué)號(hào),姓名,性別,出生日期,入學(xué)時(shí)間,聯(lián)系電話)values(39。 Text1 amp。If = 1 Then a, conn, 3, 1If = 0 ThenMsgBox 你輸入的學(xué)號(hào)和您選擇的班級(jí)、專業(yè)、系部不符合，請(qǐng)從新輸入！Exit SubEnd Ifa = select * from 學(xué)生 where 學(xué)號(hào)=39。 Combo1 amp。 and 系部代碼=39。 Combo2 amp。 and 專業(yè)代碼=39。 Combo3 amp。If = 1 Then a, conn, 3, 1If = 0 Then MsgBox 不存在該性別，請(qǐng)您輸入正確的性別！ Exit SubEnd Ifa = select * from 班級(jí) where 班級(jí)代碼=39。 Combo4 amp。If = 1 Then a, conn, 3, 1If = 0 Then MsgBox 不存在該班級(jí)代碼，請(qǐng)您輸入正確的班級(jí)代碼！ Exit SubEnd Ifa = select * from 性別 where 性別=39。 Combo3 amp。If = 1 Then a, conn, 3, 1If = 0 Then MsgBox 不存在該專業(yè)代碼，請(qǐng)您正確輸入專業(yè)代碼！ Exit SubEnd Ifa = select * from 班級(jí) where 班級(jí)代碼=39。 Combo2 amp。If = 1 Then a, conn, 3, 1If = 0 Then MsgBox 不存在該系部，請(qǐng)您正確輸入系部代碼！ Exit SubEnd Ifa = select * from 專業(yè) where 專業(yè)代碼=39。 Combo1 amp。If = 1 Then a, conn, 3, 1End SubPrivate Sub Command1_Click()If Text4 = Then MsgBox 請(qǐng)輸入學(xué)號(hào)！ Exit SubEnd IfText4 = LTrim$()Text4 = RTrim$()If Len(Text4) 12 Then MsgBox 您輸入的學(xué)號(hào)過(guò)長(zhǎng)，請(qǐng)從新輸入12個(gè)字符以內(nèi)的學(xué)號(hào)！ Text4 = Exit SubEnd IfIf Text5 = Then MsgBox 請(qǐng)輸入姓名！ Exit SubEnd IfText5 = LTrim$()Text5 = RTrim$()If Len(Text5) 10 Then MsgBox 您輸入的姓名過(guò)長(zhǎng)，請(qǐng)從新輸入10個(gè)字符以內(nèi)的姓名！ Text5 = Exit SubEnd IfIf Text7 = Then MsgBox 請(qǐng)輸入出生日期！ Exit SubEnd IfText7 = LTrim$()Text7 = RTrim$()If IsDate(Text7) = False Then MsgBox 您輸入的出生日期格式不正確，請(qǐng)從新輸入正確的日期如：200896！ Text7 = Exit SubEnd IfText8 = LTrim$()Text8 = RTrim$()If IsDate(Text8) = False Then MsgBox 您輸入的入學(xué)時(shí)間格式不正確，請(qǐng)從新輸入正確的日期如：200896！ Text8 = Exit SubEnd IfText9 = LTrim$()Text9 = RTrim$()If Len(Text9) 12 Then MsgBox 您輸入的聯(lián)系電話過(guò)長(zhǎng)，請(qǐng)從新輸入12個(gè)字符以內(nèi)的聯(lián)系電話！ Text9 = Exit SubEnd IfText1 = LTrim$()Text1 = RTrim$()If Len(Text1) 10 Then MsgBox 您輸入的民族過(guò)長(zhǎng)，請(qǐng)從新輸入18個(gè)字符以內(nèi)的民族！ Text1 = Exit SubEnd IfText2 = LTrim$()Text2 = RTrim$()If Len(Text2) 8 Then MsgBox 您輸入的政治面貌過(guò)長(zhǎng)，請(qǐng)從新輸入=8個(gè)字符以內(nèi)的政治面貌！ Text2 = Exit SubEnd IfText3 = LTrim$()Text3 = RTrim$()If Len(Text3) 100 Then MsgBox 您輸入的家庭地址過(guò)長(zhǎng)，請(qǐng)從新輸入100個(gè)字符以內(nèi)的家庭地址！ Text3 = Exit SubEnd Ifa = select * from 系部 where 系部代碼=39。 d amp。 where 序號(hào)=39。 b amp。If = 1 Then c, conn, 3, 1 d = rs(0)a = update 登陸記錄 set 退出時(shí)間=39。 用戶名 amp。 If = 1 Then a, conn, 3, 1 MsgBox 刪除成功！ Exit Sub End If Else MsgBox 沒有記錄可以刪除！ Text1 = Exit Sub End IfEnd SubPrivate Sub Form_Load()Select Case qx Case 1 = True = True = True = True = True Case 2 = True = True = True = True = True Case 3 = True = True = False = True = False Case Else = True = True = False = True = FalseEnd SelectText1 = Text2 = End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)b = Nowc = select max(序號(hào)) from 登陸記錄 where 用戶名=39。 Text1 amp。 If = 1 Then a, conn, 3, 1 a = delete from 學(xué)生 where 學(xué)號(hào)=39。 Tex