【文章內(nèi)容簡(jiǎn)介】 nd IfIf 60 Then = 不及格End IfIf = 60 And 70 Then = 合格End IfIf = 70 And 80 Then = 中等End IfIf = 80 And 90 Then = 良好End IfIf = 90 And = 100 Then = 優(yōu)秀End IfIf 60 Then = 不及格End IfIf = 60 And 70 Then = 合格End IfIf = 70 And 80 Then = 中等End IfIf = 80 And 90 Then = 良好End IfIf = 90 And = 100 Then = 優(yōu)秀End IfIf 60 Then = 不及格End IfIf = 60 And 70 Then = 合格End IfIf = 70 And 80 Then = 中等End IfIf = 80 And 90 Then = 良好End IfIf = 90 And = 100 Then = 優(yōu)秀End IfEnd SubPrivate Sub stuXX_Click() = True = False = False = FalseEnd SubPrivate Sub Timer1_Timer() = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now())) = Trim(FormatDateTime(Now()))End SubPrivate Sub xgmm_Click() = Provider=。Persist Security Info=False。Data Source=denglu = adCmdText = select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)=39。 amp。 Trim() amp。 39。 = False = True = False = FalseEnd SubPrivate Sub zx_Click()Unload MeEnd Sub實(shí)現(xiàn)代碼如下：Private Sub Combo1_click()If = 學(xué)生學(xué)號(hào) Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Combo2_Click()If = 查詢信息 Then = False = False = False = False = False = False = False = FalseElse = True = True = True = True = True = True = True = TrueEnd IfEnd SubPrivate Sub Combo4_click()If = 查詢成績(jī) Then = FalseElse = TrueEnd IfEnd SubPrivate Sub Combo5_click()If = 學(xué)生學(xué)號(hào) Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Command1_Click()If = ThenMsgBox 選擇操作方式Exit SubElseIf = ThenMsgBox 選擇查詢方式Exit SubEnd IfEnd If = select * from 學(xué)生信息 where amp。 Trim() amp。 = 39。 amp。 Trim() amp。 39。If = 0 ThenMsgBox 沒有記錄 Else = (0) = (2) = (3) = (4) = (5) = (6) = (7)End IfIf ThenMsgBox 該學(xué)生非本班學(xué)生不能查詢 = = = = = = = = End IfEnd SubPrivate Sub Command10_Click() = = = = = = End SubPrivate Sub Command11_Click()If (密碼) ThenMsgBox 當(dāng)前密碼輸入錯(cuò)誤Exit SubEnd IfIf ThenMsgBox 新密碼輸入錯(cuò)誤Else(密碼).Value = MsgBox 修改成功End IfEnd SubPrivate Sub Command2_Click()If = ThenMsgBox 選擇操作方式ElseIf = ThenMsgBox 選擇查詢條件Exit SubEnd IfEnd If = Provider=。Persist Security Info=False。Data Source=chengji。Initial Catalog=StudentManage = adCmdText = select * FROM amp。 Trim() + Trim() amp。 where amp。 Trim() amp。 =39。 amp。 Trim() amp。 39。 If = 0 ThenMsgBox 沒有記錄 Else = (1) = (0) = (2) = (3) = (4) = (5)End IfEnd SubPrivate Sub Command3_Click()If = Or = Or = Or = Or = Or = Or = Or = ThenMsgBox 請(qǐng)輸入完整信息！ElseWith If .RecordCount = 0 ThenMsgBox 沒有記錄 ElseEnd If(學(xué)生學(xué)號(hào)).Value = (姓名).Value = (性別).Value = (出生日期).Value = (入學(xué)時(shí)間).Value = (學(xué)院).Value = (班級(jí)).Value = End With = = = = = = = = 39。End IfEnd SubPrivate Sub Command4_Click() = = = = = = = = End SubPrivate Sub Command5_Click()If = ThenMsgBox 查詢條件為空Else = 1 = select * from 學(xué)生信息 where amp。 amp。 =39。 amp。 amp。 39。If = 0 Then MsgBox 沒有記錄 = + 1Else = (0) = (2) = (3) = (4) = (5) = (6) = (7)End IfEnd IfEnd SubPrivate Sub Command6_Click()If = ThenMsgBox 查詢條件為空Else = + 1 = select * from 學(xué)生信息 where amp。 amp。 =39。 amp。 amp。 39。If = 0 Then MsgBox 沒有記錄 = 1Else = (0) = (2) = (3) = (4) = (5) = (6) = (7)End IfEnd IfEnd SubPrivate Sub Command7_Click()If = Or = Or = Or = ThenMsgBox 請(qǐng)輸入完整信息！ElseWith If = 0 ThenMsgBox 沒有記錄 ElseEnd If(2).Value = (3).Value = (4).Value = (5).Value = End With = (1) = (0) = (2) = (3) = (4) = (5)39。End IfEnd SubPrivate Sub Command8_Click()If = ThenMsgBox 查詢條件為空Else = 1 = Provider=。Persist Security Info=False。Data Source=chengji。Initial Catalog=StudentManage = adCmdText = select * FROM amp。 Trim() + Trim() amp。 where amp。 Trim() amp。 =39。 amp。 Trim() amp。 39。 If = 0 ThenMsgBox 沒有記錄 = + 1Else = (1) = (0) = (2) = (3) = (4) = (5)End IfEnd IfEnd SubPrivate Sub Command9_Click()If = ThenMsgBox 查詢條件為空Else = + 1 = Provider=。Persist Security Info=False。Data Source=chengji。Initial Catalog=StudentManage = adCmdText = select * FROM amp。 Trim() + Trim() amp。 where amp。 Trim() amp。 =39。 amp。 Trim() amp。 39。 If = 0 ThenMsgBox 沒有記錄 = 1Else = (1) = (0) = (2) = (3) = (4) = (5)End IfEnd IfEnd SubPrivate Sub Form_Load() = False = False = False = False = False = False = False = False = ( ) / 2 = ( ) / 2 = False = False = False = True = False = False = False = = Provider=。Persist Security Info=False。Data Source=chengji。Initial Catalog=StudentManage = adCmdText = sele