其他数据库

开发平台：
Visual Basic

frmMain.frm：源码内容
							VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "湖工人事信息管理系统"
   ClientHeight    =   5760
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   7665
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   7665
      _ExtentX        =   13520
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      Wrappable       =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   6
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "t01"
            Object.ToolTipText     =   "注销"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "t02"
            Object.ToolTipText     =   "查询员工信息"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "S3"
            Object.ToolTipText     =   "查询考勤信息"
            Object.Tag             =   ""
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "T4"
            Object.ToolTipText     =   "查询评价信息"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "S5"
            Object.ToolTipText     =   "查询工资信息"
            Object.Tag             =   ""
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "S6"
            Object.ToolTipText     =   "退出"
            Object.Tag             =   ""
            ImageIndex      =   6
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   720
      Top             =   4320
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   5505
      Width           =   7665
      _ExtentX        =   13520
      _ExtentY        =   450
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   3
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   9596
            MinWidth        =   9596
            Text            =   "欢迎使用湖工人事信息管理系统"
            TextSave        =   "欢迎使用湖工人事信息管理系统"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            Object.Width           =   6068
            MinWidth        =   6068
            TextSave        =   "2004-02-20"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            Object.Width           =   5009
            MinWidth        =   5009
            TextSave        =   "15:04"
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   1560
      Top             =   2160
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   6
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":463CC
            Key             =   "tool01"
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":4665E
            Key             =   "tool02"
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":472B0
            Key             =   "tool03"
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":47F02
            Key             =   "tool04"
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":48B54
            Key             =   "tool05"
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmMain.frx":48DE6
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统(&S)"
      Begin VB.Menu AddUser 
         Caption         =   "添加用户"
         Shortcut        =   ^U
      End
      Begin VB.Menu EditUser 
         Caption         =   "修改用户"
      End
      Begin VB.Menu Relogin 
         Caption         =   "注销"
         Shortcut        =   ^L
      End
      Begin VB.Menu ExitSystem 
         Caption         =   "退出系统"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu BaseInfo 
      Caption         =   "基本信息(&B)"
      Begin VB.Menu ygAdd 
         Caption         =   "员工信息添加"
         Shortcut        =   ^A
      End
      Begin VB.Menu ygEdit 
         Caption         =   "员工信息修改"
         Shortcut        =   ^E
      End
      Begin VB.Menu ygDel 
         Caption         =   "删除员工信息"
         Shortcut        =   ^D
      End
      Begin VB.Menu ygFind 
         Caption         =   "员工信息查询"
         Shortcut        =   {F1}
      End
   End
   Begin VB.Menu KqMenu 
      Caption         =   "考勤管理(&K)"
      Begin VB.Menu kqAdd 
         Caption         =   "添加考勤信息"
         Shortcut        =   ^K
      End
      Begin VB.Menu kqEdit 
         Caption         =   "修改考勤信息"
         Shortcut        =   ^M
      End
      Begin VB.Menu kqDel 
         Caption         =   "删除考勤信息"
      End
      Begin VB.Menu kqFind 
         Caption         =   "考勤信息查询"
         Shortcut        =   {F2}
      End
   End
   Begin VB.Menu PjMenu 
      Caption         =   "工作评价管理(&P)"
      Begin VB.Menu pjAdd 
         Caption         =   "添加工作评价信息"
         Shortcut        =   ^P
      End
      Begin VB.Menu pjEdit 
         Caption         =   "修改工作评价信息"
         Shortcut        =   ^R
      End
      Begin VB.Menu pjDel 
         Caption         =   "删除工作评价信息"
      End
      Begin VB.Menu pjFind 
         Caption         =   "工作评价信息查询"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu GzMenu 
      Caption         =   "工资管理(&G)"
      Begin VB.Menu gzJifa 
         Caption         =   "计发员工工资信息"
         Shortcut        =   ^J
      End
      Begin VB.Menu gzEdit 
         Caption         =   "修改员工工资信息"
         Shortcut        =   ^G
      End
      Begin VB.Menu gzFind 
         Caption         =   "员工工资信息查询"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu HelpMenu 
      Caption         =   "帮助(&H)"
      Begin VB.Menu AboutMenu 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim intCount As Integer
Private Sub AboutMenu_Click()
  AboutMe.Show
End Sub
Private Sub AddUser_Click()
  register.Show
End Sub
Private Sub ExitSystem_Click()
  Unload Me
End Sub
Private Sub Relogin_Click()
    Login.Show
End Sub
Private Sub Timer1_Timer()
    Login.Show 1
    Timer1.Enabled = False
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    Select Case Button.Index
        Case 1
            Relogin_Click
        Case 2
            ygFind_Click
        Case 6
            ExitSystem_Click
    End Select
End Sub
Private Sub ygAdd_Click()
    With frmManInfo
        .txtItem(0) = ""
        .txtItem(1) = ""
        .cmbUnit.ListIndex = 0
        .cmbSex.ListIndex = 0
        For intCount = 4 To 20
           .txtItem(intCount) = ""
        Next intCount
        .Caption = .Caption & "添加"
        .Show
    End With
End Sub
Private Sub ygDel_Click()
    Dim sql As String
    Dim Msg As String
    Dim n As Integer
    If flagEdit Then
        If frmManrecord1.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条记录么？", vbOKOnly + vbOKCancel + vbExclamation, "警告") = vbOK Then
                n = frmManrecord1.msgList.Row
                sql = "delete from manInfo where ygID='" & Trim(frmManrecord1.msgList.TextMatrix(frmManrecord1.msgList.Row, 1)) & "'"
                DataE.Commands("cmdMan").CommandText = sql
                DataE.conLibrary.Close
                DataE.conLibrary.Open
                DataE.cmdMan
                flagEdit = True
                frmManrecord1.ShowTitle
                frmManrecord1.ShowData
            End If
        End If
    Else
        MsgBox "请选择要删除的记录！", vbOKOnly + vbExclamation, "警告"
        DataE.Commands("cmdMan").CommandText = "select * from manInfo"
        frmManrecord1.Show
        frmManrecord1.ZOrder 0
    End If
    
End Sub
Private Sub ygEdit_Click()
    Dim intCount As Integer
    If flagEdit Then
        gintMode = 2
        If frmManrecord1.msgList.Rows > 1 Then
            intCount = frmManrecord1.msgList.Row
            sqlStr = "select * from maninfo where ygid='" & frmManrecord1.msgList.TextMatrix(frmManrecord1.msgList.Row, 1) & "'"
            frmManInfo.Show
        Else
            Call ygAdd_Click
        End If
    Else
        MsgBox "请选择要修改的记录！", vbOKOnly + vbExclamation, "警告"
        sqlStr = "select * from manInfo"
        frmManrecord1.Show
        frmManrecord1.ZOrder 0
    End If
End Sub
Private Sub ygFind_Click()
     search.Show
    
End Sub

						