Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & \Set mrc = ExecuteSQL(txtsql1)
txtsql1 = \学号='\学号='\Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & \'Set mrc = ExecuteSQL(txtsql1) Unload Me Exit Sub End If
txtsql1 = \
Set mrc = ExecuteSQL(txtsql1)
mrc.AddNew
For i = 4 To 9
mrc.Fields(i) = Text1(i - 2).Text Next i
mrc.Fields(0) = Trim(Text1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Update
Set mrc = Nothing
For j = 0 To 7 Text1(j) = \Next End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Activate() Text1(0).SetFocus Form1.load1 End Sub
Public Sub load1()
Dim mrc As ADODB.Recordset
24
txtsql1 = \班级 from class order by 班级\ Set mrc = ExecuteSQL(txtsql1) If mrc.EOF Then
ddd = MsgBox(\请先设置班级部署！\警告\ mrc.Close Exit Sub End If
Combo1(1).Clear mrc.MoveFirst
Do While Not mrc.EOF
Combo1(1).AddItem mrc.Fields(0) mrc.MoveNext Loop
Combo1(1).ListIndex = 0 Combo1(0).ListIndex = 0 If modi Then '如果是修改状态 Me.Caption = \修改\
txtsql1 = \学号='\
Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1)) & \ Set mrc = ExecuteSQL(txtsql1) mrc.MoveFirst For i = 4 To 9
Text1(i - 2).Text = mrc.Fields(i) Next i
Text1(0).Text = mrc.Fields(0) Text1(1).Text = mrc.Fields(1) Combo1(0).Text = mrc.Fields(2) Combo1(1).Text = mrc.Fields(3) mrc.Close Else
Me.Caption = \登记\ For i = 2 To 7
Text1(i).Text = \ Next i
Text1(6).Text = Date Text1(0).Text = \ Text1(1).Text = \ End If End Sub
2. 浏览档案信息窗体的创建 浏览档案信息窗体界面如图11
25
图11
3. 查询档案信息窗体的创建 查询档案信息窗体界面如图12
图12
下面为其部分源代码：
Private Sub Command1_Click() Dim aa As Integer txtsql = \
If Trim(Text1(0).Text) <> \ aa = 1
If txtsql = \
txtsql = \学号='\ Else
txtsql = txtsql & \学号='\ End If End If
If Trim(Text1(1).Text) <> \
26
aa = 1
If txtsql = \
txtsql = \姓名='\ Else
txtsql = txtsql & \姓名='\ End If End If
If Trim(Text1(2).Text) <> \ aa = 1
If txtsql = \
txtsql = \班级='\ Else
txtsql = txtsql & \班级='\ End If End If
If Trim(Text1(3).Text) <> \ aa = 1
txtsql = \
txtsql = \姓名 like '%\
End If
If aa = 0 Then
ss = MsgBox(\你至少要输入一个条件以上才能查询！\警告\ Text1(0).SetFocus Exit Sub End If
Dim str As String
str = \Dim mrc As ADODB.Recordset Set mrc = ExecuteSQL(str) If mrc.EOF = True Then
zzz = MsgBox(\对不起，没有此学生的档案记录！\查询\ Form4.ZOrder (0)
Form4.Text1(0).SetFocus Exit Sub End If
txtsql = \学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where \年级 desc,class.班级 desc,xj.学号 desc\Form3.printstr = txtsql find = True Form3.Show
27
'select xj.学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where xj.班级='06计算机一班' or 年级='06计算机一班' order by class.年级 desc,class.班级 desc,xj.学号 desc Form3.Caption = \学生档案查询结果\Form3.showtitle Form3.showdata End Sub
6.5 交费管理模块
交费管理模块主要实现的功能：
? 基本学费设置 ? 学生交费浏览 ? 学生交费添加
1. 基本学费设置窗体的创建
基本学费设置又包括学费设置浏览，学费设置添加，学费设置查询三部分。 基本学费设置窗体界面如图13
图13
2．学生交费浏览窗体的创建 学生交费浏览窗体界面如图14
28