frmbasic.frm

一套比较齐全的企业人事考勤系统~~有源代码

         Index           =   3
         Left            =   240
         TabIndex        =   9
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "籍    贯："
         Height          =   255
         Index           =   4
         Left            =   240
         TabIndex        =   8
         Top             =   1440
         Width           =   975
      End
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3975
      Left            =   7800
      Stretch         =   -1  'True
      Top             =   480
      Width           =   2895
   End
   Begin VB.Menu MemFile 
      Caption         =   "文件"
      Begin VB.Menu MemBak 
         Caption         =   "返回"
      End
   End
   Begin VB.Menu MemData 
      Caption         =   "记录"
      Begin VB.Menu MemAdd 
         Caption         =   "添加记录"
      End
      Begin VB.Menu MemEdit 
         Caption         =   "修改记录"
      End
      Begin VB.Menu MemDel 
         Caption         =   "删除记录"
      End
      Begin VB.Menu MemSave 
         Caption         =   "保存记录"
         Enabled         =   0   'False
      End
      Begin VB.Menu MemCancel 
         Caption         =   "取消操作"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu MemPic 
      Caption         =   "照片"
      Enabled         =   0   'False
      Begin VB.Menu MemAddPic 
         Caption         =   "添加照片"
      End
      Begin VB.Menu MemDelPic 
         Caption         =   "删除照片"
      End
   End
End
Attribute VB_Name = "FrmBasic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Basic_DB As Database
Dim Basic_RS As Recordset
Dim nodex1, nodex2 As Node
Dim TEdit As Boolean
Private Sub Form_Load()
Renovate
End Sub

Private Sub Pic_Change()
Image1.Picture = LoadPicture(Pic.Text)
End Sub

Private Sub Form_Unload(Cancel As Integer)
If MemSave.Enabled Then
   MsgBox "记录曾未进行保存,请注意保存后返回", 0, "错误提示"
   Cancel = 1
Else
   SubExit
End If
End Sub

Private Sub MemAdd_Click()
TEdit = True
For X = 0 To 12
txtItem(X).Enabled = True
txtItem(X).Text = ""
Next X
Combo1.Enabled = True

MemAdd.Enabled = False
MemEdit.Enabled = False
MemSave.Enabled = True
MemDel.Enabled = False
MemCancel.Enabled = True
MemPic.Enabled = True

End Sub

Private Sub MemAddPic_Click()
CommonDialog1.Filter = "图片文件|*.bmp;*.jpg;*.gif;*.jpeg"
CommonDialog1.ShowOpen
txtItem(0).Text = CommonDialog1.FileName
End Sub

Private Sub MemBak_Click()
If MemSave.Enabled Then
   MsgBox "记录曾未进行保存,请注意保存后返回", 0, "错误提示"
Else
   SubExit
End If
End Sub

Private Sub MemCancel_Click()
Basic_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
MemPic.Enabled = False
Renovate
End Sub

Private Sub MemDel_Click()
For X = 0 To 12
txtItem(X).Enabled = False
Next X
Combo1.Enabled = False
Basic_RS.Delete
Basic_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
MemPic.Enabled = False
Renovate
End Sub

Private Sub MemDelPic_Click()
txtItem(0).Text = ""
End Sub

Private Sub MemEdit_Click()
TEdit = False
For X = 0 To 12
txtItem(X).Enabled = True
Next X
Combo1.Enabled = True

MemAdd.Enabled = False
MemEdit.Enabled = False
MemSave.Enabled = True
MemDel.Enabled = False
MemCancel.Enabled = True
MemPic.Enabled = True
End Sub

Private Sub MemSave_Click()
Dim Temp As String
Dim s As Integer
If txtItem(1).Text = "" Or txtItem(2).Text = "" Then
   MsgBox "您忘记输入编号或姓名！请重试", 16, "错误提示"
   Exit Sub
End If
txtItem(3).Text = Combo1.Text
If TEdit Then
   Basic_RS.AddNew
Else
   Basic_RS.Edit
End If
For X = 0 To 12
    If txtItem(X).Text = "" Then txtItem(X).Text = "-"
    Basic_RS.Fields(X) = txtItem(X).Text
Next X
Basic_RS.Fields(13) = "-"
For X = 0 To 12
txtItem(X).Enabled = False
Next X
Combo1.Enabled = False
Basic_RS.Update
Basic_DB.Close
MemAdd.Enabled = True
MemEdit.Enabled = True
MemSave.Enabled = False
MemDel.Enabled = True
MemCancel.Enabled = False
MemPic.Enabled = False
Renovate
End Sub

Private Sub TreeView1_Click()
On Error Resume Next
Dim Temp As String
Temp = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If Temp = "无记录" Or Temp = "男职工" Or Temp = "女职工" Then Exit Sub
Basic_RS.MoveFirst
Do While Basic_RS.EOF = False
If Temp = Basic_RS.Fields(2) Then
   Exit Do
End If
Basic_RS.MoveNext
Loop
ListData
End Sub

Private Sub Renovate()
For X = 0 To 12
    txtItem(X).Text = ""
    txtItem(X).Enabled = False
Next X
Combo1.Enabled = False
TreeView1.Nodes.Clear
TreeView1.LineStyle = tvwRootLines
Set Basic_DB = OpenDatabase(App.Path + "\Basic.mdb")
Set Basic_RS = Basic_DB.OpenRecordset("基本信息")

If Basic_RS.EOF Then
   Set nodex1 = TreeView1.Nodes.Add(, , "MyF", "无记录", 1)
   Exit Sub
End If
Basic_RS.MoveFirst
Set nodex1 = TreeView1.Nodes.Add(, , "Man", "男职工", 1)
Set nodex1 = TreeView1.Nodes.Add(, , "WoM", "女职工", 1)
Do While Basic_RS.EOF = False
   If Basic_RS.Fields(3) = "男" Then
      Set nodex2 = TreeView1.Nodes.Add("Man", tvwChild, , Basic_RS.Fields(2), 2)
   Else
      Set nodex2 = TreeView1.Nodes.Add("WoM", tvwChild, , Basic_RS.Fields(2), 2)
   End If
   Basic_RS.MoveNext
Loop
nodex2.EnsureVisible
Basic_RS.MoveFirst
ListData
End Sub
Private Sub ListData()
For X = 0 To 12
    If Basic_RS.Fields(X) = "-" Then
       txtItem(X) = ""
    Else
       txtItem(X) = Basic_RS.Fields(X)
    End If
Next X
Combo1.Text = txtItem(3).Text
End Sub
Private Sub SubExit()
Dim Min As Integer
Dim I(4) As Integer
For X = 1 To 4
    I(X) = 0
Next X
Me.Hide
FrmMain.Show
On Error Resume Next
Set Basic_DB = OpenDatabase(App.Path + "\Basic.mdb")
Set Basic_RS = Basic_DB.OpenRecordset("基本信息")
Basic_RS.MoveFirst
Do While Basic_RS.EOF = False
   If Basic_RS.Fields(13) = "-" Then
      Min = 1
      For X = 2 To 4
        If I(Min) > I(X) Then Min = X
      Next X
      I(Min) = I(Min) + 1
      Basic_RS.Edit
      Basic_RS.Fields(13) = CStr(Min)
      Basic_RS.Update
   Else
      I(CInt(Basic_RS.Fields(13))) = I(CInt(Basic_RS.Fields(13))) + 1
   End If
   Basic_RS.MoveNext
Loop
FrmMain.ListTools
End Sub

Private Sub txtItem_Change(Index As Integer)
If Index = 0 Then
  If Dir(txtItem(0).Text) <> "" Then
     Image1.Picture = LoadPicture(txtItem(0).Text)
  End If
End If
End Sub