frmstuedit.frm

这是一个国内通用的学生管理系统!包括院系,学生基本信息,照片,成绩,课程等多方面的管理系统

         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "入校日期"
         Height          =   180
         Left            =   3360
         TabIndex        =   22
         Top             =   2088
         Width           =   720
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "家庭电话"
         Height          =   180
         Left            =   6120
         TabIndex        =   21
         Top             =   1656
         Width           =   720
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "籍贯"
         Height          =   180
         Left            =   6120
         TabIndex        =   20
         Top             =   792
         Width           =   360
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "性别"
         Height          =   180
         Left            =   3360
         TabIndex        =   19
         Top             =   360
         Width           =   360
      End
      Begin VB.Label Label28 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "政治面貌"
         Height          =   180
         Left            =   3360
         TabIndex        =   18
         Top             =   792
         Width           =   720
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "学生证号"
         Height          =   180
         Left            =   6120
         TabIndex        =   17
         Top             =   1224
         Width           =   720
      End
   End
End
Attribute VB_Name = "FrmStuEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Modify As Boolean

Private Sub Cmd_Cancel_Click()
  FrmStuMan.TmpOk = False
  Unload Me
End Sub

Private Sub Cmd_OK_Click()
  With MyStu
  '姓名
  .Student_Name = MakeStr(txtStu_Name)
  '性别
  .Sex = ComboSex.Text
  '民族
  .Nationality = MakeStr(txtNationality)
  '生日
  If IsDate(ComboBirth.Text) = False Then
    MsgBox "请选择正确的出生日期"
    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, "yyyy-mm-dd")
  t = Time
  tt = Trim(Str(Hour(t))) + ":" + Trim(Str(Minute(t))) + ":" + Trim(Str(Second(t)))
  .Fillin_Time = dd + "  " + tt
  '院系班级编号
  .Class_Id = CurClass.Class_Id
  '根据变量Modify,判断是插入新数据,还是修改已有的数据
  If Modify = False Then
    .Insert
  Else
    .Update (CurStu.Student_Id)
  End If
  End With
  '设置学生管理窗体中的状态标识
  FrmStuMan.TmpOk = True
  Unload Me
End Sub

Private Sub ComboBirth_GotFocus()
  '将焦点设置为下一个控件，否则将反复执行此过程
  txtPolitical_Party.SetFocus
  '如果ComboBirth中包含日期，则将它赋值到FrmDateSel中
  If ComboBirth.Text <> "" Then
    FrmDateSel.OriDate = ComboBirth.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  '设置FrmDateSel窗体的位置
  FrmDateSel.Left = Me.Left + ComboBirth.Left + 350
  FrmDateSel.Top = Me.Top + ComboBirth.Top + ComboBirth.Height + 450
  FrmDateSel.Show 1
  '将选择的日期显示到ComboBirth控件中
  ComboBirth.Text = FrmDateSel.OriDate
End Sub

Private Sub ComboInDate_GotFocus()
  txtTitle.SetFocus
  
  If ComboInDate.Text <> "" Then
    FrmDateSel.OriDate = ComboInDate.Text
  Else
    FrmDateSel.OriDate = ""
  End If
  FrmDateSel.Left = Me.Left + ComboInDate.Left
  FrmDateSel.Top = Me.Top + ComboInDate.Top + ComboInDate.Height - FrmDateSel.Height
  
  FrmDateSel.Show 1
  
  ComboInDate.Text = FrmDateSel.OriDate
End Sub

Private Sub Form_Load()
  If Modify = False Then
    txtStu_Name = ""
    ComboSex.ListIndex = 0
    txtNationality = ""
    ComboBirth.Text = ""
    txtPolitical_Party = ""
    txtFamily_Place = ""
    txtId_Card = ""
    txtBadgeID = ""
    txtHomePhone = ""
    txtResidence = ""
    txtPostcode = ""
    ComboInDate.Text = ""
    txtTitle = ""
    txtMemo = ""
  Else
    With CurStu
    '姓名
    txtStu_Name = .Student_Name
    '性别
    If InCombo(.Sex, ComboSex) = True Then
      ComboSex.Text = .Sex
    End If
    '民族
    txtNationality = .Nationality
    '生日
    ComboBirth.Text = .Birth
    '政治面貌
    txtPolitical_Party = .Political_Party
    '籍贯
    txtFamily_Place = .Family_Place
    '身份证
    txtId_Card = .Id_Card
    '学生证
    txtBadgeID = .BadgeID
    '家庭电话
    txtHomePhone = .Home_phone
    '家庭住址
    txtResidence = .Residence
    '邮政编码
    txtPostcode = .Postcode
    '入校时间
    ComboInDate.Text = .InDate
    '职务
    txtTitle = .Title
    '备注
    txtMemo = .Memo
    End With
  End If
End Sub

Private Sub txtBadgeID_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtStu_Name_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtFamily_Place_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtHomePhone_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtId_Card_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtMemo_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtNationality_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPolitical_Party_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtPostcode_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
  If In_Int(KeyAscii) = False Then
    KeyAscii = 0
  End If
End Sub

Private Sub txtResidence_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub

Private Sub txtTitle_KeyPress(KeyAscii As Integer)
  EnterTAB (KeyAscii)
End Sub