frmmain.frm

一个利用VB + ACCESS数据库实现的人事管理系统 具有简单的添加

      Stretch         =   -1  'True
      Top             =   0
      Width           =   9885
   End
   Begin VB.Image Image1 
      Height          =   495
      Index           =   1
      Left            =   0
      Top             =   0
      Width           =   375
   End
   Begin VB.Label Label2 
      Height          =   255
      Index           =   2
      Left            =   1440
      TabIndex        =   2
      Top             =   -300
      Width           =   255
   End
   Begin VB.Label Label2 
      DataField       =   "记录号"
      DataSource      =   "Data1"
      Height          =   255
      Index           =   0
      Left            =   2880
      TabIndex        =   1
      Top             =   -300
      Width           =   255
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim imm As Long
Dim gun As Long
Dim i As Long
Dim t As Long
Sub tuichu()
    Randomize
    gun = Me.Height / 2
    For i = 1 To gun
       DoEvents                  '卸载窗体的子程序
       t = Me.Height - 15 * Rnd * Rnd
       Me.Height = t
           If Me.Height <= 31 Then GoTo horiz
    Next i
horiz:
    Me.Height = 360
    gun = Me.Width / 2
    For i = 1 To gun
        DoEvents
        t = Me.Width - 15 * Rnd * Rnd
           If Me.Width > 35 Then
           Me.Width = t
           End If
    Next i
End Sub

Private Sub cmdAdd_Click()
    On Error Resume Next   '添加记录
    Data1.Recordset.MoveLast
    Data1.Recordset.AddNew
   frmmain.Text1.Enabled = True
   frmmain.Text2.Enabled = True
   frmmain.Text3.Enabled = True
   frmmain.Text4.Enabled = True
   frmmain.Text5.Enabled = True
   frmmain.Text6.Enabled = True
   frmmain.Text7.Enabled = True
   frmmain.Text8.Enabled = True
   frmmain.Text12.Locked = False
   frmmain.Text11.Enabled = True
   frmmain.Text10.Enabled = True
   frmmain.Text13.Enabled = True
   cmdadd.Enabled = False
    Command6.Enabled = False
    cmddelete.Enabled = False
    cmdupdate.Visible = False
    Command2(0).Enabled = False
    Command2(1).Enabled = False
    Command2(2).Enabled = False
    Command2(3).Enabled = False
    Command3.Visible = True
    Timer1.Enabled = False
End Sub

Private Sub cmdDelete_Click()
    On Error Resume Next
    If MsgBox("真的要删除当前记录吗", vbYesNo) = vbYes Then  '删除
          Data1.Recordset.Delete
          Data1.Recordset.MoveNext
             If Data1.Recordset.EOF Then
                 Data1.Recordset.MovePrevious             '指向前一条记录
             End If
    End If
    Picture1.SetFocus
    Command2(0).Enabled = False
    Command2(1).Enabled = False
    Command2(2).Enabled = False
    Command2(3).Enabled = False
    cmdadd.Enabled = False
    Command6.Enabled = True
    cmddelete.Enabled = False
    cmdupdate.Enabled = False
    Timer1.Enabled = False
End Sub

Private Sub cmdUpdate_Click()
   frmmain.Text1.Enabled = True
   frmmain.Text2.Enabled = True
   frmmain.Text3.Enabled = True
   frmmain.Text4.Enabled = True
   frmmain.Text5.Enabled = True
   frmmain.Text6.Enabled = True
   frmmain.Text7.Enabled = True
   frmmain.Text8.Enabled = True
   frmmain.Text12.Locked = False
   frmmain.Text11.Enabled = True
   frmmain.Text10.Enabled = True
   frmmain.Text13.Enabled = True
    cmdadd.Enabled = False
    Command6.Enabled = False
    cmddelete.Enabled = False
    cmdupdate.Visible = False
    Data1.UpdateRecord
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
    Command2(0).Enabled = False
    Command2(1).Enabled = False
    Command2(2).Enabled = False
    Command2(3).Enabled = False
    Command3.Visible = True
    Timer1.Enabled = False
End Sub

Private Sub Command2_Click(Index As Integer)
    On Error Resume Next
    If Index = 0 Then
        Data1.Recordset.MoveFirst    '指向第一条记录
        ElseIf Index = 1 Then
            Data1.Recordset.MovePrevious   '指前一条记录
            ElseIf Index = 2 Then
                Data1.Recordset.MoveNext    '指向下一条记录
                ElseIf Index = 3 Then
                    Data1.Recordset.MoveLast    '指向最后一条记录
    End If
    Picture1.SetFocus
End Sub

Private Sub Command3_Click()
    If Val(Text5.Text) > 100 Or Val(Text5.Text) < 0 Then
       MsgBox "   征管数据得分应为0-100之间的数字"
       ElseIf Val(Text6.Text) > 100 Or Val(Text6.Text) < 0 Then
       MsgBox "   日常考试成绩得分应为0-100之间的数字"
       ElseIf Val(Text7.Text) > 100 Or Val(Text7.Text) < 0 Then
       MsgBox "   领导评定得分应为0-100之间的数字"
       ElseIf Val(Text8.Text) > 100 Or Val(Text8.Text) < 0 Then
       MsgBox "   日常考核扣款得分应为0-100之间的数字"
       ElseIf Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then
       MsgBox "   请您输入完整的个人成绩"
       ElseIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
       MsgBox "   请输入成员的详细资料"
       ElseIf Asc(Text1.Text) > 0 Then
       MsgBox "   请输入人员的中文名称"
       ElseIf Text2.Text <> "男" And Text2.Text <> "女" Then
       MsgBox "   请输入正确的性别"
       ElseIf Text13.Text <> 0 And Text13.Text <> 1 Then
           MsgBox "  该因数应该为0或者1"
           ElseIf Text11.Text <> 0 And Text11.Text <> 1 Then
           MsgBox "  该因数应该为0或者1"
           ElseIf Text10.Text <> 0 And Text10.Text <> 1 Then
           MsgBox "  该因数应该为0或者1"
       ElseIf Asc(Text3.Text) < 0 Then
       MsgBox "   请输入正确的年龄"
       ElseIf Text3.Text < 10 Or Text3.Text > 90 Then
       MsgBox "   请确定您输入的年龄的正确性"
       ElseIf Asc(Text4.Text) > 0 Then
       MsgBox "   请输入该人员的部门"
       ElseIf Len(Text1.Text) < 2 Then
       MsgBox "   系统认为名字输入错误"
       ElseIf Len(Text4.Text) < 2 Then
       MsgBox "    系统认为部门输入错误"
   Else
   frmmain.Text1.Enabled = False
   frmmain.Text2.Enabled = False
   frmmain.Text3.Enabled = False
   frmmain.Text4.Enabled = False
   frmmain.Text5.Enabled = False
   frmmain.Text6.Enabled = False
   frmmain.Text7.Enabled = False
   frmmain.Text8.Enabled = False
   frmmain.Text12.Locked = True
   frmmain.Text11.Enabled = False
   frmmain.Text10.Enabled = False
   frmmain.Text13.Enabled = False
    Command3.Visible = False
    Command6.Enabled = True
    cmdupdate.Visible = True
    cmdupdate.Enabled = False
    Text9.Text = 27 + Val(Text10.Text) + Val(Text11.Text) + Val(Text13.Text) + Val(Text5.Text) * 0.2 + Val(Text6.Text) * 0.2 + Val(Text7.Text) * 0.1 + Val(Text8.Text) * 0.2
        Data1.UpdateRecord
    End If
End Sub

Private Sub Command6_Click()
    On Error Resume Next
    Data1.Refresh         '更新
    Picture1.SetFocus
    imm = 1
    Command2(0).Enabled = True
    Command2(1).Enabled = True
    Command2(2).Enabled = True
    Command2(3).Enabled = True
    cmdadd.Enabled = True
    cmddelete.Enabled = True
    cmdupdate.Enabled = True
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Me.Show
    DoTransparency Me
    AlwaysOnTop Me, True
    App.TaskVisible = False
    If App.PrevInstance Then             '同时只能单用户使用
       End
    End If
    imm = 1        '是否刷新表
    Data1.DatabaseName = App.Path + "\mdb\guanli.mdb"
    Image1(0).Picture = LoadPicture("images\0.bmp")
    Image1(1).Picture = LoadPicture("images\1.bmp")
    Image1(2).Picture = LoadPicture("images\2.bmp")
    Image1(3).Picture = LoadPicture("images\3.bmp")
    Image1(4).Picture = LoadPicture("images\4.bmp")
    Image1(5).Picture = LoadPicture("images\5.bmp")
    Image1(6).Picture = LoadPicture("images\6.bmp")
    Image1(7).Picture = LoadPicture("images\7.bmp")
    Image2.Picture = LoadPicture("images\10.bmp")
    Picture2.Picture = LoadPicture("images\networks.gif")
    Label4.Caption = Form1.Text1.Text
    Label7.Caption = Form1.Text2.Text
    Label8.Caption = Form1.Text3.Text
End Sub


Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me                                '调用module1的dodrag来实现拖放
End Sub

Private Sub Image2_Click()
      Call tuichu
      End
End Sub


Private Sub Picture2_Click()
If Command6.Enabled = True Then
Form1.Show
frmmain.Hide
End If
End Sub

Private Sub Timer1_Timer()
    If imm = 1 Then
       Dim i As Integer
           With MSFlexGrid1
              .Row = 0
              .Col = 0
              .Text = "人员列表"
           End With
         For i = 1 To Data1.Recordset.RecordCount
            With MSFlexGrid1
                .Col = 0
                .Row = i             '更新MSFlexgrid1
                .Text = i
            End With
         Next i
         imm = 0
    End If

    If Data1.Recordset.AbsolutePosition = 0 Then
       Command2(0).Enabled = False
       Command2(1).Enabled = False
       Command2(2).Enabled = True
       Command2(3).Enabled = True
          ElseIf Data1.Recordset.AbsolutePosition = Data1.Recordset.RecordCount - 1 Then '记录是否达到最后或者第一条，如果是，则按纽不可用
             Command2(3).Enabled = False
             Command2(2).Enabled = False
             Command2(1).Enabled = True
             Command2(0).Enabled = True
                Else
                   Command2(0).Enabled = True
                   Command2(1).Enabled = True
                   Command2(2).Enabled = True
                   Command2(3).Enabled = True
    End If
End Sub
Private Sub MSFlexGrid1_Click()
    Picture1.SetFocus
End Sub