?? main_rsxx_lr.frm
字號:
Height = 255
Left = 135
TabIndex = 27
Top = 3645
Width = 7020
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "婚姻狀況： 政治面貌： 民族："
Height = 255
Left = 135
TabIndex = 24
Top = 3165
Width = 7020
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "聯系電話： 部門名稱： "
Height = 255
Left = 135
TabIndex = 20
Top = 2685
Width = 7020
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "聘用日期： 家庭住址："
Height = 255
Left = 135
TabIndex = 18
Top = 2220
Width = 7020
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "籍貫： 工齡： 相片："
Height = 255
Left = 135
TabIndex = 16
Top = 1725
Width = 7020
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "性別： 出生日期： 身份證號："
ForeColor = &H00000000&
Height = 315
Index = 1
Left = 135
TabIndex = 15
Top = 1215
Width = 7395
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "工號： 姓 名： 曾 用 名："
ForeColor = &H00000000&
Height = 315
Index = 0
Left = 135
TabIndex = 11
Top = 735
Width = 7395
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "檔案編號："
ForeColor = &H00000000&
Height = 315
Index = 6
Left = 135
TabIndex = 10
Top = 225
Width = 1065
End
End
Begin VB.CommandButton CmdSave
BackColor = &H00FFC0C0&
Caption = "保存"
Height = 390
Left = 5775
Style = 1 'Graphical
TabIndex = 1
Top = 5550
Width = 1530
End
Begin VB.Label Label10
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00FFC0C0&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋體"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 375
Left = 2295
TabIndex = 40
Top = 120
Width = 4095
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "相片路徑："
ForeColor = &H000000FF&
Height = 210
Left = 105
TabIndex = 39
Top = 5655
Width = 900
End
Begin VB.Label Lblxplj
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 495
Left = 990
TabIndex = 37
Top = 5520
Width = 4695
End
End
Attribute VB_Name = "main_rsxx_lr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer '定義整型變量
Dim rs1 As New ADODB.Recordset '定義數據集對象
Private Sub Cbo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTP1.SetFocus
End Sub
Private Sub Cbo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Cbo3.SetFocus
End Sub
Private Sub Cbo3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Txt1(9).SetFocus
End Sub
Private Sub Cbo4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Txt1(11).SetFocus
End Sub
Private Sub Cbo5_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Txt1(12).SetFocus
End Sub
Private Sub Cbo6_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Cbo7.SetFocus
End Sub
Private Sub Cbo7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then CmdSave.SetFocus
End Sub
Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Cbo2.SetFocus
End Sub
Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Txt1(4).SetFocus
End Sub
Private Sub DTP2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Txt1(7).SetFocus
End Sub
Private Sub Form_Load()
Cbo1.AddItem ("男")
Cbo1.AddItem ("女")
Cbo1.ListIndex = 0
Cbo2.AddItem ("未婚")
Cbo2.AddItem ("已婚")
Cbo2.AddItem ("再婚")
Cbo2.ListIndex = 0
Cbo3.AddItem ("無")
Cbo3.AddItem ("團員")
Cbo3.AddItem ("黨員")
Cbo3.ListIndex = 0
Cbo4.AddItem ("初中及以下")
Cbo4.AddItem ("中專/高中")
Cbo4.AddItem ("?？?quot;)
Cbo4.AddItem ("本科")
Cbo4.AddItem ("研究生")
Cbo4.ListIndex = 1
Cbo5.AddItem ("正式工")
Cbo5.AddItem ("臨時工")
Cbo5.AddItem ("合同工")
Cbo5.ListIndex = 0
For i = 1 To 10
Cbo6.AddItem i & "級"
Next i
Cbo6.ListIndex = 0
Cbo7.AddItem ("在職")
Cbo7.AddItem ("離職")
Cbo7.ListIndex = 0
End Sub
Private Sub Form_Activate()
Txt1(2).SetFocus
End Sub
Private Sub PicPhoto_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTP2.SetFocus
End Sub
Private Sub Txt1_GotFocus(Index As Integer)
Txt1(Index).SelStart = 0
Txt1(Index).SelLength = Len(Txt1(Index))
End Sub
Private Sub Txt1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
'回車獲得焦點
If KeyCode = vbKeyReturn And Index < 12 Then Txt1(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 2 Then Txt1(3).SetFocus
If KeyCode = vbKeyReturn And Index = 3 Then Cbo1.SetFocus
If KeyCode = vbKeyReturn And Index = 6 Then PicPhoto.SetFocus
If KeyCode = vbKeyReturn And Index = 7 Then Txt1(8).SetFocus
If KeyCode = vbKeyReturn And Index = 8 Then DataCombo1.SetFocus
If KeyCode = vbKeyReturn And Index = 9 Then Txt1(10).SetFocus
If KeyCode = vbKeyReturn And Index = 10 Then Cbo4.SetFocus
If KeyCode = vbKeyReturn And Index = 11 Then Cbo5.SetFocus
If KeyCode = vbKeyReturn And Index = 12 Then Cbo6.SetFocus
End Sub
Private Sub CmdSave_Click()
Dim a As String
rs1.Open "select * from 人事檔案信息表 where 工號='" & Txt1(1).Text & "'order by 工號", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
a = MsgBox("您確實要修改這條數據嗎?", vbYesNo)
If a = vbYes Then
For i = 0 To 3
If Txt1(1).Text <> "" Then rs1.Fields(i) = Trim(Txt1(i).Text)
Next i
rs1.Fields("性別") = Cbo1.Text
rs1.Fields("出生日期") = DTP1.Value
rs1.Fields("身份證號") = Txt1(4).Text
rs1.Fields("相片") = Lblxplj.Caption
rs1.Fields("籍貫") = Txt1(5).Text
rs1.Fields("工齡") = Txt1(6).Text
rs1.Fields("聘用日期") = DTP2.Value
rs1.Fields("家庭住址") = Txt1(7).Text
rs1.Fields("聯系電話") = Txt1(8).Text
rs1.Fields("部門名稱") = DataCombo1.Text
rs1.Fields("婚姻狀況") = Cbo2.Text
rs1.Fields("政治面貌") = Cbo3.Text
rs1.Fields("民族") = Txt1(9).Text
rs1.Fields("技術職稱") = Txt1(10).Text
rs1.Fields("文化程度") = Cbo4.Text
rs1.Fields("行政職務") = Txt1(11).Text
rs1.Fields("用工性質") = Cbo5.Text
rs1.Fields("健康狀況") = Txt1(12).Text
rs1.Fields("工資級別") = Cbo6.Text
rs1.Fields("員工狀態") = Cbo7.Text
rs1.Update
main_rsxx.Adodc1.Refresh
End If
Else
If Txt1(2).Text = "" Then
MsgBox "姓名不允許為空！"
Exit Sub
End If
'新增人員
rs1.AddNew
For i = 0 To 3
If Txt1(1).Text <> "" Then rs1.Fields(i) = Trim(Txt1(i).Text)
Next i
rs1.Fields("性別") = Cbo1.Text
rs1.Fields("出生日期") = DTP1.Value
rs1.Fields("身份證號") = Txt1(4).Text
rs1.Fields("相片") = Lblxplj.Caption
rs1.Fields("籍貫") = Txt1(5).Text
rs1.Fields("工齡") = Txt1(6).Text
rs1.Fields("聘用日期") = DTP2.Value
rs1.Fields("家庭住址") = Txt1(7).Text
rs1.Fields("聯系電話") = Txt1(8).Text
rs1.Fields("部門名稱") = DataCombo1.Text
rs1.Fields("婚姻狀況") = Cbo2.Text
rs1.Fields("政治面貌") = Cbo3.Text
rs1.Fields("民族") = Txt1(9).Text
rs1.Fields("技術職稱") = Txt1(10).Text
rs1.Fields("文化程度") = Cbo4.Text
rs1.Fields("行政職務") = Txt1(11).Text
rs1.Fields("用工性質") = Cbo5.Text
rs1.Fields("健康狀況") = Txt1(12).Text
rs1.Fields("工資級別") = Cbo6.Text
rs1.Fields("員工狀態") = Cbo7.Text
rs1.Update
main_rsxx.Adodc1.Refresh
main_rsbd.Adodc1.Refresh
End If
'關閉數據集對象
rs1.Close
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub CmdEnd_Click()
Unload Me
End Sub
Private Sub Lbljrxp_Click()
'添加職工相片
With CDialog1
.DialogTitle = "選擇要加入的職工相片"
.Filter = "jpg圖片|*.jpg"
.ShowOpen '打開對話框
Image1.Picture = LoadPicture(.FileName)
PicPhoto.Picture = LoadPicture(.FileName)
Lblxplj.Caption = .FileName
End With
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -