📄 管理人才主菜单.frm
字号:
End
Begin VB.TextBox Text7
DataField = "街"
DataSource = "Data1"
Height = 270
Left = 4620
TabIndex = 6
Text = "Text7"
Top = 2160
Visible = 0 'False
Width = 1395
End
Begin VB.TextBox Text6
DataField = "区"
DataSource = "Data1"
Height = 435
Left = 2760
TabIndex = 5
Text = "Text6"
Top = 2040
Visible = 0 'False
Width = 1455
End
Begin VB.TextBox Text5
DataField = "县（市）"
DataSource = "Data1"
Height = 315
Left = 1080
TabIndex = 4
Text = "Text5"
Top = 1980
Visible = 0 'False
Width = 1155
End
Begin VB.TextBox Text4
DataField = "日"
DataSource = "Data1"
Height = 375
Left = 6720
TabIndex = 3
Text = "Text4"
Top = 780
Visible = 0 'False
Width = 1455
End
Begin VB.TextBox Text3
DataField = "月"
DataSource = "Data1"
Height = 375
Left = 5100
TabIndex = 2
Text = "Text3"
Top = 840
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text2
DataField = "年"
DataSource = "Data1"
Height = 495
Left = 4200
TabIndex = 1
Text = "Text2"
Top = 720
Visible = 0 'False
Width = 855
End
Begin VB.TextBox Text1
DataField = "姓名"
DataSource = "Data1"
Height = 435
Left = 1020
TabIndex = 0
Text = "Text1"
Top = 720
Visible = 0 'False
Width = 1155
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Left = 600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "管理人才"
Top = 5640
Visible = 0 'False
Width = 7575
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = 0
X2 = 1023
Y1 = 0
Y2 = 0
End
End
Attribute VB_Name = "管理人才主菜单"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Num, I As Integer
Private Sub Form_Load()
On Error GoTo A1
Dim A As String
Dim B As Integer
A = Me.hwnd
B = 0
Disabled A, B
Exit Sub
A1:
Exit Sub
End Sub
Private Sub Image1_Click()
On Error GoTo A1
Unload Me
管理人才信息查询.Show
Exit Sub
A1:
Result = MsgBox("数据库中无记录，请输入数据 ！", vbOKOnly + vbExclamation)
Exit Sub
End Sub
Private Sub Image5_Click()
Unload Me
管理人才信息录入.Show
End Sub
Private Sub Image7_Click()
On Error GoTo A1
Unload Me
管理人才信息修改.Show
Exit Sub
A1:
Result = MsgBox("数据库中无记录，请输入数据 ！", vbOKOnly + vbExclamation)
Exit Sub
End Sub
Private Sub Image10_Click()
On Error GoTo A1
Unload Me
管理人才信息删除.Show
Exit Sub
A1:
Result = MsgBox("数据库中无记录，请输入数据 ！", vbOKOnly + vbExclamation)
Exit Sub
End Sub
Private Sub Image12_Click()
Call Prn1
End Sub
Private Sub Image14_Click()
Unload Me
启动.Show
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Visible = False
Image1.Visible = True
End Sub
Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image6.Visible = False
Image5.Visible = True
End Sub
Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Visible = False
Image7.Visible = True
End Sub
Private Sub Image11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image11.Visible = False
Image10.Visible = True
End Sub
Private Sub Image13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image13.Visible = False
Image12.Visible = True
Image15.Visible = True
Image14.Visible = False
End Sub
Private Sub Image15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image13.Visible = True
Image12.Visible = False
Image15.Visible = False
Image14.Visible = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Visible = False
Image2.Visible = True
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Image9.Visible = True
Image10.Visible = False
Image11.Visible = True
Image12.Visible = False
Image13.Visible = True
Image14.Visible = False
Image15.Visible = True
End Sub
Private Sub Form_Activate()
On Error GoTo A1
Data1.DatabaseName = App.Path + "\" + "人才库.mdb"
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Num = Data1.Recordset.RecordCount
A1:
Exit Sub
End Sub
Private Sub Prn1()
Dim J As Integer, S() As String
Dim X As Integer, I As Integer
If Num = 0 Then
MsgBox "数据库中无记录，请输入数据 ！", vbOKOnly + vbExclamation
End If
Printer.ScaleMode = 6
For I = 1 To Num
Printer.CurrentX = 45: Printer.CurrentY = 17
Printer.FontSize = 20: Printer.FontName = "华文行楷"
Printer.Print " 管理人才登记表"
Printer.Line (10, 28)-(166, 188), , B
Printer.Line (10, 37)-(166, 37)
Printer.Line (10, 46)-(166, 46)
Printer.Line (10, 55)-(166, 55)
Printer.Line (10, 64)-(166, 64)
Printer.Line (33, 28)-(33, 46)
Printer.Line (61, 28)-(61, 46)
Printer.Line (53, 46)-(53, 64)
Printer.Line (85, 28)-(85, 46)
Printer.Line (191, 28)-(191, 46)
Printer.Line (126, 28)-(126, 46)
Printer.Line (28, 64)-(28, 188)
Printer.FontSize = 14: Printer.FontName = "仿宋_GB2312"
Printer.CurrentX = 12: Printer.CurrentY = 30: Printer.Print "姓 名"
Printer.CurrentX = 35: Printer.CurrentY = 30: Printer.Print Text1.Text
Printer.CurrentX = 63: Printer.CurrentY = 30: Printer.Print "性 别"
Printer.CurrentX = 87: Printer.CurrentY = 30: Printer.Print Text12.Text
Printer.CurrentX = 103: Printer.CurrentY = 30: Printer.Print "出生年月"
Printer.CurrentX = 128: Printer.CurrentY = 30: Printer.Print Text2.Text; "年" + Text3.Text + "月" + Text4.Text + "日"
Printer.CurrentX = 12: Printer.CurrentY = 39: Printer.Print "文化程度"
Printer.CurrentX = 35: Printer.CurrentY = 39: Printer.Print Text13.Text
Printer.CurrentX = 63: Printer.CurrentY = 39: Printer.Print "政治面貌"
Printer.CurrentX = 87: Printer.CurrentY = 39: Printer.Print Text14.Text
Printer.CurrentX = 103: Printer.CurrentY = 39: Printer.Print "技术职称"
Printer.CurrentX = 128: Printer.CurrentY = 39: Printer.Print Text15.Text
Printer.CurrentX = 12: Printer.CurrentY = 48: Printer.Print "通 讯 地 址"
Printer.CurrentX = 56: Printer.CurrentY = 48: Printer.Print Text5.Text
Printer.CurrentX = 70: Printer.CurrentY = 48: Printer.Print "县（市）"
Printer.CurrentX = 90: Printer.CurrentY = 48: Printer.Print Text6.Text
Printer.CurrentX = 100: Printer.CurrentY = 48: Printer.Print "区"
Printer.CurrentX = 121: Printer.CurrentY = 48: Printer.Print Text7.Text
Printer.CurrentX = 133: Printer.CurrentY = 48: Printer.Print "街（路）"
Printer.CurrentX = 141: Printer.CurrentY = 48: Printer.Print Text8.Text
Printer.CurrentX = 156: Printer.CurrentY = 48: Printer.Print "号"
Printer.CurrentX = 12: Printer.CurrentY = 57: Printer.Print "类 别"
Printer.CurrentX = 56: Printer.CurrentY = 57: Printer.Print Text9.Text
Printer.CurrentX = 17: Printer.CurrentY = 84: Printer.Print "简"
Printer.CurrentX = 17: Printer.CurrentY = 94: Printer.Print "要"
Printer.CurrentX = 17: Printer.CurrentY = 104: Printer.Print "经"
Printer.CurrentX = 17: Printer.CurrentY = 114: Printer.Print "历"
X = Len(Text11.Text)
X = Int(X / 26) + 1
ReDim S(X + 1) As String
For J = 0 To X
S(J + 1) = Mid(Text11.Text, J * 26 + 1, 26)
Next J
For J = 0 To X
Printer.CurrentX = 32: Printer.CurrentY = 10 * (6.8 + J): Printer.Print S(J + 1)
Next J
Data1.Recordset.Move 1
Printer.NewPage
Next I
Printer.EndDoc
Printer.KillDoc
End Sub
Private Sub Timer1_Timer()
Chc Label1, 12, 14, 12
Chc Label2, 12, 14, 12
Chc Label3, 12, 14, 12
Chc Label4, 12, 14, 12
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -