学生档案信息管理系统论文 - 图文

第 7章 附 录

1.主界面代码如下

Private Sub MDIForm_Load() End Sub

Private Sub Mun_About_Click() frm_About.Show 1

End Sub

Private Sub Mun_AddChengJ_Click() Frm_AddChengJ.Show 1 End Sub

Private Sub Mun_AddClass_Click() Frm_AddClass.Show 1 End Sub

Private Sub Mun_AddDangA_Click() Frm_AddDangA.Show 1 End Sub

Private Sub Mun_AddJiaoF_Click() Frm_AddStruJF.Show 1 End Sub

Private Sub Mun_AddUser_Click() Frm_AddUser.Show 1 End Sub

Private Sub Mun_ChengJCount_Click() Frm_CountChengJ.Show 1

End Sub

Private Sub Mun_ChengJWeiG_Click() Frm_StruWeiG.Show 1 End Sub

Private Sub Mun_ChenJCount_Click() Frm_CountChengJ.Show 1 End Sub

Private Sub Mun_ClassCount_Click()

- 33 -

Frm_CountClass.Show 1

End Sub

Private Sub Mun_Czsm_Click() frm_ShuoMing.Show 1 End Sub

Private Sub Mun_DandACount_Click() Frm_CountDangA.Show 1 End Sub

Private Sub Mun_DelUser_Click() Frm_DelUser.Show 1 End Sub

Private Sub Mun_Exit_Click() Dim anw As Integer

anw = MsgBox(\确定要退出系统吗？\If anw = 6 Then Unload Me End If End Sub

Private Sub Mun_FindChengJ_Click() Frm_FindChengJ.Show 1

End Sub

Private Sub Mun_FindClass_Click() Frm_FindClass.Show 1 End Sub

Private Sub Mun_FindDangA_Click() Frm_FindDangA.Show 1 End Sub

Private Sub Mun_FindGrean_Click() Frm_FindGrean.Show 1 End Sub

Private Sub Mun_FindJiaoF_Click() Frm_FindStruJF.Show 1 End Sub

Private Sub Mun_GreanCount_Click() Frm_CountGrean.Show 1

End Sub

Private Sub Mun_JiaoFCount_Click()

- 34 -

提示！\ Frm_CountJiaoF.Show 1

End Sub

Private Sub Mun_LiulanUser_Click() Frm_LiulanUser.Show 1 End Sub

Private Sub Mun_Possword_Click() Frm_UpdatePass.Show 1 End Sub

Private Sub Mun_ShezGrean_Click() Frm_SheZGrean.Show 1 End Sub

Private Sub Mun_UpLogin_Click() If MsgBox(\若重新登录，所有窗体都将关闭！是否重新登录？\vbQuestion + vbYesNo + vbDefaultButton2, \重新登录\ Unload Me

Frm_Login.Show End If End Sub

2.学生班级增加代码如下：

Dim myCon As New ADODB.Connection

Dim myRs As New ADODB.Recordset

Private Sub Command1_Click()

Dim NianJi, ZhuanYe, RenShu, FuDaoYuan, BeiZu As String NianJi = Text1.Text ZhuanYe = Text2.Text RenShu = Text3.Text FuDaoYuan = Text4.Text BeiZu = Text5.Text

Command1.Enabled = True

If Trim(NianJi) = \Trim(FuDaoYuan) = \

MsgBox \班级资料不能为空,请填写完整！\ Exit Sub End If

myCon.Open \信息.mdb;\myRs.Open \班级表 where 年级='\and 专业='\

- 35 -

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(\辅导员\ If Text5.Text = \ myRs.Fields(\备注\ Else

myRs.Fields(\备注\ End If myRs.Update

myRs.Close myCon.Close

MsgBox \添加成功!\

Adodc1.RecordSource = \班级表 order by 年级\Frm_AddClass.Adodc1.Refresh Frm_AddClass.DataGrid1.Refresh Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \

Text5.Text = \End Sub

Private Sub Command2_Click()

Dim NianJi, xi, RenShu, FuDaoYuan, BeiZu As String NianJi = Text1.Text ZhuanYe = Text2.Text RenShu = Text3.Text FuDaoYuan = Text4.Text

- 36 -