?? ckddcx1.dfm
字號:
object ckddcx: Tckddcx
Left = 248
Top = 143
Width = 571
Height = 414
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
PixelsPerInch = 96
TextHeight = 12
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 0
Width = 563
Height = 350
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 = dxDBGrid1DblClick
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 = []
LookAndFeel = lfFlat
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSort, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
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\ckddcx'
object dxDBGrid1code: TdxDBGridMaskColumn
Width = 72
BandIndex = 0
RowIndex = 0
FieldName = 'code'
end
object dxDBGrid1kdrq: TdxDBGridDateColumn
Width = 76
BandIndex = 0
RowIndex = 0
FieldName = 'kdrq'
end
object dxDBGrid1dkr: TdxDBGridMaskColumn
Caption = '開單人'
Width = 65
BandIndex = 0
RowIndex = 0
FieldName = 'dkr'
end
object dxDBGrid1dcck: TdxDBGridMaskColumn
Width = 70
BandIndex = 0
RowIndex = 0
FieldName = 'dcck'
end
object dxDBGrid1dcckname: TdxDBGridMaskColumn
Width = 108
BandIndex = 0
RowIndex = 0
FieldName = 'dcckname'
end
object dxDBGrid1drck: TdxDBGridMaskColumn
Width = 82
BandIndex = 0
RowIndex = 0
FieldName = 'drck'
end
object dxDBGrid1drckname: TdxDBGridMaskColumn
Width = 93
BandIndex = 0
RowIndex = 0
FieldName = 'drckname'
end
object dxDBGrid1ywy: TdxDBGridMaskColumn
Width = 73
BandIndex = 0
RowIndex = 0
FieldName = 'ywy'
end
object dxDBGrid1name: TdxDBGridMaskColumn
Width = 76
BandIndex = 0
RowIndex = 0
FieldName = 'name'
end
object dxDBGrid1bz: TdxDBGridMaskColumn
Width = 191
BandIndex = 0
RowIndex = 0
FieldName = 'bz'
end
end
object Panel1: TPanel
Left = 0
Top = 350
Width = 563
Height = 37
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object BitBtn1: TBitBtn
Left = 344
Top = 8
Width = 75
Height = 25
Caption = '確定'
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkOK
end
object BitBtn2: TBitBtn
Left = 432
Top = 8
Width = 75
Height = 25
Caption = '取消'
TabOrder = 1
Kind = bkCancel
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 304
Top = 176
end
object ADOQuery1: TADOQuery
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from ckddcx_v')
Left = 256
Top = 176
object ADOQuery1code: TStringField
DisplayLabel = '單號'
FieldName = 'code'
end
object ADOQuery1kdrq: TDateTimeField
DisplayLabel = '開單日期'
FieldName = 'kdrq'
end
object ADOQuery1dkr: TStringField
DisplayLabel = '操作員編碼'
FieldName = 'dkr'
Size = 6
end
object ADOQuery1dcck: TStringField
DisplayLabel = '調出倉庫'
FieldName = 'dcck'
Size = 5
end
object ADOQuery1dcckname: TStringField
DisplayLabel = '調出倉庫'
FieldName = 'dcckname'
Size = 200
end
object ADOQuery1drck: TStringField
DisplayLabel = '調入倉庫'
FieldName = 'drck'
Size = 5
end
object ADOQuery1drckname: TStringField
DisplayLabel = '調入倉庫'
FieldName = 'drckname'
Size = 200
end
object ADOQuery1ywy: TStringField
DisplayLabel = '業務員'
FieldName = 'ywy'
Size = 5
end
object ADOQuery1name: TStringField
DisplayLabel = '業務員'
FieldName = 'name'
Size = 10
end
object ADOQuery1bz: TStringField
DisplayLabel = '備注'
FieldName = 'bz'
Size = 250
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -