📄 技术人才主菜单.frm
字号:
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 600
MouseIcon = "技术人才主菜单.frx":1374
MousePointer = 99 'Custom
TabIndex = 19
Top = 5670
Width = 1530
End
Begin VB.Line Line2
BorderColor = &H80000001&
BorderWidth = 2
X1 = 186
X2 = 186
Y1 = 66
Y2 = 558
End
Begin VB.Line Line3
BorderColor = &H80000001&
BorderWidth = 2
X1 = 2
X2 = 184
Y1 = 420
Y2 = 420
End
Begin VB.Line Line4
BorderColor = &H80000001&
BorderWidth = 2
X1 = 0
X2 = 180
Y1 = 128
Y2 = 128
End
Begin VB.Line Line5
BorderColor = &H80000001&
BorderWidth = 2
X1 = 2
X2 = 184
Y1 = 182
Y2 = 182
End
Begin VB.Line Line6
BorderColor = &H80000001&
BorderWidth = 2
X1 = 2
X2 = 184
Y1 = 244
Y2 = 244
End
Begin VB.Line Line7
BorderColor = &H80000001&
BorderWidth = 2
X1 = 2
X2 = 184
Y1 = 302
Y2 = 302
End
Begin VB.Line Line8
BorderColor = &H80000001&
BorderWidth = 2
X1 = 2
X2 = 184
Y1 = 360
Y2 = 360
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "工"
BeginProperty Font
Name = "华文行楷"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 825
Left = 9510
TabIndex = 18
Top = 930
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "作"
BeginProperty Font
Name = "华文行楷"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 825
Left = 9510
TabIndex = 17
Top = 2055
Width = 885
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "选"
BeginProperty Font
Name = "华文行楷"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 825
Left = 9510
TabIndex = 16
Top = 3195
Width = 915
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "项"
BeginProperty Font
Name = "华文行楷"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 855
Left = 9510
TabIndex = 15
Top = 4320
Width = 915
End
Begin VB.Shape Shape1
BorderColor = &H80000005&
BorderWidth = 3
Height = 5145
Left = 8940
Shape = 4 'Rounded Rectangle
Top = 480
Width = 1965
End
Begin VB.Shape Shape2
BorderColor = &H00FFFF00&
BorderWidth = 2
Height = 4995
Left = 9030
Shape = 4 'Rounded Rectangle
Top = 570
Width = 1815
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 As String
Private Sub Form_Load()
Dim A As String
Dim B As Integer
On Error GoTo A1
A = Me.hwnd: B = 0
Disabled A, B
Me.Top = 0
Me.Left = 0
ScaleMode = 3
R = 71: G = 180: B = 211
For I = 1 To 600
Y = Y + 1
Line (1, Y)-(800, Y), RGB(R, G, B)
R = R - 0.085: G = G - 0.1975: B = B - 0.1575
Next I
A1:
Exit Sub
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFFFF&: Label6.ForeColor = &HFFFF&: Label7.ForeColor = &HFFFF&
Label8.ForeColor = &HFFFF&: Label9.ForeColor = &HFFFF&: Label10.ForeColor = &HFFFF&
End Sub
Private Sub Label5_Click()
On Error Resume Next
Unload Me: 技术人才信息查询.Show
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFF
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFF
End Sub
Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF
End Sub
Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.ForeColor = &HFF
End Sub
Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.ForeColor = &HFF
End Sub
Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label10.ForeColor = &HFF
End Sub
Private Sub Label6_Click()
On Error Resume Next
Unload Me: 技术人才信息录入.Show
End Sub
Private Sub Label7_Click()
On Error Resume Next
Unload Me: 技术人才信息修改.Show
End Sub
Private Sub Label8_Click()
On Error Resume Next
Unload Me: 技术人才信息删除.Show
End Sub
Private Sub Label9_Click()
Call Prn
End Sub
Private Sub Label10_Click()
Unload Me
启动.Show
End Sub
Private Sub Prn()
On Error GoTo A1
Dim S() As String, X As Integer, I As Integer, J As Integer
Data1.DatabaseName = App.Path + "\" + "人才库.mdb"
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Num = Data1.Recordset.RecordCount
For J = 1 To Num
X = Int(Len(Text11) / 26) + 1
ReDim S(X + 1) As String
For I = 0 To X
S(I + 1) = Mid(Text11.Text, I * 26 + 1, 26)
Next I
Printer.ScaleMode = 6
Printer.CurrentX = 65: Printer.CurrentY = 17
Printer.FontSize = 20: Printer.FontName = "华文行楷"
Printer.Print " 技术人才登记表"
Printer.Line (10, 28)-(166, 200), , 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 (10, 82)-(166, 82)
Printer.Line (33, 28)-(33, 46)
Printer.Line (53, 46)-(52, 82)
Printer.Line (61, 28)-(61, 46)
Printer.Line (85, 28)-(85, 46)
Printer.Line (101, 28)-(101, 46)
Printer.Line (126, 28)-(126, 46)
Printer.Line (28, 82)-(28, 200)
Printer.FontSize = 14: Printer.FontName = "仿宋_GB2312"
Printer.CurrentX = 12: Printer.CurrentY = 30: Printer.Print "姓 名"
Printer.CurrentX = 35: Printer.CurrentY = 30: Printer.Print Text1
Printer.CurrentX = 63: Printer.CurrentY = 30: Printer.Print "性 别"
Printer.CurrentX = 87: Printer.CurrentY = 30: Printer.Print Text12
Printer.CurrentX = 103: Printer.CurrentY = 30: Printer.Print "出生年月"
Printer.CurrentX = 128: Printer.CurrentY = 30: Printer.Print Text2 + "年" + Text3 + "月" + Text4 + "日"
Printer.CurrentX = 12: Printer.CurrentY = 39: Printer.Print "文化程度"
Printer.CurrentX = 35: Printer.CurrentY = 39: Printer.Print Text13
Printer.CurrentX = 63: Printer.CurrentY = 39: Printer.Print "政治面貌"
Printer.CurrentX = 87: Printer.CurrentY = 39: Printer.Print Text14
Printer.CurrentX = 103: Printer.CurrentY = 39: Printer.Print "技术职称"
Printer.CurrentX = 131: Printer.CurrentY = 39: Printer.Print Text15
Printer.CurrentX = 12: Printer.CurrentY = 48: Printer.Print "通 讯 地 址"
Printer.CurrentX = 56: Printer.CurrentY = 48: Printer.Print Text5
Printer.CurrentX = 70: Printer.CurrentY = 48: Printer.Print "县（市）"
Printer.CurrentX = 90: Printer.CurrentY = 48: Printer.Print Text6
Printer.CurrentX = 100: Printer.CurrentY = 48: Printer.Print "区"
Printer.CurrentX = 121: Printer.CurrentY = 48: Printer.Print Text7
Printer.CurrentX = 133: Printer.CurrentY = 48: Printer.Print "街（路）"
Printer.CurrentX = 141: Printer.CurrentY = 48: Printer.Print Text8
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
Printer.CurrentX = 12: Printer.CurrentY = 69: Printer.Print "曾获何种奖励"
Printer.CurrentX = 56: Printer.CurrentY = 69: Printer.Print Text10
Printer.CurrentX = 17: Printer.CurrentY = 89: Printer.Print "科"
Printer.CurrentX = 17: Printer.CurrentY = 99: Printer.Print "研"
Printer.CurrentX = 17: Printer.CurrentY = 109: Printer.Print "成"
Printer.CurrentX = 17: Printer.CurrentY = 119: Printer.Print "果"
For I = 0 To X
Printer.CurrentX = 32: Printer.CurrentY = 84 + 10 * I: Printer.Print S(I + 1)
Next I
Printer.NewPage
Data1.Recordset.Move 1
Next J
Printer.EndDoc
Printer.KillDoc
Exit Sub
A1:
MsgBox "数据库中无记录，请输入数据 ！", vbOKOnly + vbExclamation
End Sub
Private Sub Q_Click()
Unload Me
启动.Show
End Sub
Private Sub Timer1_Timer()
Chc Label1, 1, 12, 1
Chc Label2, 1, 12, 1
Chc Label3, 1, 12, 1
Chc Label4, 1, 12, 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -