worker.txt

经过几个月的设计和开发

Option Explicit

Private Sub Command1_Click()               '添加记录
Dim sql As String
Dim param As ADODB.Parameter
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set param = New ADODB.Parameter
sql = "select * from worker where [工号]= ? "

If Command1.Caption = "添加记录" Then
   Command1.Caption = "确   定"
   Command2.Enabled = False
   Command3.Enabled = False
   Command4.Enabled = False
   rst.AddNew
Else
    If Text1.Text = "" Then
     frmMsg.Show
   frmMsg.notice.Visible = True
  frmMsg.Text1.Text = "职工编号不能为空!"
      Command2.Enabled = True
       Command3.Enabled = True
       Command4.Enabled = True
       Command1.Caption = "添加记录"
      Exit Sub
     End If
    With param
    .Direction = adParamInput
    .Type = adBSTR
    .Size = 8
    .Value = Text1.Text
    End With
   cmd.Parameters.Append param
   cmd.CommandText = sql
   cmd.CommandType = adCmdText
   Set cmd.ActiveConnection = con
   Set rst1 = cmd.Execute
  '检测职工编号是否存在防止主键冲突
  If rst1.RecordCount > 0 Then
     frmMsg.Show
     frmMsg.notice.Visible = True
     frmMsg.Text1.Text = "此职工编号已经存在!"
       rst.Cancel
       Command2.Enabled = True
       Command3.Enabled = True
       Command4.Enabled = True
       Command1.Caption = "添加记录"
      
       Exit Sub
   End If
   rst.Update
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = True
   
   Command1.Caption = "添加记录"
End If
End Sub

Private Sub Command2_Click()                '删除纪录
Dim ans As String
ans = Msgbox("确定要删除此记录吗？", vbYesNo, "提示")
If ans = vbYes Then
   rst.Delete
   rst.Requery
Else
 Exit Sub
End If
End Sub

Private Sub Command3_Click()                  '上一记录
If rst.BOF Then
   frmMsg.Show
   frmMsg.info.Visible = True
  frmMsg.Text1.Text = "已经到达记录顶端!"
   Exit Sub
 Else
  rst.MovePrevious
End If
End Sub

Private Sub Command4_Click()                  '下一记录
If rst.EOF Then
  frmMsg.Show
  frmMsg.info.Visible = True
  frmMsg.Text1.Text = "已经到达记录底端! "
   Exit Sub
 Else
   rst.MoveNext
End If
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim sql1 As String
Set rst = New ADODB.Recordset
sql1 = "select * from worker"
'打开数据库并对窗体控件赋值
Call connect_db
rst.Open sql1, con, adOpenDynamic, adLockOptimistic
Set Text1.DataSource = rst
Set Text2.DataSource = rst
Set Text3.DataSource = rst
Set Text4.DataSource = rst
Set Text5.DataSource = rst
Text1.DataField = "工号"
Text2.DataField = "姓名"
Text3.DataField = "性别"
Text4.DataField = "电话"
Text5.DataField = "住址"
End Sub




Private Sub xptopbuttons1_Click()
Unload Me
End Sub

Private Sub xptopbuttons2_Click()
Me.WindowState = 1
End Sub



Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub