?? 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 + -