📄 main_rsgl_yglz.frm
字号:
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column19
DataField = "参加工作时间"
Caption = "参加工作时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column20
DataField = "总工龄"
Caption = "总工龄"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column21
DataField = "照片"
Caption = "照片"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column22
DataField = "部门"
Caption = "部门"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column23
DataField = "职务"
Caption = "职务"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column24
DataField = "职称"
Caption = "职称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column25
DataField = "基本工资"
Caption = "基本工资"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column26
DataField = "入职时间"
Caption = "入职时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column27
DataField = "本单位工龄"
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
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 494.929
EndProperty
BeginProperty Column01
ColumnWidth = 599.811
EndProperty
BeginProperty Column02
ColumnWidth = 780.095
EndProperty
BeginProperty Column03
ColumnWidth = 645.165
EndProperty
BeginProperty Column04
ColumnWidth = 1440
EndProperty
BeginProperty Column05
ColumnWidth = 1035.213
EndProperty
BeginProperty Column06
ColumnWidth = 569.764
EndProperty
BeginProperty Column07
ColumnWidth = 569.764
EndProperty
BeginProperty Column08
ColumnWidth = 824.882
EndProperty
BeginProperty Column09
ColumnWidth = 1365.165
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
ColumnWidth = 2085.166
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
BeginProperty Column14
ColumnWidth = 2085.166
EndProperty
BeginProperty Column15
ColumnWidth = 2085.166
EndProperty
BeginProperty Column16
ColumnWidth = 2085.166
EndProperty
BeginProperty Column17
ColumnWidth = 1365.165
EndProperty
BeginProperty Column18
ColumnWidth = 2085.166
EndProperty
BeginProperty Column19
ColumnWidth = 1725.165
EndProperty
BeginProperty Column20
ColumnWidth = 645.165
EndProperty
BeginProperty Column21
ColumnWidth = 2085.166
EndProperty
BeginProperty Column22
ColumnWidth = 2085.166
EndProperty
BeginProperty Column23
ColumnWidth = 2085.166
EndProperty
BeginProperty Column24
ColumnWidth = 2085.166
EndProperty
BeginProperty Column25
ColumnWidth = 2085.166
EndProperty
BeginProperty Column26
ColumnWidth = 2085.166
EndProperty
BeginProperty Column27
ColumnWidth = 1094.74
EndProperty
EndProperty
End
End
Attribute VB_Name = "main_rsgl_yglz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
With Adodc1.Recordset
If Adodc1.Recordset.RecordCount > 0 Then
Text1(0) = .Fields("编号")
Text1(1) = .Fields("姓名")
Text1(2) = .Fields("部门")
Text1(3) = .Fields("职务")
Text1(4) = .Fields("职称")
Text1(5) = .Fields("基本工资")
End If
End With
End Sub
Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTP2.SetFocus
End Sub
Private Sub DTP2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus
End Sub
Private Sub Form_Activate()
If sql1 <> "" Then
Adodc1.RecordSource = "select * from " & sql1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Else
MsgBox "没有找到符合条件的记录！", , "提示窗口"
End If
End If
End Sub
Private Sub Form_Load()
DataGrid1_RowColChange 0, 0
DTP1.Value = Date
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sql1 = ""
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "find"
tb1 = "员工信息表"
Load main_fzfind
main_fzfind.Show
Case "all"
Adodc1.RecordSource = "select * from 员工信息表 order by 编号"
Adodc1.Refresh
Case "dimission"
Cnn.Execute ("insert into 离职表(员工编号,姓名,性别,身份证号,出生年月,年龄,民族,婚姻状况,政治面貌,入党团时间,籍贯," _
& "联系电话,手机号码,家庭地址,毕业院校,专业,最高学历,特长,参加工作时间,总工龄,照片,部门,职务," _
& "职称,基本工资,入职时间,本单位工龄) select 编号,姓名,性别,身份证号,出生年月,年龄,民族,婚姻状况,政治面貌,入党团时间,籍贯," _
& "联系电话,手机号码,家庭地址,毕业院校,专业,最高学历,特长,参加工作时间,总工龄,照片,部门,职务," _
& "职称,基本工资,入职时间,本单位工龄 from 员工信息表 where 员工信息表.编号='" + Text1(0) + "'")
Cnn.Execute ("update 离职表 set 离职时间='" + Str(DTP1.Value) + "',离职原因='" + Text2.Text + "'where 员工编号='" + Text1(0) + "'")
Cnn.Execute ("delete from 员工信息表 where 编号='" + Text1(0) + "'")
Adodc1.Refresh
Case "close"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -