📄 scgl_clk.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form scgl_clk
ClientHeight = 8880
ClientLeft = 0
ClientTop = 0
ClientWidth = 11880
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8880
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Height = 7665
Left = 150
TabIndex = 50
Top = 480
Width = 11580
Begin VB.CommandButton cmd_func
Caption = "删 除(F4)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 2
Left = 4110
TabIndex = 3
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "增 加(F2)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 0
Left = 390
TabIndex = 1
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "修 改(F3)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 2250
TabIndex = 2
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "筛 选(F6)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 4
Left = 7830
TabIndex = 5
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "刷 新(F9)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 5
Left = 9690
TabIndex = 6
Top = 7020
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "打 印(F5)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 3
Left = 5970
TabIndex = 4
Top = 7020
Width = 1575
End
Begin VB.Frame fm_cx
Caption = "筛选条件"
Height = 1065
Left = 240
TabIndex = 71
Top = 5820
Width = 7065
Begin VB.TextBox tx_yw_m
Height = 300
Left = 2190
MaxLength = 20
TabIndex = 11
Text = "12345678901234567890"
Top = 630
Width = 1275
End
Begin VB.TextBox tx_kr_m
Height = 300
Left = 2190
MaxLength = 16
TabIndex = 9
Text = "1234567890123456"
Top = 240
Width = 1275
End
Begin VB.TextBox tx_kr_x
Height = 300
Left = 930
MaxLength = 14
TabIndex = 8
Text = "12345678901234"
Top = 240
Width = 1215
End
Begin VB.TextBox tx_yw_x
Height = 300
Left = 930
MaxLength = 15
TabIndex = 10
Text = "123456789012345"
Top = 630
Width = 1215
End
Begin VB.TextBox tx_gjdm
Height = 300
Left = 4530
MaxLength = 2
TabIndex = 13
Text = "12"
Top = 630
Width = 315
End
Begin MSMask.MaskEdBox tx_kr_sr
Height = 300
Left = 4530
TabIndex = 12
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 529
_Version = 327680
MaxLength = 10
Mask = "####-##-##"
PromptChar = "_"
End
Begin VB.Label lb_sx_zwxm
Caption = "中文姓名"
Height = 255
Left = 180
TabIndex = 75
Top = 270
Width = 735
End
Begin VB.Label lb_sx_wwxm
Caption = "外文姓名"
Height = 255
Left = 150
TabIndex = 74
Top = 630
Width = 735
End
Begin VB.Label lb_sx_kr_sr
Caption = "生 日"
Height = 255
Left = 3750
TabIndex = 73
Top = 300
Width = 735
End
Begin VB.Label lb_sx_gj
Caption = "国 籍"
Height = 255
Left = 3750
TabIndex = 72
Top = 660
Width = 735
End
Begin MSForms.ComboBox tx_gjmc
Height = 300
Left = 4890
TabIndex = 14
Top = 630
Width = 2085
VariousPropertyBits= 746604571
MaxLength = 20
DisplayStyle = 3
Size = "3678;529"
ColumnCount = 2
cColumnInfo = 2
MatchEntry = 1
ShowDropButtonWhen= 2
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
Object.Width = "705;1058"
End
End
Begin VB.Frame Frame2
Height = 6345
Left = 7500
TabIndex = 51
Top = 540
Width = 3915
Begin VB.OptionButton op_xb
Caption = "男"
Height = 180
Index = 1
Left = 1260
TabIndex = 20
Top = 1470
Value = -1 'True
Width = 675
End
Begin VB.OptionButton op_xb
Caption = "女"
Height = 180
Index = 2
Left = 2070
TabIndex = 21
Top = 1470
Width = 675
End
Begin VB.OptionButton op_xb
Caption = "未知"
Height = 180
Index = 0
Left = 2880
TabIndex = 22
Top = 1470
Width = 675
End
Begin VB.CommandButton cmd_ok
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 690
TabIndex = 39
Top = 5670
Width = 1215
End
Begin VB.CommandButton cmd_ok
Caption = "退 出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 2265
TabIndex = 40
Top = 5670
Width = 1215
End
Begin VB.ComboBox cm_tsfw
Height = 300
Left = 1140
TabIndex = 37
Text = "Combo1"
Top = 4650
Width = 2595
End
Begin VB.TextBox m_qzdm
Height = 300
Left = 1140
MaxLength = 1
TabIndex = 30
Text = "12"
Top = 3210
Width = 315
End
Begin VB.TextBox m_zjdm
Height = 300
Left = 1140
MaxLength = 2
TabIndex = 27
Text = "12"
Top = 2490
Width = 315
End
Begin VB.TextBox m_dz
Height = 300
Left = 1140
MaxLength = 40
TabIndex = 34
Text = "1234567890123456789012345678901234567890"
Top = 3930
Width = 2565
End
Begin VB.TextBox m_gjdm
Height = 300
Left = 1140
MaxLength = 2
TabIndex = 25
Text = "12"
Top = 2130
Width = 315
End
Begin VB.TextBox m_kr_zjhm
Height = 300
Left = 1140
MaxLength = 20
TabIndex = 29
Text = "12345678901234567890"
Top = 2850
Width = 1905
End
Begin VB.TextBox m_yw_x
Height = 300
Left = 1140
MaxLength = 15
TabIndex = 18
Text = "123456789012345"
Top = 1050
Width = 1215
End
Begin VB.TextBox m_kr_x
Height = 300
Left = 1140
MaxLength = 14
TabIndex = 16
Text = "12345678901234"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -