【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-customer.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form customer
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "BMS - Customers"
ClientHeight = 5640
ClientLeft = 1485
ClientTop = 2100
ClientWidth = 8820
FillColor = &H00764E10&
BeginProperty Font
Name = "Monotype Corsiva"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00764E10&
Icon = "customer.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 5640
ScaleWidth = 8820
Begin TabDlg.SSTab SSTab1
Height = 3945
Left = 45
TabIndex = 4
Top = 1350
Width = 8700
_ExtentX = 15346
_ExtentY = 6959
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 520
BackColor = 16777215
ForeColor = 9992024
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "创建新会员"
TabPicture(0) = "customer.frx":0442
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Shape1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label4"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Line5"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label6"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label8"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label9"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "txtaccount"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmdlogin"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtname"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtphones"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Command1"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).ControlCount= 11
TabCaption(1) = "会员设置"
TabPicture(1) = "customer.frx":045E
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Shape2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label5"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Line6"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label10"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label11"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Command2"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "txtdues"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Command3"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "cmbname"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "cmbaccount"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Command4"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
Begin VB.CommandButton Command4
BackColor = &H00E2D1D3&
Caption = "<< 获得金额"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 6720
MaskColor = &H00987758&
Style = 1 'Graphical
TabIndex = 19
Top = 2070
UseMaskColor = -1 'True
Width = 1575
End
Begin VB.ComboBox cmbaccount
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 360
Left = 4185
Style = 2 'Dropdown List
TabIndex = 16
Top = 1575
Width = 1395
End
Begin VB.ComboBox cmbname
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00987758&
Height = 360
Left = 5610
Style = 2 'Dropdown List
TabIndex = 17
Top = 1575
Width = 2715
End
Begin VB.CommandButton Command3
BackColor = &H00E2D1D3&
Caption = "确
相关文章
2013-9-1
