frmcardmanage.frm
来自「通用书店管理系统」· FRM 代码 · 共 1,276 行 · 第 1/4 页
FRM
1,276 行
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 330
TabIndex = 15
Top = 765
Width = 1395
End
Begin VB.Label Label1
Caption = "会员号："
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 330
TabIndex = 13
Top = 270
Width = 1395
End
End
Begin VB.Frame Frame1
Height = 750
Left = 105
TabIndex = 6
Top = 480
Width = 11655
Begin VB.CommandButton cmdOk
Height = 435
Left = 10335
Picture = "frmCardManage.frx":0000
Style = 1 'Graphical
TabIndex = 11
Top = 225
Width = 930
End
Begin VB.CommandButton cmdSearch
Height = 315
Index = 1
Left = 9345
Picture = "frmCardManage.frx":14E4
Style = 1 'Graphical
TabIndex = 10
Top = 300
Width = 345
End
Begin VB.CommandButton cmdSearch
Height = 315
Index = 0
Left = 4470
Picture = "frmCardManage.frx":1828
Style = 1 'Graphical
TabIndex = 9
Top = 300
Width = 345
End
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 6870
TabIndex = 1
Top = 195
Width = 2460
End
Begin VB.TextBox txtFields
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1980
TabIndex = 0
Top = 210
Width = 2460
End
Begin VB.OptionButton optFields
Caption = "按客户号查询"
Height = 315
Index = 1
Left = 5295
TabIndex = 8
Top = 270
Width = 2085
End
Begin VB.OptionButton optFields
Caption = "按会员卡号查询"
Height = 315
Index = 0
Left = 240
TabIndex = 7
Top = 270
Value = -1 'True
Width = 2085
End
End
Begin TrueOleDBGrid70.TDBGrid tdbMemberData
Height = 3165
Left = 105
TabIndex = 2
Top = 1320
Width = 11655
_ExtentX = 20558
_ExtentY = 5583
_LayoutType = 4
_RowHeight = -2147483647
_WasPersistedAsPixels= 0
Columns(0)._VlistStyle= 0
Columns(0)._MaxComboItems= 5
Columns(0).Caption= "会员号"
Columns(0).DataField= "IntMemberNo"
Columns(0)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(1)._VlistStyle= 0
Columns(1)._MaxComboItems= 5
Columns(1).Caption= "客户号"
Columns(1).DataField= "ChrClientNo"
Columns(1)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(2)._VlistStyle= 0
Columns(2)._MaxComboItems= 5
Columns(2).Caption= "姓名"
Columns(2).DataField= "ChrName"
Columns(2)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(3)._VlistStyle= 0
Columns(3)._MaxComboItems= 5
Columns(3).Caption= "出生日期"
Columns(3).DataField= "DatBronDate"
Columns(3).NumberFormat= "Short Date"
Columns(3)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(4)._VlistStyle= 0
Columns(4)._MaxComboItems= 5
Columns(4).Caption= "性别"
Columns(4).DataField= "ChrSex"
Columns(4)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(5)._VlistStyle= 0
Columns(5)._MaxComboItems= 5
Columns(5).Caption= "级别"
Columns(5).DataField= "ChrLevel"
Columns(5)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(6)._VlistStyle= 0
Columns(6)._MaxComboItems= 5
Columns(6).Caption= "类型"
Columns(6).DataField= "ChrType"
Columns(6)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(7)._VlistStyle= 0
Columns(7)._MaxComboItems= 5
Columns(7).Caption= "最大借书数"
Columns(7).DataField= "IntMaxBorrow"
Columns(7)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(8)._VlistStyle= 0
Columns(8)._MaxComboItems= 5
Columns(8).Caption= "最大借书天数"
Columns(8).DataField= "IntMaxDay"
Columns(8)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(9)._VlistStyle= 0
Columns(9)._MaxComboItems= 5
Columns(9).Caption= "有效期"
Columns(9).DataField= "ChrYXQ"
Columns(9)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(10)._VlistStyle= 0
Columns(10)._MaxComboItems= 5
Columns(10).Caption= "注册日期"
Columns(10).DataField= "DatLoginDate"
Columns(10).NumberFormat= "Short Date"
Columns(10)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(11)._VlistStyle= 0
Columns(11)._MaxComboItems= 5
Columns(11).Caption= "到期日期"
Columns(11).DataField= "DatDQDate"
Columns(11).NumberFormat= "Short Date"
Columns(11)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(12)._VlistStyle= 0
Columns(12)._MaxComboItems= 5
Columns(12).Caption= "会费"
Columns(12).DataField= "DecTax"
Columns(12).NumberFormat= "#,##0.00"
Columns(12)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(13)._VlistStyle= 0
Columns(13)._MaxComboItems= 5
Columns(13).Caption= "押金"
Columns(13).DataField= "DecDeposit"
Columns(13).NumberFormat= "#,##0.00"
Columns(13)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(14)._VlistStyle= 0
Columns(14)._MaxComboItems= 5
Columns(14).Caption= "业务员"
Columns(14).DataField= "ChrMissionary"
Columns(14)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns(15)._VlistStyle= 0
Columns(15)._MaxComboItems= 5
Columns(15).Caption= "状态"
Columns(15).DataField= "ChrState"
Columns(15)._PropDict= "_MaxComboItems,516,2;_VlistStyle,514,3"
Columns.Count = 16
Splits(0)._UserFlags= 0
Splits(0).RecordSelectorWidth= 503
Splits(0)._SavedRecordSelectors= 0 'False
Splits(0).DividerColor= 13160660
Splits(0).SpringMode= 0 'False
Splits(0)._PropDict= "_ColumnProps,515,0;_UserFlags,518,3"
Splits(0)._ColumnProps(0)= "Columns.Count=16"
Splits(0)._ColumnProps(1)= "Column(0).Width=1826"
Splits(0)._ColumnProps(2)= "Column(0).DividerColor=0"
Splits(0)._ColumnProps(3)= "Column(0)._WidthInPix=1720"
Splits(0)._ColumnProps(4)= "Column(0)._ColStyle=516"
Splits(0)._ColumnProps(5)= "Column(0).Order=1"
Splits(0)._ColumnProps(6)= "Column(1).Width=1693"
Splits(0)._ColumnProps(7)= "Column(1).DividerColor=0"
Splits(0)._ColumnProps(8)= "Column(1)._WidthInPix=1588"
Splits(0)._ColumnProps(9)= "Column(1)._ColStyle=516"
Splits(0)._ColumnProps(10)= "Column(1).Order=2"
Splits(0)._ColumnProps(11)= "Column(2).Width=2143"
Splits(0)._ColumnProps(12)= "Column(2).DividerColor=0"
Splits(0)._ColumnProps(13)= "Column(2)._WidthInPix=2037"
Splits(0)._ColumnProps(14)= "Column(2)._ColStyle=516"
Splits(0)._ColumnProps(15)= "Column(2).Order=3"
Splits(0)._ColumnProps(16)= "Column(3).Width=2037"
Splits(0)._ColumnProps(17)= "Column(3).DividerColor=0"
Splits(0)._ColumnProps(18)= "Column(3)._WidthInPix=1931"
Splits(0)._ColumnProps(19)= "Column(3)._ColStyle=516"
Splits(0)._ColumnProps(20)= "Column(3).Order=4"
Splits(0)._ColumnProps(21)= "Column(4).Width=1111"
Splits(0)._ColumnProps(22)= "Column(4).DividerColor=0"
Splits(0)._ColumnProps(23)= "Column(4)._WidthInPix=1005"
Splits(0)._ColumnProps(24)= "Column(4)._ColStyle=516"
Splits(0)._ColumnProps(25)= "Column(4).Order=5"
Splits(0)._ColumnProps(26)= "Column(5).Width=1270"
Splits(0)._ColumnProps(27)= "Column(5).DividerColor=0"
Splits(0)._ColumnProps(28)= "Column(5)._WidthInPix=1164"
Splits(0)._ColumnProps(29)= "Column(5)._ColStyle=516"
Splits(0)._ColumnProps(30)= "Column(5).Order=6"
Splits(0)._ColumnProps(31)= "Column(6).Width=1429"
Splits(0)._ColumnProps(32)= "Column(6).DividerColor=0"
Splits(0)._ColumnProps(33)= "Column(6)._WidthInPix=1323"
Splits(0)._ColumnProps(34)= "Column(6)._ColStyle=516"
Splits(0)._ColumnProps(35)= "Column(6).Order=7"
Splits(0)._ColumnProps(36)= "Column(7).Width=1879"
Splits(0)._ColumnProps(37)= "Column(7).DividerColor=0"
Splits(0)._ColumnProps(38)= "Column(7)._WidthInPix=1773"
Splits(0)._ColumnProps(39)= "Column(7)._ColStyle=516"
Splits(0)._ColumnProps(40)= "Column(7).Order=8"
Splits(0)._ColumnProps(41)= "Column(8).Width=2275"
Splits(0)._ColumnProps(42)= "Column(8).DividerColor=0"
Splits(0)._ColumnProps(43)= "Column(8)._WidthInPix=2170"
Splits(0)._ColumnProps(44)= "Column(8)._ColStyle=516"
Splits(0)._ColumnProps(45)= "Column(8).Order=9"
Splits(0)._ColumnProps(46)= "Column(8)._MinWidth=69412096"
Splits(0)._ColumnProps(47)= "Column(9).Width=1667"
Splits(0)._ColumnProps(48)= "Column(9).DividerColor=0"
Splits(0)._ColumnProps(49)= "Column(9)._WidthInPix=1561"
Splits(0)._ColumnProps(50)= "Column(9)._ColStyle=516"
Splits(0)._ColumnProps(51)= "Column(9).Order=10"
Splits(0)._ColumnProps(52)= "Column(10).Width=1931"
Splits(0)._ColumnProps(53)= "Column(10).DividerColor=0"
Splits(0)._ColumnProps(54)= "Column(10)._WidthInPix=1826"
Splits(0)._ColumnProps(55)= "Column(10)._ColStyle=516"
Splits(0)._ColumnProps(56)= "Column(10).Order=11"
Splits(0)._ColumnProps(57)= "Column(11).Width=1826"
Splits(0)._ColumnProps(58)= "Column(11).DividerColor=0"
Splits(0)._ColumnProps(59)= "Column(11)._WidthInPix=1720"
Splits(0)._ColumnProps(60)= "Column(11)._ColStyle=516"
Splits(0)._ColumnProps(61)= "Column(11).Order=12"
Splits(0)._ColumnProps(62)= "Column(12).Width=1429"
Splits(0)._ColumnProps(63)= "Column(12).DividerColor=0"
Splits(0)._ColumnProps(64)= "Column(12)._WidthInPix=1323"
Splits(0)._ColumnProps(65)= "Column(12)._ColStyle=516"
Splits(0)._ColumnProps(66)= "Column(12).Order=13"
Splits(0)._ColumnProps(67)= "Column(13).Width=1614"
Splits(0)._ColumnProps(68)= "Column(13).DividerColor=0"
Splits(0)._ColumnProps(69)= "Column(13)._WidthInPix=1508"
Splits(0)._ColumnProps(70)= "Column(13)._ColStyle=516"
Splits(0)._ColumnProps(71)= "Column(13).Order=14"
Splits(0)._ColumnProps(72)= "Column(14).Width=1931"
Splits(0)._ColumnProps(73)= "Column(14).DividerColor=0"
Splits(0)._ColumnProps(74)= "Column(14)._WidthInPix=1826"
Splits(0)._ColumnProps(75)= "Column(14)._ColStyle=516"
Splits(0)._ColumnProps(76)= "Column(14).Order=15"
Splits(0)._ColumnProps(77)= "Column(15).Width=1852"
Splits(0)._ColumnProps(78)= "Column(15).DividerColor=0"
Splits(0)._ColumnProps(79)= "Column(15)._WidthInPix=1746"
Splits(0)._ColumnProps(80)= "Column(15)._ColStyle=516"
Splits(0)._ColumnProps(81)= "Column(15).Order=16"
Splits.Count = 1
PrintInfos(0)._StateFlags= 0
PrintInfos(0).Name= "piInternal 0"
PrintInfos(0).PageHeaderFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageFooterFont= "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
PrintInfos(0).PageHeaderHeight= 0
PrintInfos(0).PageFooterHeight= 0
PrintInfos.Count= 1
DefColWidth = 0
HeadLines = 1
FootLines = 1
MultipleLines = 0
CellTipsWidth = 0
DeadAreaBackColor= 13160660
RowDividerColor = 13160660
RowSubDividerColor= 13160660
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?