frm_search_record.frm
来自「很好一套库存管理」· FRM 代码 · 共 1,200 行 · 第 1/3 页
FRM
1,200 行
VERSION 5.00
Object = "{899348F9-A53A-4D9E-9438-F97F0E81E2DB}#1.0#0"; "LVbuttons.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form frm_search_record
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Search Customer Records"
ClientHeight = 6720
ClientLeft = 45
ClientTop = 330
ClientWidth = 7155
Icon = "frm_search_record.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6720
ScaleWidth = 7155
Begin Crystal.CrystalReport CrystalReport2
Left = 1320
Top = 6240
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Customer Sales Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport CrystalReport1
Left = 840
Top = 6240
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Customer System Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 120
Style = 2 'Dropdown List
TabIndex = 0
Top = 600
Width = 4815
End
Begin TabDlg.SSTab SSTab1
Height = 4935
Left = 120
TabIndex = 17
Top = 1200
Width = 6975
_ExtentX = 12303
_ExtentY = 8705
_Version = 393216
Tabs = 1
TabHeight = 520
BackColor = 16777215
TabCaption(0) = "Customer Records"
TabPicture(0) = "frm_search_record.frx":0E42
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(11)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label1(10)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label1(7)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label1(8)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label1(9)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label1(6)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1(1)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label1(2)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label1(3)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label1(4)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label1(5)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label1(12)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "LaVolpeButton2"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "LaVolpeButton1"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "cmd(2)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Text1(10)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Text1(6)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Text1(7)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Text1(8)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Text1(9)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Text1(1)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Text1(0)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "Text1(2)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Text1(4)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Text1(5)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Text1(3)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Text1(11)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).ControlCount= 27
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 11
Left = 2160
TabIndex = 3
Top = 1200
Width = 4695
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 3
Left = 2160
TabIndex = 5
Top = 1920
Width = 3615
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 5
Left = 2160
MaxLength = 6
TabIndex = 7
Top = 2640
Width = 1215
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 4
Left = 2160
TabIndex = 6
Top = 2280
Width = 1575
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 2160
TabIndex = 4
Top = 1560
Width = 3615
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 2160
TabIndex = 1
Top = 480
Width = 1815
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 2160
TabIndex = 2
Top = 840
Width = 3615
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 9
Left = 2160
MaxLength = 10
TabIndex = 11
Top = 4080
Width = 2895
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 8
Left = 2160
MaxLength = 7
TabIndex = 10
Top = 3720
Width = 1815
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 7
Left = 2160
MaxLength = 7
TabIndex = 9
Top = 3360
Width = 1815
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 6
Left = 2160
MaxLength = 3
TabIndex = 8
Top = 3000
Width = 615
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 10
Left = 2160
TabIndex = 12
Top = 4440
Width = 2895
End
Begin LVbuttons.LaVolpeButton cmd
Height = 375
Index = 2
Left = 5520
TabIndex = 13
Top = 4440
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BTYPE = 3
TX = "&Modify"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 2
BCOL = 14737632
FCOL = 0
FCOLO = 0
EMBOSSM = 12632256
EMBOSSS = 16777215
MPTR = 0
MICON = "frm_search_record.frx":0E5E
ALIGN = 1
IMGLST = "(None)"
IMGICON = "(None)"
ICONAlign = 0
ORIENT = 0
STYLE = 0
IconSize = 2
SHOWF = -1 'True
BSTYLE = 0
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?