⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 人事档案.frm

📁 delphi财务管理系统.rar delphi财务管理系统.rar
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Combo8.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text2.Locked = False
Text17.Locked = True
Option1.Enabled = True
Option2.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Combo1.Locked = False
Combo2.Locked = False
Combo3.Locked = False
Combo4.Locked = False
Image1.Enabled = True
Command1.Enabled = True
End If




Exit Sub
End If
Data1.Recordset.FindNext c
If Data1.Recordset.NoMatch Then
f = 1
Else
MsgBox "此职工编号以存在", vbOKOnly, "提示信息"
Data1.Recordset.Bookmark = oldmark
Combo7.SetFocus
If add = 1 Then

Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command12.Enabled = True
Data1.Recordset.AddNew
Data3.Recordset.AddNew
Combo6.Text = g
Combo7.Text = h
Text4.Text = o(1)
 Text5.Text = o(2)
 Text6.Text = o(3)
 Text7.Text = o(4)
 Text8.Text = o(5)
 Text9.Text = o(6)
 Text10.Text = o(7)
 Text11.Text = o(8)
 Combo8.Text = o(9)
 Text13.Text = o(10)
 Text14.Text = o(11)
 Text15.Text = o(12)
Text16.Text = o(13)
Text2.Text = o(19)
Combo1.Text = o(15)
Combo2.Text = o(16)
Combo3.Text = o(17)
Combo4.Text = o(18)
Image1.Picture = Image2.Picture
If o(14) = "男" Then


Option1.Value = True
Image4.Picture = Image6.Picture
Image5.Picture = Image7.Picture
Else
Option2.Value = True
Image4.Picture = Image7.Picture
Image5.Picture = Image6.Picture
End If
Command10.Enabled = False
Text1.Locked = False
Combo6.Locked = False
Combo7.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Combo8.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text2.Locked = False
Text17.Locked = True
Option1.Enabled = True
Option2.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Combo1.Locked = False
Combo2.Locked = False
Combo3.Locked = False
Combo4.Locked = False
Image1.Enabled = True
Text1.SetFocus
mnunew.Enabled = False
mnudel.Enabled = False
mnumodify.Enabled = False
Command10.Enabled = False
mnualert.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Label27.Caption = "<添加记录>"
Label25.Caption = "记录总数共<" & Data1.Recordset.RecordCount + 1 & ">条"
Label26.Caption = "第<" & Data1.Recordset.RecordCount + 1 & ">条记录"
End If
If add = 0 Then
Data1.Recordset.Edit
Combo6.Text = g
Combo7.Text = h
Text1.Text = d
Text4.Text = o(1)
 Text5.Text = o(2)
 Text6.Text = o(3)
 Text7.Text = o(4)
 Text8.Text = o(5)
 Text9.Text = o(6)
 Text10.Text = o(7)
 Text11.Text = o(8)
 Combo8.Text = o(9)
 Text13.Text = o(10)
 Text14.Text = o(11)
 Text15.Text = o(12)
Text16.Text = o(13)
Text2.Text = o(19)
Combo1.Text = o(15)
Combo2.Text = o(16)
Combo3.Text = o(17)
Combo4.Text = o(18)
Image1.Picture = Image2.Picture
If o(14) = "男" Then


Option1.Value = True
Image4.Picture = Image6.Picture
Image5.Picture = Image7.Picture
Else
Option2.Value = True
Image5.Picture = Image6.Picture
Image4.Picture = Image7.Picture

End If
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command10.Enabled = False
Command12.Enabled = True
Text1.Locked = False
Combo6.Locked = False
Combo7.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Combo8.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text2.Locked = False
Text17.Locked = True
Option1.Enabled = True
Option2.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Combo1.Locked = False
Combo2.Locked = False
Combo3.Locked = False
Combo4.Locked = False
Image1.Enabled = True
Command1.Enabled = True
End If

Exit Sub
End If
Else
c = " 部门 like '" & g & "' and 职务 <> '经理'"

Do Until Data1.Recordset.NoMatch
Data1.Recordset.FindPrevious c
If Data1.Recordset.NoMatch Then

Else
e = e + 1
End If
Loop
e = e + 1
End If
If Data1.Recordset.RecordCount = 0 Then
Else
Data1.Recordset.Bookmark = oldmark
End If

If add = 1 Then
If h = "经理" Then

d = "GD" & a & "000"
Else
b = "001"
Do Until Data1.Recordset.NoMatch
c = "职工编号 like 'GD" & a & b & "'"
Data1.Recordset.FindFirst c
e = 1000 + Int(b) + 1
b = e
b = Right(b, 3)
Loop
e = 1000 + Int(b) - 1
If e = 1000 Then
e = 1001
End If
b = e
b = Right(b, 3)
d = "GD" & a & b
End If
End If

If add = 0 Then
b = e
b = Right(b, 2)
d = "GD" & a & "0" & b
End If



If add = 0 Then
Text1.Text = d

Data1.Recordset.Edit
Combo6.Text = g
Combo7.Text = h
Text1.Text = d
Text4.Text = o(1)
 Text5.Text = o(2)
 Text6.Text = o(3)
 Text7.Text = o(4)
 Text8.Text = o(5)
 Text9.Text = o(6)
 Text10.Text = o(7)
 Text11.Text = o(8)
 Combo8.Text = o(9)
 Text13.Text = o(10)
 Text14.Text = o(11)
 Text15.Text = o(12)
Text16.Text = o(13)
Text2.Text = o(19)
Combo1.Text = o(15)
Combo2.Text = o(16)
Combo3.Text = o(17)
Combo4.Text = o(18)
Image1.Picture = Image2.Picture
If o(14) = "男" Then


Option1.Value = True
Image4.Picture = Image6.Picture
Image5.Picture = Image7.Picture

Else
Option2.Value = True
Image5.Picture = Image6.Picture
Image4.Picture = Image7.Picture

End If
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command10.Enabled = False
Command12.Enabled = True
Text1.Locked = False
Combo6.Locked = False
Combo7.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Combo8.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text2.Locked = False
Text17.Locked = True
Option1.Enabled = True
Option2.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Combo1.Locked = False
Combo2.Locked = False
Combo3.Locked = False
Combo4.Locked = False
Image1.Enabled = True
Command1.Enabled = True
End If

If add = 1 Then

Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command12.Enabled = True
Data1.Recordset.AddNew
Data3.Recordset.AddNew
Combo6.Text = g
Combo7.Text = h
Text1.Text = d
Text4.Text = o(1)
 Text5.Text = o(2)
 Text6.Text = o(3)
 Text7.Text = o(4)
 Text8.Text = o(5)
 Text9.Text = o(6)
 Text10.Text = o(7)
 Text11.Text = o(8)
 Combo8.Text = o(9)
 Text13.Text = o(10)
 Text14.Text = o(11)
 Text15.Text = o(12)
Text16.Text = o(13)
Text2.Text = o(19)
Combo1.Text = o(15)
Combo2.Text = o(16)
Combo3.Text = o(17)
Combo4.Text = o(18)
Image1.Picture = Image2.Picture
If o(14) = "男" Then


Option1.Value = True
Image4.Picture = Image6.Picture
Image5.Picture = Image7.Picture

Else
Option2.Value = True
Image5.Picture = Image6.Picture
Image4.Picture = Image7.Picture

End If
Command10.Enabled = False
Text1.Locked = False
Combo6.Locked = False
Combo7.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text11.Locked = False
Combo8.Locked = False
Text13.Locked = False
Text14.Locked = False
Text15.Locked = False
Text16.Locked = False
Text2.Locked = False
Text17.Locked = True
Option1.Enabled = True
Option2.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Combo1.Locked = False
Combo2.Locked = False
Combo3.Locked = False
Combo4.Locked = False
Image1.Enabled = True
Text1.SetFocus
mnunew.Enabled = False
mnudel.Enabled = False
mnumodify.Enabled = False
Command10.Enabled = False
mnualert.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Label27.Caption = "<添加记录>"
Label25.Caption = "记录总数共<" & Data1.Recordset.RecordCount + 1 & ">条"
Label26.Caption = "第<" & Data1.Recordset.RecordCount + 1 & ">条记录"
End If
End Sub

Private Sub Command13_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text1.Text
Data2.Recordset.Update

Form13.Show
'Form13.Height = 0
a0:
End Sub

Private Sub Command6_Click()
Data2.Recordset.Edit
Data2.Recordset("zgbh") = Text1.Text
Data2.Recordset.Update

Form10.Show
End Sub

Private Sub Data1_Validate(Action As Integer, save As Integer)


save = 0
End Sub

Private Sub Form_Load()
alert = 0
Timer1.Interval = 1000

Dim mhandle As Long, lret As Long, shandle As Long
mhandle = GetMenu(hwnd)
shandle = GetSubMenu(mhandle, 0)
lret = SetMenuItemBitmaps(shandle, 2, myflag, imgopen.Picture, imgopen.Picture)
lret = SetMenuItemBitmaps(shandle, 3, myflag, imgclose.Picture, imgclose.Picture)
shandle = GetSubMenu(mhandle, 1)
lret = SetMenuItemBitmaps(shandle, 7, myflag, imgadd.Picture, imgadd.Picture)
lret = SetMenuItemBitmaps(shandle, 8, myflag, imgdel.Picture, imgdel.Picture)
sh
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -