软件工程大作业

Exit Sub End If

.Birth = ComboBirth.Text

.Political_Party = MakeStr(txtPolitical_Party .Family_Place = MakeStr(txtFamily_Place .Id_Card = MakeStr(txtId_Card .BadgeID = MakeStr(txtBadgeID .Home_phone = MakeStr(txtHomePhone .Residence = MakeStr(txtResidence .Postcode = MakeStr(txtPostcode If IsDate(ComboInDate.Text = False Then MsgBox \请选择正确的入校日期\Exit Sub End If

.InDate = ComboInDate.Text .Title = MakeStr(txtTitle .Memo = MakeStr(txtMemo dd = Date

dd = Format(dd, \

t = Time

tt = Trim(Str(Hour(t + \Trim(Str(Second(t .Fillin_Time = dd + \

.Class_Id = CurClass.Class_Id If Modify = False Then .Insert Else

.Update (CurStu.Student_Id End If End With

FrmStuMan.TmpOk = True Unload Me 照片管理 If Button = 1 Then

If FrmPhotoMenu.Visible = True Then Unload FrmPhotoMenu End If End If

If Button = 2 Then

If CurStu.Student_Id<= 0 Then Exit Sub End If

FrmPhotoMenu.Left = X + Image1.Left + 200 ' - 1610 FrmPhotoMenu.Top = Y + Image1.Top + 1900 FrmPhotoMenu.Show End If

Dim DiskFileAs String If CurStu.Student_Id<= 0 Then MsgBox \请选择学生\Unload Me Exit Sub End If

CommonDialog1.Filter = \文件(*.bmp|*.bmp|JPEG文件(*.jpg|*.jpg|GIF文件(*.gif|*.gif\

CommonDialog1.ShowOpen

DiskFile = CommonDialog1.FileName If DiskFile = \MsgBox \请选择照片文件\

Unload Me Exit Sub End If

Call SaveImage(DiskFile, FrmStuMan.AdoStuDetail

Call ShowImage(FrmStuMan.Image1, FrmStuMan.AdoStuDetail Unload Me

If CurStu.Student_Id<= 0 Then MsgBox \请选择学生\Unload Me Exit Sub End If

FrmStuMan.AdoStuDetail.Recordset.Fields(2.AppendChunk \FrmStuMan.AdoStuDetail.Recordset.Update FrmStuMan.Image1.Picture = LoadPicture(\Unload Me 学籍管理

添加学籍管理信息资料

FrmChangeEdit.ComboDate.Text = Format(Now, \SelStu.Init

FrmChangeEdit.ComboName.Text = \

FrmChangeEdit.ComboType.ListIndex = ComboType.ListIndex FrmChangeEdit.ComboClass = \FrmChangeEdit.txtMemo = \FrmChangeEdit.Modify = False FrmChangeEdit.Show 1 Refresh_Change 修改学籍管理信息资料

FrmChangeEdit.OriId = Adodc1.Recordset.Fields(0

FrmChangeEdit.ComboDate.Text = Trim(Adodc1.Recordset.Fields(1 SelStu.Student_Id = Adodc1.Recordset.Fields(2 SelStu.GetInfo (SelStu.Student_Id

FrmChangeEdit.ComboName.Text = Trim(Adodc1.Recordset.Fields(3 FrmChangeEdit.ComboType.ListIndex = ComboType.ListIndex Select Case ComboType.ListIndex Case 0, 1 '退学、休学

FrmChangeEdit.txtNewSchool = \FrmChangeEdit.ComboClass = \

FrmChangeEdit.txtReason = Trim(Adodc1.Recordset.Fields(4