frmjtcy.frm

采用VB6.0开发,是一个简单的人事管理系统.

         End
         Begin VB.Label Label2 
            Caption         =   "编    号"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   600
            TabIndex        =   16
            Top             =   75
            Width           =   735
         End
         Begin VB.Label Label1 
            Caption         =   "职工姓名"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   0
            Left            =   3480
            TabIndex        =   11
            Top             =   75
            Width           =   735
         End
      End
   End
   Begin VB.PictureBox Picture1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6615
      Left            =   0
      ScaleHeight     =   6555
      ScaleWidth      =   1635
      TabIndex        =   6
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label5 
      Caption         =   "家庭成员"
      Height          =   255
      Left            =   1920
      TabIndex        =   18
      Top             =   3120
      Width           =   1215
   End
   Begin VB.Label Label4 
      Caption         =   "职工信息"
      Height          =   255
      Left            =   1920
      TabIndex        =   17
      Top             =   600
      Width           =   1575
   End
End
Attribute VB_Name = "frmJTCY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描    述：企事业单位人事管理系统 Ver 2007
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Dim addlvwZG As ListItem
Dim addlvwJT As ListItem
Dim SQL As String
Dim ZGID As Integer '职工ID
Dim CYID As Integer '成员ID


Private Sub cmdCZ_Click()
SQL = "select zgid,编号,姓名,职务,出生日期 from 基础档案表 where 姓名 like '%" & Me.txtCZ.Text & "%' ORDER BY 编号 ASC"
Call addlvwZGXX
Me.lvwJTCY.ListItems.Clear
Me.txtBH.Text = ""
Me.txtZGXM.Text = ""
End Sub

Private Sub cmdSC_Click()
If CYID = 0 Then
    MsgBox "请先选择成员！", 48, "提示"
    Exit Sub
End If

Call OpenConn
cn.Execute ("delete * from 家庭成员表 where cyid=" & CYID)
Call CloseConn

SQL = "select * from 家庭成员表 where czgid=" & ZGID
Call addlvwJTCY '添加家庭成员到lvwJTCY
CYID = 0
Me.cmdSC.Enabled = False
End Sub

Private Sub cmdTJ_Click() '添加按钮
If Me.txtBH.Text = "" Then
    MsgBox "请先选择职工！", 48, "提示"
    Exit Sub
End If

If Me.txtCYXM.Text = "" Then
    MsgBox "请填写成员姓名！", 48, "提示"
    Me.txtCYXM.SetFocus
    Exit Sub
End If

If Me.comGX.Text = "" Then
    MsgBox "请选择或填写成员关系！", 48, "提示"
    Me.comGX.SetFocus
    Exit Sub
End If

Call OpenConn
SQL = "select * from 家庭成员表"
    rs.Open SQL, cn, 3, 3
    rs.AddNew
    rs!czgid = ZGID
    rs!职工姓名 = Me.txtZGXM.Text
    rs!成员姓名 = Me.txtCYXM.Text
    rs!关系 = Me.comGX.Text
    rs!所在单位 = Me.txtSZDW.Text
    rs.Update
Call CloseConn

Me.txtCYXM.Text = ""
Me.comGX.Text = ""
Me.txtSZDW.Text = ""

SQL = "select * from 家庭成员表 where czgid=" & ZGID
Call addlvwJTCY '添加家庭成员到lvwJTCY

End Sub



Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub

Private Sub Form_Load()
Me.Caption = gXtmc
Me.Icon = MDIfrm.Icon
Me.Picture1.Picture = LoadPicture(App.Path & "\bg\bg1.jpg")


Me.comGX.AddItem "父亲"
Me.comGX.AddItem "母亲"
Me.comGX.AddItem "丈夫"
Me.comGX.AddItem "妻子"
Me.comGX.AddItem "儿子"
Me.comGX.AddItem "女儿"

With Me.lvwZGXX '职工信息
.ColumnHeaders.Add = "zgid"
.ColumnHeaders.Add = "编号"
.ColumnHeaders.Add = "职工姓名"
.ColumnHeaders.Add = "职务"
.ColumnHeaders.Add = "出生日期"
.ColumnHeaders(1).Width = 0
.ColumnHeaders(2).Width = 1600
.ColumnHeaders(3).Width = 1700
.ColumnHeaders(4).Width = 1700
.ColumnHeaders(5).Width = 1700
End With

With Me.lvwJTCY '家庭成员
.ColumnHeaders.Add = "cyid"
.ColumnHeaders.Add = "czgid"
.ColumnHeaders.Add = "职工姓名"
.ColumnHeaders.Add = "成员姓名"
.ColumnHeaders.Add = "关系"
.ColumnHeaders.Add = "所在单位"
.ColumnHeaders(1).Width = 0
.ColumnHeaders(2).Width = 0
.ColumnHeaders(6).Width = 2300
End With

SQL = "select zgid,编号,姓名,职务,出生日期 from 基础档案表 ORDER BY 编号 ASC"
Call addlvwZGXX

CYID = 0
End Sub

Private Sub addlvwZGXX()
Me.lvwZGXX.ListItems.Clear
Call OpenConn '添加职工信息过程

rs.Open SQL, cn, 1, 1
    Do While Not rs.EOF
        Set addlvwZG = Me.lvwZGXX.ListItems.Add(, , rs!ZGID)
            addlvwZG.SubItems(1) = rs!编号
            addlvwZG.SubItems(2) = rs!姓名
            addlvwZG.SubItems(3) = rs!职务
            addlvwZG.SubItems(4) = rs!出生日期
            rs.MoveNext
    Loop
Call CloseConn
End Sub

Private Sub addlvwJTCY()
Me.lvwJTCY.ListItems.Clear
Call OpenConn '添加家庭成员过程

rs.Open SQL, cn, 1, 1
    Do While Not rs.EOF
        Set addlvwJT = Me.lvwJTCY.ListItems.Add(, , rs!CYID)
            addlvwJT.SubItems(1) = rs!czgid
            addlvwJT.SubItems(2) = rs!职工姓名
            addlvwJT.SubItems(3) = rs!成员姓名
            addlvwJT.SubItems(4) = rs!关系
            addlvwJT.SubItems(5) = rs!所在单位
            rs.MoveNext
    Loop
Call CloseConn
End Sub

Private Sub lvwJTCY_Click()
If Me.lvwJTCY.ListItems.Count <= 0 Then Exit Sub
CYID = Me.lvwJTCY.SelectedItem
Me.cmdSC.Enabled = True
End Sub

Private Sub lvwZGXX_Click()
If Me.lvwZGXX.ListItems.Count <= 0 Then Exit Sub
ZGID = Me.lvwZGXX.SelectedItem
SQL = "select * from 家庭成员表 where czgid=" & ZGID
Call addlvwJTCY '添加家庭成员到lvwJTCY

Me.txtBH.Text = Me.lvwZGXX.SelectedItem.SubItems(1)
Me.txtZGXM.Text = Me.lvwZGXX.SelectedItem.SubItems(2)
CYID = 0
Me.cmdSC.Enabled = False
End Sub