?? frmjtcy.frm
字號:
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 ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -