📄 zw_zpcx.frm
字号:
Height = 255
Left = 300
TabIndex = 59
Top = 5370
Width = 735
End
Begin VB.Label lb_sx
Caption = "卡 属 性"
Height = 255
Left = 300
TabIndex = 58
Top = 5070
Width = 735
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "发生日期"
Height = 255
Left = 300
TabIndex = 52
Top = 390
Width = 735
End
Begin VB.Label Label14
Caption = "身份证号"
Height = 255
Left = 300
TabIndex = 51
Top = 3720
Width = 735
End
Begin VB.Label Label13
Caption = "联 系 人"
Height = 255
Left = 300
TabIndex = 50
Top = 3390
Width = 735
End
Begin VB.Label Label12
Caption = "联系电话"
Height = 255
Left = 300
TabIndex = 49
Top = 3060
Width = 735
End
Begin VB.Label Label5
Caption = "所属银行"
Height = 255
Left = 300
TabIndex = 48
Top = 2400
Width = 735
End
Begin VB.Label Label6
Caption = "支票号码"
Height = 255
Left = 300
TabIndex = 47
Top = 2070
Width = 735
End
Begin VB.Label Label7
Caption = "记 帐 员"
Height = 255
Left = 300
TabIndex = 46
Top = 1740
Width = 735
End
Begin VB.Label Label8
Caption = "付款单位"
Height = 255
Left = 300
TabIndex = 45
Top = 2730
Width = 735
End
Begin VB.Label Label9
Caption = "填写金额"
Height = 255
Left = 300
TabIndex = 44
Top = 1410
Width = 735
End
Begin VB.Label Label10
Caption = "结算帐号"
Height = 255
Left = 300
TabIndex = 43
Top = 1080
Width = 735
End
Begin VB.Label Label11
Caption = "帐 单 号"
Height = 255
Left = 300
TabIndex = 42
Top = 750
Width = 735
End
Begin VB.Label Label22
Caption = "签发日期、"
Height = 255
Left = 300
TabIndex = 41
Top = 4080
Width = 735
End
Begin VB.Label Label24
Caption = "备 注"
Height = 255
Left = 300
TabIndex = 40
Top = 4410
Width = 735
End
Begin VB.Label lb_lb
Caption = "卡 类 别"
Height = 255
Left = 300
TabIndex = 39
Top = 4710
Width = 735
End
Begin MSForms.ComboBox cm_yh_hm
Height = 300
Left = 1500
TabIndex = 14
Top = 2340
Width = 2205
VariousPropertyBits= 746604571
MaxLength = 30
DisplayStyle = 3
Size = "3889;529"
ColumnCount = 2
cColumnInfo = 2
MatchEntry = 1
ShowDropButtonWhen= 2
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
Object.Width = "705;1058"
End
End
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 5610
Left = 90
TabIndex = 2
Top = 1290
Width = 7500
_ExtentX = 13229
_ExtentY = 9895
_Version = 327680
Rows = 10
Cols = 6
FixedCols = 0
BackColor = 12648447
FocusRect = 0
SelectionMode = 1
End
Begin VB.Label lb_xxxx
Alignment = 2 'Center
Caption = "详细信息"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 7770
TabIndex = 56
Top = 330
Width = 3735
End
Begin VB.Label lb_jls
Alignment = 1 'Right Justify
Caption = "0"
Height = 255
Left = 6540
TabIndex = 55
Top = 1050
Width = 735
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "记录数 :"
Height = 255
Left = 5760
TabIndex = 54
Top = 1050
Width = 795
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "支票查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 300
TabIndex = 53
Top = 240
Width = 7005
End
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 0
Top = 7200
End
Begin VB.Frame JZ
Enabled = 0 'False
Height = 600
Left = 135
TabIndex = 29
Top = 8220
Width = 9870
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
Height = 330
Left = 7980
TabIndex = 35
Top = 225
Width = 1050
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 330
Left = 450
TabIndex = 34
Top = 270
Width = 690
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
Height = 330
Left = 1320
TabIndex = 33
Top = 240
Width = 1500
End
Begin VB.Label JZ_JRSJ1
Caption = "进入时间:"
Height = 195
Left = 3285
TabIndex = 32
Top = 225
Width = 825
End
Begin VB.Label JZ_JRSJ2
Height = 195
Left = 4380
TabIndex = 31
Top = 225
Width = 1230
End
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
Height = 195
Left = 6930
TabIndex = 30
Top = 225
Width = 825
End
End
Begin VB.CommandButton CMD_EXIT
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 10140
TabIndex = 6
Top = 8280
Width = 1575
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 330
Left = 6105
TabIndex = 36
Top = 180
Visible = 0 'False
Width = 5685
End
Begin VB.Label Label1
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 90
TabIndex = 28
Top = 120
Width = 11685
End
End
Attribute VB_Name = "zw_zpcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim key_index As Integer '表示当前功能键的代码
Dim flex_rec As Recordset '
Dim t_funcNo As String '0:增加记录 1:修改记录
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -