📄 frmgrjl.frm
字号:
Height = 255
Left = 7560
TabIndex = 10
Top = 120
Width = 975
End
End
Begin MSComctlLib.ListView lvwGRJL
Height = 1575
Left = 1800
TabIndex = 12
Top = 3360
Width = 8655
_ExtentX = 15266
_ExtentY = 2778
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin MSComctlLib.ListView lvwZGXX
Height = 2175
Left = 1800
TabIndex = 13
Top = 840
Width = 8655
_ExtentX = 15266
_ExtentY = 3836
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
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 = 7095
Left = 0
ScaleHeight = 7035
ScaleWidth = 1635
TabIndex = 20
Top = 480
Width = 1695
End
Begin VB.Label Label4
Caption = "职工信息"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
TabIndex = 22
Top = 600
Width = 1575
End
Begin VB.Label Label5
Caption = "个人简历"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
TabIndex = 21
Top = 3120
Width = 1215
End
End
Attribute VB_Name = "frmGRJL"
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 addlvwGR As ListItem
Dim SQL As String
Dim ZGID As Integer '职工ID
Dim JLID As Integer '成员ID
Private Sub cmdCZ_Click()
SQL = "select zgid,编号,姓名,职务,出生日期 from 基础档案表 where 姓名 like '%" & Me.txtCZ.Text & "%' ORDER BY 编号 ASC"
Call addlvwZGXX
Me.lvwGRJL.ListItems.Clear
Me.txtBH.Text = ""
Me.txtZGXM.Text = ""
End Sub
Private Sub cmdSC_Click()
If JLID = 0 Then
MsgBox "请先选择成员！", 48, "提示"
Exit Sub
End If
Call OpenConn
cn.Execute ("delete * from 个人简历表 where jlid=" & JLID)
Call CloseConn
SQL = "select * from 个人简历表 where jzgid=" & ZGID
Call addlvwGRJL '添加家庭成员到lvwJTCY
JLID = 0
Me.cmdSC.Enabled = False
End Sub
Private Sub cmdTJ_Click() '添加按钮
If Me.txtBH.Text = "" Then
MsgBox "请先选择职工！", 48, "提示"
Exit Sub
End If
If Me.txtKSSJ.Text = "" Then
MsgBox "请填写开始时间！", 48, "提示"
Me.txtKSSJ.SetFocus
Exit Sub
End If
If Me.txtJSSJ.Text = "" Then
MsgBox "请填写结束时间！", 48, "提示"
Me.txtJSSJ.SetFocus
Exit Sub
End If
If Me.txtSZDW.Text = "" Then
MsgBox "请填写所在单位！", 48, "提示"
Me.txtSZDW.SetFocus
Exit Sub
End If
Call OpenConn
SQL = "select * from 个人简历表"
rs.Open SQL, cn, 3, 3
rs.AddNew
rs!jzgid = ZGID
rs!职工姓名 = Me.txtZGXM.Text
rs!开始时间 = Me.txtKSSJ.Text
rs!结束时间 = Me.txtJSSJ.Text
rs!所在单位 = Me.txtSZDW.Text
rs!职务 = Me.txtZW.Text
rs!证明人 = Me.txtZMR.Text
rs.Update
Call CloseConn
Me.txtKSSJ.Text = ""
Me.txtJSSJ.Text = ""
Me.txtSZDW.Text = ""
Me.txtZW.Text = ""
Me.txtZMR.Text = ""
SQL = "select * from 个人简历表 where jzgid=" & ZGID
Call addlvwGRJL '添加个人简历到lvwGRJL
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")
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.lvwGRJL '个人简历
.ColumnHeaders.Add = "jlid"
.ColumnHeaders.Add = "jzgid"
.ColumnHeaders.Add = "职工姓名"
.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
JLID = 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 addlvwGRJL()
Me.lvwGRJL.ListItems.Clear
Call OpenConn '添加个人简历过程
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addlvwGR = Me.lvwGRJL.ListItems.Add(, , rs!JLID)
addlvwGR.SubItems(1) = rs!jzgid
addlvwGR.SubItems(2) = rs!职工姓名
addlvwGR.SubItems(3) = rs!开始时间
addlvwGR.SubItems(4) = rs!结束时间
addlvwGR.SubItems(5) = rs!所在单位
addlvwGR.SubItems(6) = rs!证明人
rs.MoveNext
Loop
Call CloseConn
End Sub
Private Sub lvwGRJL_Click()
If Me.lvwGRJL.ListItems.Count <= 0 Then Exit Sub
JLID = Me.lvwGRJL.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 jzgid=" & ZGID
Call addlvwGRJL '添加个人简历到lvwGRJL
Me.txtBH.Text = Me.lvwZGXX.SelectedItem.SubItems(1)
Me.txtZGXM.Text = Me.lvwZGXX.SelectedItem.SubItems(2)
JLID = 0
Me.cmdSC.Enabled = False
End Sub
Private Sub txtJSSJ_LostFocus()
If IsDate(Me.txtJSSJ.Text) Then
Me.txtJSSJ.Text = Format(Me.txtJSSJ, "yyyy-mm-dd")
Else
Me.txtJSSJ.Text = ""
End If
End Sub
Private Sub txtKSSJ_LostFocus()
If IsDate(Me.txtKSSJ.Text) Then
Me.txtKSSJ.Text = Format(Me.txtKSSJ, "yyyy-mm-dd")
Else
Me.txtKSSJ.Text = ""
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -