vbExclamation, \信息提示\
Combo8.SetFocus Exit Sub End If End If End If End If End If
If Combo6.Text = \Combo9.Text = \ MsgBox \请输入完整的日期\警告\
Exit Sub End If
str1 = Trim(Combo6) & \ str2 = Trim(Combo9) & \ str1 = Format(str1, \ str2 = Format(str2, \ If sqlstr = \
sqlstr = \
\\ Else
sqlstr = sqlstr & \
Format(str1, \Format(str2, \ End If
If sqlstr = \
MsgBox \请先输入查找时间！\ Exit Sub End If
strTiaoJian = \学生档案 where \ Unload Me
Frm_UpdateDangA.Show 1 End If
If Option1.Value <> True And Option4.Value <> True Then MsgBox \请选择查询方式！\警告\ Exit Sub End If
- 45 -
End Sub
Private Sub Command3_Click() Unload Me End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = \Source=信息.mdb;Persist Security Info=False\Dim i, j As Integer For i = 1978 To 2010 Combo6.AddItem i Combo9.AddItem i Next i
Combo6.ListIndex = 0 Combo9.ListIndex = 0 For i = 1 To 12
Combo7.AddItem i Combo10.AddItem i Next i
Combo7.ListIndex = 0 Combo10.ListIndex = 0 For i = 1 To 31
Combo8.AddItem i Combo11.AddItem i Next i
Combo8.ListIndex = 0 Combo11.ListIndex = 0 Combo1.AddItem (\学号\Combo1.AddItem (\姓名\Combo1.AddItem (\年级\Combo1.AddItem (\专业\Combo1.AddItem (\性别\Combo1.AddItem (\民族\Combo1.AddItem (\籍贯\Combo1.AddItem (\政治面貌\Combo1.AddItem (\邮政编码\Combo1.AddItem (\联系电话\Combo2.AddItem (\Combo3.AddItem (\学号\
- 46 -
Combo3.AddItem (\姓名\Combo3.AddItem (\年级\Combo3.AddItem (\专业\Combo3.AddItem (\性别\Combo3.AddItem (\民族\Combo3.AddItem (\籍贯\Combo3.AddItem (\政治面貌\Combo3.AddItem (\邮政编码\Combo3.AddItem (\联系电话\Combo4.AddItem (\
Combo5.AddItem (\出生年月\Combo5.AddItem (\入学时间\Combo1.Text = \Combo2.Text = \Text1.Text = \Combo3.Text = \Combo4.Text = \Text2.Text = \Combo5.Text = \Combo6.Text = \
Combo7.Text = \Combo8.Text = \Combo9.Text = \Combo10.Text = \Combo11.Text = \End Sub
5.课程设置代码如下：
Dim myCon As New ADODB.Connection Dim myRs As New ADODB.Recordset Private Sub Command1_Click()
Dim ZhuanYe, NianJi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String ZhuanYe = Text1.Text NianJi = Text2.Text XueQi = DTPicker1.Value KeCheng = Text4.Text JiaoCai = Text5.Text RenKLS = Text6.Text
- 47 -
KeShi = Text7.Text
ShangKeDD = Text8.Text KeChengXZ = Combo1.Text KaoShiXZ = Combo2.Text
If Trim(ZhuanYe) = \Trim(JiaoCai) = \
Trim(ShangKeDD) = \Or Trim(KeChengXZ) = \Or Trim(KaoShiXZ) = \Then MsgBox \基本课程设置资料不能为空,请填写完整！\ Combo1.Text = \ Combo2.Text = \ Exit Sub
End If
myCon.Open \信息.mdb;\myRs.Open \* from 课程表 where 专业= '\& Trim(Text1.Text) & \and 年级='\& Trim(Text2.Text) & \课程名称='\& Trim(Text4.Text) & \
If myRs.EOF = False Then
MsgBox \该课程已经存在，请重新输入！\ myRs.Close myCon.Close
Text1.SetFocus Exit Sub End If myRs.Close
myRs.Open \课程表\myRs.AddNew
myRs.Fields(\专业\ myRs.Fields(\年级\
myRs.Fields(\学期\ myRs.Fields(\课程名称\ myRs.Fields(\教材\ myRs.Fields(\任课老师\ myRs.Fields(\课时\ myRs.Fields(\上课地点\ myRs.Fields(\课程性质\ myRs.Fields(\考试性质\myRs.Update myRs.Close
- 48 -
