?? 人事檔案.frm
字號:
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?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -