?? xsthdxzsp1.dfm
字號:
object xsthxzsp: Txsthxzsp
Left = 240
Top = 112
Width = 537
Height = 347
BorderIcons = [biSystemMenu]
Caption = '選擇貨品--銷售退貨單'
Color = clBtnFace
DefaultMonitor = dmMainForm
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object dxDBGrid2: TdxDBGrid
Left = 0
Top = 65
Width = 529
Height = 255
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'code'
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
Color = 15524050
Font.Charset = GB2312_CHARSET
Font.Color = 7479077
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 0
OnDblClick = dxDBGrid2DblClick
AutoSearchTextColor = clNavy
BandFont.Charset = GB2312_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -12
BandFont.Name = '宋體'
BandFont.Style = []
DataSource = DataSource1
Filter.Active = True
Filter.Criteria = {00000000}
GridLineColor = clNavy
HeaderFont.Charset = GB2312_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -12
HeaderFont.Name = '宋體'
HeaderFont.Style = []
HideSelectionColor = clNavy
HideSelectionTextColor = clWhite
HighlightColor = clNavy
HighlightTextColor = clWhite
LookAndFeel = lfFlat
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoMultiSort, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoFullSizing]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -12
PreviewFont.Name = '宋體'
PreviewFont.Style = []
RegistryPath = '\Software\server\xsthxzsp'
object dxDBGrid2code: TdxDBGridMaskColumn
ReadOnly = True
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'code'
end
object dxDBGrid2name: TdxDBGridMaskColumn
ReadOnly = True
Width = 174
BandIndex = 0
RowIndex = 0
FieldName = 'name'
end
object dxDBGrid2lb: TdxDBGridMaskColumn
ReadOnly = True
Width = 72
BandIndex = 0
RowIndex = 0
FieldName = 'lb'
end
object dxDBGrid2jldw: TdxDBGridMaskColumn
ReadOnly = True
Width = 56
BandIndex = 0
RowIndex = 0
FieldName = 'jldw'
end
object dxDBGrid2bzgg: TdxDBGridMaskColumn
ReadOnly = True
Width = 58
BandIndex = 0
RowIndex = 0
FieldName = 'bzgg'
end
object dxDBGrid2barcode: TdxDBGridMaskColumn
ReadOnly = True
Width = 86
BandIndex = 0
RowIndex = 0
FieldName = 'barcode'
end
object dxDBGrid2jhj: TdxDBGridMaskColumn
ReadOnly = True
Width = 73
BandIndex = 0
RowIndex = 0
FieldName = 'jhj'
end
object dxDBGrid2lsj: TdxDBGridMaskColumn
ReadOnly = True
Width = 68
BandIndex = 0
RowIndex = 0
FieldName = 'lsj'
end
object dxDBGrid2hyj: TdxDBGridMaskColumn
ReadOnly = True
Width = 72
RowIndex = 0
FieldName = 'hyj'
end
object dxDBGrid2pfj: TdxDBGridMaskColumn
ReadOnly = True
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = 'pfj'
end
object dxDBGrid2jqj: TdxDBGridMaskColumn
ReadOnly = True
Width = 77
BandIndex = 0
RowIndex = 0
FieldName = 'jqj'
end
object dxDBGrid2cxbz: TdxDBGridCheckColumn
ReadOnly = True
Width = 79
BandIndex = 0
RowIndex = 0
FieldName = 'cxbz'
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid2cxj: TdxDBGridMaskColumn
ReadOnly = True
Width = 72
BandIndex = 0
RowIndex = 0
FieldName = 'cxj'
end
object dxDBGrid2zhsp: TdxDBGridCheckColumn
ReadOnly = True
Width = 84
BandIndex = 0
RowIndex = 0
FieldName = 'zhsp'
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid2czsp: TdxDBGridCheckColumn
ReadOnly = True
Width = 86
BandIndex = 0
RowIndex = 0
FieldName = 'czsp'
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid2czspbm: TdxDBGridMaskColumn
ReadOnly = True
Width = 78
BandIndex = 0
RowIndex = 0
FieldName = 'czspbm'
end
object dxDBGrid2kcsx: TdxDBGridMaskColumn
ReadOnly = True
Width = 79
BandIndex = 0
RowIndex = 0
FieldName = 'kcsx'
end
object dxDBGrid2kcxx: TdxDBGridMaskColumn
ReadOnly = True
Width = 75
BandIndex = 0
RowIndex = 0
FieldName = 'kcxx'
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 529
Height = 65
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 12
Width = 60
Height = 12
Caption = '商品編碼:'
end
object Label2: TLabel
Left = 16
Top = 45
Width = 60
Height = 12
Caption = '商品名稱:'
end
object Label3: TLabel
Left = 176
Top = 12
Width = 48
Height = 12
Caption = '條形碼:'
end
object BitBtn1: TBitBtn
Left = 288
Top = 34
Width = 75
Height = 25
Caption = '確定'
ModalResult = 1
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 368
Top = 34
Width = 75
Height = 25
Caption = '添加到單據'
TabOrder = 1
OnClick = BitBtn2Click
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 448
Top = 34
Width = 75
Height = 25
Caption = '取消'
TabOrder = 2
Kind = bkCancel
end
object Edit1: TEdit
Left = 80
Top = 4
Width = 73
Height = 20
TabOrder = 3
OnKeyDown = Edit1KeyDown
end
object Edit3: TEdit
Left = 224
Top = 4
Width = 161
Height = 20
TabOrder = 4
OnKeyDown = Edit1KeyDown
end
object Edit2: TEdit
Left = 80
Top = 37
Width = 193
Height = 20
TabOrder = 5
OnKeyDown = Edit1KeyDown
end
end
object ADOQuery1: TADOQuery
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Filter = 'sybz=1'
Filtered = True
Parameters = <
item
Name = 'code'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 15
Value = '%'
end
item
Name = 'name'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 50
Value = '%'
end
item
Name = 'barcode'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = '%'
end>
SQL.Strings = (
'select * from spda'
'where code like :code and name like :name and barcode like :barc' +
'ode')
Left = 88
Top = 160
object ADOQuery1code: TStringField
DisplayLabel = '貨品編碼'
FieldName = 'code'
Size = 15
end
object ADOQuery1name: TStringField
DisplayLabel = '貨品名稱'
FieldName = 'name'
Size = 50
end
object ADOQuery1lb: TStringField
DisplayLabel = '類別'
FieldName = 'lb'
end
object ADOQuery1jldw: TStringField
DisplayLabel = '單位'
FieldName = 'jldw'
Size = 10
end
object ADOQuery1bzgg: TBCDField
DisplayLabel = '包裝'
FieldName = 'bzgg'
Precision = 18
Size = 0
end
object ADOQuery1barcode: TStringField
DisplayLabel = '條形碼'
FieldName = 'barcode'
end
object ADOQuery1jhj: TBCDField
DisplayLabel = '進貨價'
FieldName = 'jhj'
Precision = 18
Size = 2
end
object ADOQuery1lsj: TBCDField
DisplayLabel = '零售價'
FieldName = 'lsj'
Precision = 18
Size = 2
end
object ADOQuery1hyj: TBCDField
DisplayLabel = '會員價'
FieldName = 'hyj'
Precision = 18
Size = 2
end
object ADOQuery1pfj: TBCDField
DisplayLabel = '批發價'
FieldName = 'pfj'
Precision = 18
Size = 2
end
object ADOQuery1jqj: TBCDField
DisplayLabel = '加權價'
FieldName = 'jqj'
Precision = 18
Size = 2
end
object ADOQuery1cxj: TBCDField
DisplayLabel = '促銷價'
FieldName = 'cxj'
Precision = 18
Size = 2
end
object ADOQuery1cxbz: TBooleanField
DisplayLabel = '是否促銷'
FieldName = 'cxbz'
end
object ADOQuery1sybz: TBooleanField
DisplayLabel = '是否使用'
FieldName = 'sybz'
end
object ADOQuery1zhsp: TBooleanField
DisplayLabel = '是否組合'
FieldName = 'zhsp'
end
object ADOQuery1czsp: TBooleanField
DisplayLabel = '是否秤重'
FieldName = 'czsp'
end
object ADOQuery1czspbm: TStringField
DisplayLabel = '秤重編碼'
FieldName = 'czspbm'
Size = 10
end
object ADOQuery1kcsx: TBCDField
DisplayLabel = '庫存上限'
FieldName = 'kcsx'
Precision = 18
Size = 0
end
object ADOQuery1kcxx: TBCDField
DisplayLabel = '庫存下限'
FieldName = 'kcxx'
Precision = 18
Size = 0
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 128
Top = 160
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -