frmaddjs.frm

用vb做的别人做的

      AutoSize        =   -1  'True
      Caption         =   "获取时间："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   4440
      TabIndex        =   28
      Top             =   1680
      Width           =   1050
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "最终学历："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   1800
      TabIndex        =   27
      Top             =   1680
      Width           =   1050
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "获取时间："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   4440
      TabIndex        =   26
      Top             =   1200
      Width           =   1050
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "第一学历："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   1800
      TabIndex        =   25
      Top             =   1200
      Width           =   1050
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "出生年月:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   1800
      TabIndex        =   24
      Top             =   720
      Width           =   945
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "性别："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   4440
      TabIndex        =   23
      Top             =   240
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "姓  名:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   210
      Left            =   1800
      TabIndex        =   22
      Top             =   240
      Width           =   735
   End
End
Attribute VB_Name = "FrmAddJs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim AddFlg As Boolean

Private Sub Command1_Click()
    DataNull
    RWwrite
    rs.AddNew
    Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = True
    Command5.Enabled = True
    List1.Enabled = False

    AddFlg = True
     
End Sub

Private Sub Command2_Click()
   RWwrite
   Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = False
   Command4.Enabled = True
   Command5.Enabled = True
   List1.Enabled = False
    
   AddFlg = False
End Sub

Private Sub Command3_Click()
On Error GoTo delErr
If vbYes = MsgBox("确认索要删除此记录么？", vbYesNo, "删除对话框") Then
    rs.Delete
    rs.MoveNext
   If rs.EOF Then rs.MoveLast
    
    Display
    Display2
End If
Exit Sub
delErr:
  Display
  DataNull
  Display2
End Sub

Private Sub Command4_Click()
Dim ctl As Control
For Each ctl In Controls
  If TypeOf ctl Is TextBox Then
     If ctl.Text = "" Then
       MsgBox "记录输入不完整！"
       Exit Sub
     End If
  End If
Next ctl
If Combo1.ListIndex = -1 And (Combo1.Text <> "男" And Combo1.Text <> "女") Then
       MsgBox "记录输入不完整！"
       Exit Sub
End If
If Combo2.ListIndex = -1 And (Combo2.Text <> "是" And Combo2.Text <> "否") Then
       MsgBox "记录输入不完整！"
       Exit Sub
End If

   rs!姓名 = Trim(Text1.Text)
   rs!性别 = Trim(Combo1.Text)
   rs!出生年月 = Trim(MaskEdBox1.Text)
   rs!第一学历 = Trim(Text4.Text)
   rs!一学历时间 = Trim(MaskEdBox2.Text)
   rs!最终学历 = Trim(Text5.Text)
   rs!终学历时间 = Trim(MaskEdBox3.Text)
   rs!参加工作时间 = Trim(MaskEdBox4.Text)
   rs!职称 = Trim(Text3.Text)
   rs!职务 = Trim(Text4.Text)
   rs!联系电话 = Trim(Text8.Text)
   rs!联系手机 = Trim(Text9.Text)
   rs!家庭住址 = Trim(Text7.Text)
   rs!婚否 = Trim(Combo2.Text)
   rs!备注 = Trim(Text7.Text)
List1.Enabled = True
If AddFlg = True Then
    rs.Update
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
    Display
    Display2
    MsgBox "记录成功添加！"
    Read
Else
    rs.UpdateBatch adAffectAllChapters
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
    Display
    Display2
    MsgBox "记录成功修改！"
    Read
End If
End Sub

Private Sub Command5_Click()
On Error GoTo CancleErr
List1.Enabled = True
If AddFlg = True Then
  rs.CancelUpdate
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
  Display2
  Read
Else
  rs.CancelBatch adAffectAllChapters
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
  Display2
  Read
End If
Exit Sub

CancleErr:
 Read
 DataNull
 Display
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub DataNull()
Dim ctl As Control
For Each ctl In Controls
  If TypeOf ctl Is TextBox Then
    ctl.Text = ""
  End If
Next ctl
For Each ctl In Controls
  If TypeOf ctl Is MaskEdBox Then
    ctl.Text = "1990.01"
  End If
Next ctl
Combo1.Text = "男"
Combo2.Text = "否"

End Sub

Private Sub Display()
If rs.BOF And rs.EOF Then
   List1.Clear
   MsgBox "教师表暂时没有可用信息！"
   Command2.Enabled = False
   Command3.Enabled = False
Else
   Command2.Enabled = True
   Command3.Enabled = True
   List1.Clear
    rs.MoveFirst
   Do While rs.EOF = False
       List1.AddItem rs!姓名
       rs.MoveNext
   Loop
End If

End Sub
Private Sub Display2()
If rs.BOF And rs.EOF Then
   MsgBox "教师表暂时没有可用信息！"
   Command2.Enabled = False
   Command3.Enabled = False
Else
   If rs.EOF Then rs.MoveLast
   Command2.Enabled = True
   Command3.Enabled = True
   If rs.BOF Then rs.MoveFirst
   If rs.EOF Then rs.MoveLast
   Text1.Text = "" & rs!姓名
   Combo1.Text = "" & rs!性别
   MaskEdBox1.Text = "" & rs!出生年月
   Text4.Text = "" & rs!第一学历
   MaskEdBox2.Text = "" & rs!一学历时间
   Text5.Text = "" & rs!最终学历
   MaskEdBox3.Text = "" & rs!终学历时间
   MaskEdBox4.Text = "" & rs!参加工作时间
   Text3.Text = "" & rs!职称
   Text4.Text = "" & rs!职务
   Text8.Text = "" & rs!联系电话
   Text9.Text = "" & rs!联系手机
   Text7.Text = "" & rs!家庭住址
   Combo2.Text = "" & rs!婚否
   Text7.Text = "" & rs!备注
End If
End Sub

Private Sub RWwrite()
Dim ctl As Control
For Each ctl In Controls
  If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is MaskEdBox Then
     ctl.Enabled = True
  End If
Next ctl
End Sub

Private Sub Read()
Dim ctl As Control
For Each ctl In Controls
  If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is MaskEdBox Then
     ctl.Enabled = False
  End If
Next ctl
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False

End Sub

Private Sub Form_Load()
Dim ctl As Control
Set rs = New ADODB.Recordset
rs.Open "教师表", Con, adOpenStatic, adLockPessimistic, adCmdTable

For Each ctl In Controls
  If TypeOf ctl Is MaskEdBox Then
    ctl.Text = "1990.01"
  End If
Next ctl

Display
Display2

End Sub

Private Sub List1_Click()
rs.Move List1.ListIndex, adBookmarkFirst
Display2

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
   KeyAscii = 0
End If
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
   KeyAscii = 0
End If
End Sub