📄 frmgrry.frm
字号:
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 = 9
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 = 6615
Left = 0
ScaleHeight = 6555
ScaleWidth = 1635
TabIndex = 21
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 = 23
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 = 22
Top = 3120
Width = 1215
End
End
Attribute VB_Name = "frmSHRY"
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 addlvwRY As ListItem
Dim SQL As String
Dim ZGID As Integer '职工ID
Dim RYID As Integer '荣誉ID
Private Sub cmdCZ_Click()
SQL = "select zgid,编号,姓名,职务,出生日期 from 基础档案表 where 姓名 like '%" & Me.txtCZ.Text & "%' ORDER BY 编号 ASC"
Call addlvwZGXX
Me.lvwSHRY.ListItems.Clear
Me.txtBH.Text = ""
Me.txtZGXM.Text = ""
End Sub
Private Sub cmdSC_Click()
If RYID = 0 Then
MsgBox "请先选择成员！", 48, "提示"
Exit Sub
End If
Call OpenConn
cn.Execute ("delete * from 个人荣誉表 where ryid=" & RYID)
Call CloseConn
SQL = "select * from 个人荣誉表 where rzgid=" & ZGID
Call addlvwSHRY
RYID = 0
Me.cmdSC.Enabled = False
End Sub
Private Sub cmdTJ_Click() '添加按钮
If Me.txtBH.Text = "" Then
MsgBox "请先选择职工！", 48, "提示"
Exit Sub
End If
If Me.txtHDSJ.Text = "" Then
MsgBox "请填写获得时间！", 48, "提示"
Me.txtHDSJ.SetFocus
Exit Sub
End If
If Me.txtSHCH.Text = "" Then
MsgBox "请填写所获得的称号！", 48, "提示"
Me.txtSHCH.SetFocus
Exit Sub
End If
Call OpenConn
SQL = "select * from 个人荣誉表"
rs.Open SQL, cn, 3, 3
rs.AddNew
rs!rzgid = ZGID
rs!职工姓名 = Me.txtZGXM.Text
rs!获得时间 = Me.txtHDSJ.Text
rs!所获称号 = Me.txtSHCH.Text
rs!颁发单位 = Me.txtBFDW.Text
rs.Update
Call CloseConn
Me.txtHDSJ.Text = ""
Me.txtSHCH.Text = ""
Me.txtBFDW.Text = ""
SQL = "select * from 个人荣誉表 where rzgid=" & ZGID
Call addlvwSHRY
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.lvwSHRY '所获荣誉
.ColumnHeaders.Add = "ryid"
.ColumnHeaders.Add = "rzgid"
.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
RYID = 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 addlvwSHRY()
Me.lvwSHRY.ListItems.Clear
Call OpenConn
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addlvwRY = Me.lvwSHRY.ListItems.Add(, , rs!RYID)
addlvwRY.SubItems(1) = rs!rzgid
addlvwRY.SubItems(2) = rs!职工姓名
addlvwRY.SubItems(3) = rs!获得时间
addlvwRY.SubItems(4) = rs!所获称号
addlvwRY.SubItems(5) = rs!颁发单位
rs.MoveNext
Loop
Call CloseConn
End Sub
Private Sub lvwSHRY_Click()
If Me.lvwSHRY.ListItems.Count <= 0 Then Exit Sub
RYID = Me.lvwSHRY.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 rzgid=" & ZGID
Call addlvwSHRY
Me.txtBH.Text = Me.lvwZGXX.SelectedItem.SubItems(1)
Me.txtZGXM.Text = Me.lvwZGXX.SelectedItem.SubItems(2)
RYID = 0
Me.cmdSC.Enabled = False
End Sub
Private Sub txtHDSJ_LostFocus()
If IsDate(Me.txtHDSJ.Text) Then
Me.txtHDSJ.Text = Format(Me.txtHDSJ.Text, "yyyy-mm-dd")
Else
Me.txtHDSJ.Text = ""
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -