📄 formlz.frm
字号:
BeginProperty Column07
DataField = "jobid"
Caption = "职务"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "jobcid"
Caption = "职等"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "jobj"
Caption = "级别"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "borth"
Caption = "出生日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "jaddress"
Caption = "家庭地址"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "marry"
Caption = "婚否"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "lxname"
Caption = "联系人"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
DataField = "lxtel"
Caption = "电话"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column15
DataField = "sfid"
Caption = "身份证"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column16
DataField = "studyid"
Caption = "学历编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column17
DataField = "banlid"
Caption = "班类"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column18
DataField = "xzl"
Caption = "薪资类别"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 720
EndProperty
BeginProperty Column01
ColumnWidth = 870.236
EndProperty
BeginProperty Column02
ColumnWidth = 689.953
EndProperty
BeginProperty Column03
ColumnWidth = 810.142
EndProperty
BeginProperty Column04
ColumnWidth = 450.142
EndProperty
BeginProperty Column05
ColumnWidth = 1124.787
EndProperty
BeginProperty Column06
ColumnWidth = 1140.095
EndProperty
BeginProperty Column07
ColumnWidth = 989.858
EndProperty
BeginProperty Column08
ColumnWidth = 420.095
EndProperty
BeginProperty Column09
ColumnWidth = 494.929
EndProperty
BeginProperty Column10
ColumnWidth = 989.858
EndProperty
BeginProperty Column11
ColumnWidth = 2069.858
EndProperty
BeginProperty Column12
ColumnWidth = 450.142
EndProperty
BeginProperty Column13
ColumnWidth = 1275.024
EndProperty
BeginProperty Column14
ColumnWidth = 1170.142
EndProperty
BeginProperty Column15
ColumnWidth = 1725.165
EndProperty
BeginProperty Column16
ColumnWidth = 1035.213
EndProperty
BeginProperty Column17
ColumnWidth = 1094.74
EndProperty
BeginProperty Column18
ColumnWidth = 14.74
EndProperty
EndProperty
End
Begin VB.Label Label7
Caption = "姓名"
Height = 255
Left = 360
TabIndex = 14
Top = 1680
Width = 735
End
Begin VB.Label Label6
Caption = "结束日期"
Height = 255
Left = 3000
TabIndex = 13
Top = 1320
Width = 735
End
Begin VB.Label Label5
Caption = "开始日期"
Height = 255
Left = 360
TabIndex = 12
Top = 1320
Width = 735
End
Begin VB.Label Label4
Caption = "离职日期"
Height = 255
Left = 360
TabIndex = 6
Top = 720
Width = 735
End
Begin VB.Label Label1
Caption = "工号"
Height = 255
Left = 720
TabIndex = 5
Top = 375
Width = 375
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 2040
TabIndex = 4
Top = 375
Width = 375
End
Begin VB.Label Label3
Caption = "部门"
Height = 255
Left = 3480
TabIndex = 3
Top = 360
Width = 375
End
End
Attribute VB_Name = "Formlz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim response
Private Sub Command1_Click()
response = MsgBox("你确信该员工离职", vbYesNo, "员工离职")
If response = vbYes Then
If IsDate(Text1.Text) Then
Adczgl.Recordset.AddNew
Adczgl.Recordset.Fields("zgid").Value = adczg.Recordset.Fields("zgid").Value
Adczgl.Recordset.Fields("zgname").Value = adczg.Recordset.Fields("zgname").Value
Adczgl.Recordset.Fields("bmid").Value = adczg.Recordset.Fields("bmid").Value
If Not IsNull(adczg.Recordset.Fields("writedate").Value) Then
Adczgl.Recordset.Fields("writedate").Value = adczg.Recordset.Fields("writedate").Value
End If
If Not IsNull(adczg.Recordset.Fields("banlid").Value) Then
Adczgl.Recordset.Fields("banlid").Value = adczg.Recordset.Fields("banlid").Value
End If
If Not IsNull(adczg.Recordset.Fields("jobid").Value) Then
Adczgl.Recordset.Fields("jobid").Value = adczg.Recordset.Fields("jobid").Value
End If
If Not IsNull(adczg.Recordset.Fields("workdate").Value) Then
Adczgl.Recordset.Fields("workdate").Value = adczg.Recordset.Fields("workdate").Value
End If
If Not IsNull(adczg.Recordset.Fields("xzl").Value) Then
Adczgl.Recordset.Fields("xzl").Value = adczg.Recordset.Fields("xzl").Value
End If
If IsNull(adczg.Recordset.Fields("jobcid").Value) Then
Adczgl.Recordset.Fields("jobcid").Value = ""
Else
Adczgl.Recordset.Fields("jobcid").Value = adczg.Recordset.Fields("jobcid").Value
End If
If Not IsNull(adczg.Recordset.Fields("jobj").Value) Then
Adczgl.Recordset.Fields("jobj").Value = adczg.Recordset.Fields("jobj").Value
End If
If Not IsNull(adczg.Recordset.Fields("sex").Value) Then
Adczgl.Recordset.Fields("sex").Value = adczg.Recordset.Fields("sex").Value
End If
If Not IsNull(adczg.Recordset.Fields("sfid").Value) Then
Adczgl.Recordset.Fields("sfid").Value = adczg.Recordset.Fields("sfid").Value
End If
If Not IsNull(adczg.Recordset.Fields("borth").Value) Then
Adczgl.Recordset.Fields("borth").Value = adczg.Recordset.Fields("borth").Value
End If
If Not IsNull(adczg.Recordset.Fields("marry").Value) Then
Adczgl.Recordset.Fields("marry").Value = adczg.Recordset.Fields("marry").Value
End If
If Not IsNull(adczg.Recordset.Fields("lxname").Value) Then
Adczgl.Recordset.Fields("lxname").Value = adczg.Recordset.Fields("lxname").Value
End If
If Not IsNull(adczg.Recordset.Fields("lxtel").Value) Then
Adczgl.Recordset.Fields("lxtel").Value = adczg.Recordset.Fields("lxtel").Value
End If
If Not IsNull(adczg.Recordset.Fields("jaddress").Value) Then
Adczgl.Recordset.Fields("jaddress").Value = adczg.Recordset.Fields("jaddress").Value
End If
If Not IsNull(adczg.Recordset.Fields("studyid").Value) Then
Adczgl.Recordset.Fields("studyid").Value = adczg.Recordset.Fields("studyid").Value
End If
Adczgl.Recordset.Fields("lzd").Value = CDate(Text1.Text)
Adczgl.Recordset.Update
If Not Adczgl.Recordset.EOF Then
adczg.Recordset.Delete
End If
If Not Adckh.Recordset.EOF Then
Adckh.Recordset.Delete
End If
Else
MsgBox ("日期录入有误")
End If
End If
End Sub
Private Sub Command2_Click()
Dim vdate1, vdate2, vzgname
vdate1 = Textdate1.Text
vdate2 = Textdate2.Text
vzgname = Textzgname.Text
If IsDate(Textdate1.Text) And IsDate(Textdate2.Text) Or Textzgname.Text = "" Then
Adczgl.RecordSource = "select * from tzglz where lzd>='" & vdate1 & "' and lzd<='" & vdate2 & "' or zgname='" & vzgname & "'"
Adczgl.Refresh
Else
MsgBox ("输入条件错误")
Textdate1.SetFocus
End If
End Sub
Private Sub Command4_Click()
Adczgl.Recordset.Requery
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Dim response
response = MsgBox("你确信吗？", vbYesNo, "删除记录")
If response = vbYes Then
Adczgl.Recordset.Delete
Adczgl.Recordset.MoveNext
End If
End Sub
Private Sub Form_Load()
Adczgl.RecordSource = "select * from tzglz where zgid<>''"
Adczgl.Refresh
End Sub
Private Sub Textbmname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub
Private Sub Textzgid_KeyDown(KeyCode As Integer, Shift As Integer)
Dim vzgid, vbmid
If IsNull(Text1.Text) Then
MsgBox ("没有输入工号")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
adczg.Refresh
Adckh.RecordSource = "select * from kh where zgid='" & vzgid & "'"
Adckh.Refresh
If Not adczg.Recordset.EOF Then
If IsNull(adczg.Recordset.Fields("zgname").Value) Then
Textzgname = ""
Else
Textzgname.Text = adczg.Recordset.Fields("zgname").Value
If Not IsNull(adczg.Recordset.Fields("bmid").Value) Then
Textbmid.Text = adczg.Recordset.Fields("bmid").Value
End If
vbmid = Textbmid.Text
Adcbm.RecordSource = "select * from tbm where bmid='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
Textbmname.Text = Adcbm.Recordset.Fields("bmname").Value
End If
End If
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -