?? frmsingleview.frm
字號:
Top = 2760
Width = 1215
End
Begin VB.Label lblLabels
Caption = "政治面貌:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 3720
TabIndex = 28
Top = 2280
Width = 1095
End
Begin VB.Label lblLabels
Caption = "健康狀況:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 120
TabIndex = 27
Top = 2280
Width = 1215
End
Begin VB.Label lblLabels
Caption = "婚姻狀況:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 3720
TabIndex = 26
Top = 1800
Width = 1335
End
Begin VB.Label lblLabels
Caption = "籍貫:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 600
TabIndex = 25
Top = 1800
Width = 615
End
Begin VB.Label lblLabels
Caption = "民族:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 4200
TabIndex = 24
Top = 1320
Width = 735
End
Begin VB.Label lblLabels
Caption = "出生日期:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 120
TabIndex = 23
Top = 1320
Width = 1215
End
Begin VB.Label lblLabels
Caption = "性別:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 4200
TabIndex = 22
Top = 840
Width = 615
End
Begin VB.Label lblLabels
Caption = "姓名:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 4200
TabIndex = 21
Top = 360
Width = 615
End
Begin VB.Label lblLabels
Caption = "職務(wù):"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 600
TabIndex = 20
Top = 840
Width = 975
End
Begin VB.Label lblLabels
Caption = "代號ID:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 360
TabIndex = 19
Top = 360
Width = 975
End
Begin VB.Label lblLabels
Caption = "工資:"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 16
Left = 600
TabIndex = 18
Top = 4200
Width = 735
End
End
End
Attribute VB_Name = "frmSingleView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Visible = False
Command2.Visible = True
Command4.Visible = True
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox "請輸入編號！"
Text2.SetFocus
End If
If MsgBox("確定保存當(dāng)前資料嗎？", vbInformation + vbYesNo, "保存資料？") = vbYes Then
Adodc1.Recordset.UpdateBatch
If ActionType = "Add" Then
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
End If
End If
End Sub
Private Sub Command3_Click()
If MsgBox("確定刪除當(dāng)前資料嗎？", vbInformation + vbYesNo, "刪除資料？") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
End If
End Sub
Private Sub Command4_Click()
If MsgBox("放棄當(dāng)前的操作并退出嗎嗎？", vbInformation + vbYesNo, "刪除資料？") = vbYes Then
Adodc1.Recordset.CancelUpdate
Unload Me
End If
End Sub
Private Sub Command5_Click()
Command2.Visible = True
Command4.Visible = True
End Sub
Private Sub Command6_Click()
Load frm社會關(guān)系
frm社會關(guān)系.datPrimaryRS.ConnectionString = conStr
frm社會關(guān)系.datPrimaryRS.RecordSource = "select 代號ID,編號,關(guān)系人姓名,與本人關(guān)系,政治面貌,工作單位,職務(wù),備注 from 社會關(guān)系 where 代號ID like " & Me.Text2.Text & " Order by 編號"
frm社會關(guān)系.datPrimaryRS.Refresh
frm社會關(guān)系.Show
End Sub
Private Sub Command7_Click()
Load frm個人簡歷
frm個人簡歷.datPrimaryRS.ConnectionString = conStr
frm個人簡歷.datPrimaryRS.RecordSource = "select 代號ID,編號,工作單位,職務(wù),起始日期,證明人 from 個人簡歷 where 代號ID like " & Me.Text2.Text & " Order by 編號"
frm個人簡歷.datPrimaryRS.Refresh
frm個人簡歷.Show
End Sub
Private Sub Command8_Click()
Load frm家庭成員
frm家庭成員.datPrimaryRS.ConnectionString = conStr
frm家庭成員.datPrimaryRS.RecordSource = "select 代號ID,編號,成員姓名,與本人關(guān)系,出生年月,婚姻狀況,政治面貌,文化程度,經(jīng)濟來源,工作單位,工資,職務(wù) from 家庭成員 where 代號ID like " & Me.Text2.Text & " Order by 編號"
frm家庭成員.datPrimaryRS.Refresh
frm家庭成員.Show
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = conStr
Adodc1.RecordSource = "select 部門代號,部門,代號ID,姓名,職務(wù),性別,籍貫,民族,出生日期,健康狀況,婚姻狀況,文化程度,政治面貌,家庭住址,進入單位時間,職稱,工資,補貼,備注 from 職工信息 Order by 代號ID"
Adodc1.Refresh
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Command5.Visible = False
Select Case ActionType
Case "Add"
Call Command1_Click
Case "Del"
Command3.Visible = True
Command4.Visible = True
Case "Edit"
Command2.Visible = True
Command4.Visible = True
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -