?? boxincome.dfm
字號:
inherited FrmBoxIncome: TFrmBoxIncome
Left = 261
Top = 151
HorzScrollBar.Range = 0
VertScrollBar.Range = 0
BorderStyle = bsSingle
Caption = #12304#20837#24211#31649#29702#12305'-'#26426#22120#21253#35013
ClientHeight = 403
ClientWidth = 575
OldCreateOrder = True
ShowHint = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
inherited LabelCaption: TLabel
Width = 68
Height = 17
Font.Height = -16
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
end
inherited ImageMax: TImage
Left = 506
end
inherited CoolBar: TCoolBar
Top = 208
end
inherited PanelBkGnd: TPanel
Left = 6
Top = 41
Width = 559
Height = 354
object Label1: TLabel
Left = 301
Top = 146
Width = 28
Height = 14
Caption = #26465#30721
FocusControl = DBEditBarCode
end
object Label2: TLabel
Left = 280
Top = 20
Width = 42
Height = 14
Caption = #35746#21333#21495
FocusControl = DBEditOrderID
end
object Label3: TLabel
Left = 301
Top = 83
Width = 28
Height = 14
Caption = #26426#22411
FocusControl = DBEditDevName
end
object Label4: TLabel
Left = 273
Top = 51
Width = 56
Height = 14
Caption = #23458#25143#21517#31216
FocusControl = DBEditCustomerName
end
object Label5: TLabel
Left = 273
Top = 114
Width = 56
Height = 14
Caption = #29983#20135#26085#26399
FocusControl = DBEditpostdate
end
object LabelMessage: TLabel
Left = 274
Top = 294
Width = 30
Height = 14
Caption = #25552#31034
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 276
Top = 172
Width = 56
Height = 14
Caption = #37197#32622#35828#26126
FocusControl = DBEditBarCode
end
object Label7: TLabel
Left = 275
Top = 329
Width = 77
Height = 14
Caption = #20170#22825#24050#21253#35013':'
end
object Label8: TLabel
Left = 276
Top = 311
Width = 77
Height = 14
Caption = #26412#27425#24050#21253#35013':'
end
object LabelThisCount: TLabel
Left = 358
Top = 311
Width = 8
Height = 14
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object LabelTodayCount: TLabel
Left = 358
Top = 329
Width = 8
Height = 14
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 15
Top = 10
Width = 254
Height = 334
Caption = #24050#25195#25551#26465#30721
TabOrder = 0
object MemoBarcodeS: TMemo
Left = 2
Top = 16
Width = 250
Height = 236
Align = alClient
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
OnDblClick = MemoBarcodeSDblClick
end
object GroupBox2: TGroupBox
Left = 2
Top = 252
Width = 250
Height = 80
Align = alBottom
Caption = #23558#35201#25171#21360#26465#30721'('#20004#20010')'
TabOrder = 1
object MemoPrintBarCode: TMemo
Left = 6
Top = 15
Width = 232
Height = 60
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 0
end
end
end
object BitBtn1: TBitBtn
Left = 468
Top = 317
Width = 75
Height = 25
TabOrder = 1
OnClick = BitBtn1Click
Kind = bkClose
end
object DBEditBarCode: TDBEdit
Left = 340
Top = 141
Width = 193
Height = 22
DataField = 'BarCode'
DataSource = StockDM.DSBarCodefind
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
end
object DBEditOrderID: TDBEdit
Left = 340
Top = 20
Width = 193
Height = 22
DataField = 'OrderID'
DataSource = StockDM.DSOrders
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 3
end
object DBEditDevName: TDBEdit
Left = 340
Top = 81
Width = 193
Height = 22
DataField = 'DevName'
DataSource = StockDM.DSBarCodefind
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 4
end
object DBEditCustomerName: TDBEdit
Left = 341
Top = 51
Width = 193
Height = 22
DataField = 'CustomerName'
DataSource = StockDM.DSBarCodefind
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 5
end
object DBEditpostdate: TDBEdit
Left = 340
Top = 111
Width = 193
Height = 22
DataField = 'postdate'
DataSource = StockDM.DSBarCodefind
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 6
end
object EdtBarCodeEnter: TEdit
Left = 276
Top = 263
Width = 264
Height = 24
Color = clYellow
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 7
OnKeyPress = EdtBarCodeEnterKeyPress
end
object DBMemoMemo: TDBMemo
Left = 276
Top = 190
Width = 262
Height = 73
DataField = 'devHardOptions'
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 8
end
object ChkPreview: TCheckBox
Left = 342
Top = 170
Width = 50
Height = 17
Caption = #39044#35272
TabOrder = 9
end
object CheckBoxSetPrint: TCheckBox
Left = 404
Top = 171
Width = 97
Height = 17
Caption = #25171#21360#35774#32622
TabOrder = 10
end
object Edit1: TEdit
Left = 38
Top = 357
Width = 121
Height = 22
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 11
Text = 'Edit1'
end
object Edit2: TEdit
Left = 36
Top = 382
Width = 121
Height = 22
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 12
Text = 'Edit2'
end
object Edit3: TEdit
Left = 171
Top = 379
Width = 121
Height = 22
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 13
Text = 'Edit3'
end
end
object RvProjectShipLabel: TRvProject
Engine = RvSystemShipLabel
LoadDesigner = True
Left = 71
Top = 144
end
object RvSystemShipLabel: TRvSystem
TitleSetup = 'Output Options'
TitleStatus = 'Report Status'
TitlePreview = #26465#30721#39044#35272#19982#25171#21360
SystemSetups = [ssAllowSetup, ssAllowCopies, ssAllowDestPreview, ssAllowDestPrinter, ssAllowPrinterSetup, ssAllowPreviewSetup]
SystemFiler.StatusFormat = 'Generating page %p'
SystemPreview.RulerType = rtBothCm
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = 'Printing page %p'
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 74
Top = 206
end
object RvDataSetConnectionPack: TRvDataSetConnection
FieldAliasList.Strings = (
'')
RuntimeVisibility = rtDeveloper
DataSet = StockDM.QBarCodefind
Left = 81
Top = 88
end
object QToday: TADOQuery
Connection = StockDM.ADOConn
Parameters = <
item
Name = 'packDate'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end>
SQL.Strings = (
'select barcode,packDate from barcode where PackDate=:PackDate')
Left = 427
Top = 347
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -