📄 frmcustomerlistcard.frm
字号:
Top = 1410
Width = 735
End
Begin VB.Label lblTitle
Caption = "传真(&F)"
Height = 195
Index = 30
Left = -71670
TabIndex = 67
Top = 1080
Width = 645
End
Begin VB.Label lblTitle
Caption = "收发地址(&A)"
Height = 195
Index = 26
Left = -74805
TabIndex = 71
Top = 1740
Width = 1125
End
Begin VB.Label lblTitle
Caption = "电子信箱(&E)"
Height = 195
Index = 27
Left = -74805
TabIndex = 73
Top = 2070
Width = 1125
End
Begin VB.Label lblTitle
Caption = "住宅电话(&H)"
Height = 195
Index = 25
Left = -74805
TabIndex = 61
Top = 1410
Width = 1125
End
Begin VB.Label lblTitle
Caption = "办公电话(&O)"
Height = 195
Index = 24
Left = -74805
TabIndex = 59
Top = 1080
Width = 1065
End
Begin VB.Label lblTitle
Caption = "联系人(&D)"
Height = 195
Index = 28
Left = -71670
TabIndex = 63
Top = 420
Width = 915
End
Begin VB.Label lblTitle
Caption = "名称(&N)"
Height = 195
Index = 23
Left = -74805
TabIndex = 57
Top = 750
Width = 630
End
Begin VB.Label lblTitle
Caption = "编码(&C)"
Height = 195
Index = 22
Left = -74805
TabIndex = 55
Top = 420
Width = 1365
End
Begin VB.Label lblTitle
Caption = "开户银行名称(&J)"
Height = 200
Index = 20
Left = -74850
TabIndex = 47
Top = 540
Width = 1390
End
Begin VB.Label lblTitle
Caption = "开户银行帐号(&W)"
Height = 200
Index = 21
Left = -74850
TabIndex = 49
Top = 860
Width = 1390
End
Begin VB.Label lblTitle
Caption = "税号(&X)"
Height = 180
Index = 5
Left = 120
TabIndex = 20
Top = 2160
Width = 1005
End
Begin VB.Label lblTitle
Caption = "所属地区(&B)"
Height = 180
Index = 3
Left = 120
TabIndex = 12
Top = 1515
Width = 1035
End
Begin VB.Label lblTitle
Caption = "信用额度(&Q)"
Height = 180
Index = 7
Left = 120
TabIndex = 28
Top = 2850
Width = 1005
End
Begin VB.Label lblTitle
Caption = "扣率%(&R)"
Height = 180
Index = 6
Left = 120
TabIndex = 24
Top = 2490
Width = 945
End
Begin VB.Label lblTitle
Caption = "经办职员(&L)"
Height = 180
Index = 17
Left = 3600
TabIndex = 30
Top = 2850
Width = 1035
End
Begin VB.Label lblTitle
Caption = "单位编码(&C)"
Height = 180
Index = 0
Left = 120
TabIndex = 0
Top = 540
Width = 1065
End
Begin VB.Label lblTitle
Caption = "单位名称(&N)"
Height = 180
Index = 1
Left = 120
TabIndex = 4
Top = 840
Width = 1035
End
Begin VB.Label lblTitle
Caption = "所属类型(&Y)"
Height = 180
Index = 2
Left = 120
TabIndex = 8
Top = 1170
Width = 1065
End
Begin VB.Label lblTitle
Caption = "联系人(&I)"
Height = 180
Index = 11
Left = 3600
TabIndex = 6
Top = 870
Width = 855
End
Begin VB.Label lblTitle
Caption = "职务(&Z)"
Height = 180
Index = 12
Left = 3600
TabIndex = 10
Top = 1200
Width = 645
End
Begin VB.Label lblTitle
Caption = "办公电话(&O)"
Height = 180
Index = 13
Left = 3600
TabIndex = 14
Top = 1530
Width = 1035
End
Begin VB.Label lblTitle
Caption = "住宅电话(&H)"
Height = 180
Index = 14
Left = 3600
TabIndex = 18
Top = 1860
Width = 1065
End
Begin VB.Label lblTitle
Caption = "传真(&U)"
Height = 180
Index = 15
Left = 3600
TabIndex = 22
Top = 2160
Width = 795
End
Begin VB.Label lblTitle
Caption = "电子信箱(&E)"
Height = 180
Index = 8
Left = 120
TabIndex = 32
Top = 3180
Width = 1095
End
Begin VB.Label lblTitle
Caption = "邮政编码(&P)"
Height = 180
Index = 16
Left = 3600
TabIndex = 26
Top = 2520
Width = 1005
End
Begin VB.Label lblTitle
Caption = "单位性质(&T)"
Height = 180
Index = 10
Left = 3600
TabIndex = 2
Top = 540
Width = 1215
End
Begin VB.Label lblTitle
Caption = "付款条件(&M)"
Height = 180
Index = 4
Left = 120
TabIndex = 16
Top = 1845
Width = 1035
End
Begin VB.Label lblTitle
Caption = "单位地址(&A)"
Height = 180
Index = 9
Left = 120
TabIndex = 34
Top = 3510
Width = 1065
End
Begin VB.Label lblTitle
Caption = "应付科目(&F)"
Height = 180
Index = 18
Left = 120
TabIndex = 38
Top = 4170
Width = 1065
End
Begin VB.Label lblTitle
Caption = "应收科目(&D)"
Height = 180
Index = 19
Left = 120
TabIndex = 36
Top = 3840
Width = 1095
End
End
Begin VB.CommandButton cmdOKCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 6120
Style = 1 'Graphical
TabIndex = 44
Tag = "1002"
Top = 915
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Default = -1 'True
Height = 350
Index = 0
Left = 6120
Style = 1 'Graphical
TabIndex = 43
Tag = "1001"
Top = 510
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 2
Left = 6120
Style = 1 'Graphical
TabIndex = 45
Tag = "1009"
Top = 1305
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOKCancel
Height = 350
Index = 3
Left = 6120
Style = 1 'Graphical
TabIndex = 46
Tag = "1013"
Top = 1770
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkPause
Caption = "停用"
Height = 195
Left = 6120
TabIndex = 42
Top = 4410
Width = 975
End
End
Attribute VB_Name = "frmCustomerListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 单位卡片
' 作者：苏涛
' 日期：1998.06.25
'
' 功能：完成单位表的增、删、改操作
'
' 接口： AddCard 增加单位记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改单位记录。
' 参数： lngRecordID 被修改的记录的ID，intModal 显示模式
' DelCard 删除单位记录。
' 参数： lngRecordID 被删除的记录的ID
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -