📄 frmpartyinput.frm
字号:
Height = 2295
Left = 105
TabIndex = 1
Top = 240
Width = 9285
_ExtentX = 16378
_ExtentY = 4048
_Version = 131073
Font3D = 1
ForeColor = 255
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "基本信息"
ShadowStyle = 1
Begin VB.TextBox MSKCSNY
BackColor = &H00FFFFFF&
DataField = "CSNY"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 7260
TabIndex = 17
Top = 480
Width = 1455
End
Begin VB.ComboBox cboMZ
BackColor = &H00FFFFFF&
DataField = "MZ"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1260
TabIndex = 8
Text = " "
Top = 1035
Width = 1455
End
Begin VB.TextBox txtXH
BackColor = &H00FFFFFF&
DataField = "XH"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 1260
TabIndex = 7
Top = 480
Width = 1455
End
Begin VB.ComboBox cboXL
BackColor = &H00FFFFFF&
DataField = "XL"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 4170
TabIndex = 6
Text = " "
Top = 1560
Width = 1215
End
Begin VB.ComboBox cboSY
BackColor = &H00FFFFFF&
DataField = "SY"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1260
TabIndex = 5
Text = " "
Top = 1560
Width = 1455
End
Begin VB.ComboBox cboNJ
BackColor = &H00FFFFFF&
DataField = "NJ"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 7260
TabIndex = 4
Text = " "
Top = 1020
Width = 1455
End
Begin VB.ComboBox cboYX
BackColor = &H00FFFFFF&
DataField = "YX"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 4170
TabIndex = 3
Text = " "
Top = 1035
Width = 1215
End
Begin VB.TextBox txtXM
BackColor = &H00FFFFFF&
DataField = "XM"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 4170
TabIndex = 2
Top = 480
Width = 1215
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "民族"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 300
TabIndex = 16
Top = 1080
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "学号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 300
TabIndex = 15
Top = 540
Width = 975
End
Begin VB.Label Label25
Alignment = 2 'Center
Caption = "学历"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 3100
TabIndex = 14
Top = 1620
Width = 975
End
Begin VB.Label Label12
Alignment = 2 'Center
Caption = "生源"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 300
TabIndex = 13
Top = 1620
Width = 975
End
Begin VB.Label Label11
Caption = "所在年级"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 315
Left = 6100
TabIndex = 12
Top = 1080
Width = 885
End
Begin VB.Label Label3
Caption = "出生年月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 6100
TabIndex = 11
Top = 540
Width = 1335
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "院系"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 3100
TabIndex = 10
Top = 1080
Width = 975
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 3100
TabIndex = 9
Top = 540
Width = 975
End
End
Begin ComctlLib.StatusBar SBar1
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 0
Top = 6135
Width = 9510
_ExtentX = 16775
_ExtentY = 714
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
AutoSize = 2
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 14155
Picture = "frmPartyInput.frx":36FE
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 390
Left = 5640
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Party"
Top = 1770
Visible = 0 'False
Width = 2055
End
Begin VB.Line Line1
BorderColor = &H00000000&
X1 = 0
X2 = 2550
Y1 = 0
Y2 = 0
End
Begin VB.Menu MNUFILE
Caption = "【文件&F】"
Begin VB.Menu MNUEXIT
Caption = "退出[&X]"
End
End
Begin VB.Menu MNUDW
Caption = "【记录定位&D】"
Begin VB.Menu MNULOC
Caption = "学号定位[&L]"
End
End
Begin VB.Menu MNU2
Caption = "【功能切换&C】"
Begin VB.Menu MNUSQU
Caption = "信息查询[&S]"
End
Begin VB.Menu mnu21
Caption = "-"
End
Begin VB.Menu mnurep
Caption = "全屏修改[&R]"
End
Begin VB.Menu MNU22
Caption = "-"
End
Begin VB.Menu MNUCOU
Caption = "记录统计[&C]"
End
End
Begin VB.Menu MNUHELP
Caption = "【帮助&H】"
Begin VB.Menu MNUNOTE
Caption = "使用说明[&N]"
End
End
End
Attribute VB_Name = "frmPartyInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Checked As Boolean
Dim AddNew As Boolean
Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
'Frmstart.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -