?? xschxzdd1.dfm
字號:
object xschxzxsdd: Txschxzxsdd
Left = 441
Top = 121
Width = 548
Height = 379
Caption = '選擇銷售訂單'
Color = clBtnFace
DefaultMonitor = dmMainForm
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 12
object dxDBGrid2: TdxDBGrid
Left = 0
Top = 114
Width = 540
Height = 204
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'spcode'
ShowSummaryFooter = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
Color = 15524050
Font.Charset = GB2312_CHARSET
Font.Color = 7479077
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 0
BandFont.Charset = GB2312_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -12
BandFont.Name = '宋體'
BandFont.Style = []
DataSource = DataSource2
Filter.Active = True
Filter.Criteria = {00000000}
GridLineColor = 7479077
HeaderFont.Charset = GB2312_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -12
HeaderFont.Name = '宋體'
HeaderFont.Style = []
LookAndFeel = lfFlat
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -12
PreviewFont.Name = '宋體'
PreviewFont.Style = []
object dxDBGrid2spcode: TdxDBGridMaskColumn
Width = 94
BandIndex = 0
RowIndex = 0
FieldName = 'spcode'
end
object dxDBGrid2spname: TdxDBGridMaskColumn
Width = 163
BandIndex = 0
RowIndex = 0
FieldName = 'spname'
end
object dxDBGrid2sl: TdxDBGridMaskColumn
Width = 66
BandIndex = 0
RowIndex = 0
FieldName = 'sl'
SummaryFooterType = cstSum
SummaryFooterField = 'sl'
end
object dxDBGrid2dj: TdxDBGridMaskColumn
Width = 57
BandIndex = 0
RowIndex = 0
FieldName = 'dj'
end
object dxDBGrid2sui: TdxDBGridMaskColumn
Width = 55
BandIndex = 0
RowIndex = 0
FieldName = 'sui'
end
object dxDBGrid2je: TdxDBGridMaskColumn
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'je'
SummaryFooterType = cstSum
SummaryFooterField = 'je'
end
object dxDBGrid2shsl: TdxDBGridMaskColumn
Width = 81
BandIndex = 0
RowIndex = 0
FieldName = 'shsl'
end
end
object Panel1: TPanel
Left = 0
Top = 318
Width = 540
Height = 34
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 540
Height = 34
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object BitBtn1: TBitBtn
Left = 344
Top = 6
Width = 75
Height = 25
Caption = '確定'
Default = True
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 = 440
Top = 6
Width = 75
Height = 25
Cancel = True
Caption = '取消'
ModalResult = 2
TabOrder = 1
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
end
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 0
Width = 540
Height = 114
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'code'
SummaryGroups = <>
SummarySeparator = ', '
Align = alTop
Color = 15524050
Font.Charset = GB2312_CHARSET
Font.Color = 7479077
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 2
BandFont.Charset = GB2312_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -12
BandFont.Name = '宋體'
BandFont.Style = []
DataSource = DataSource1
Filter.Active = True
Filter.Criteria = {00000000}
GridLineColor = 7479077
HeaderFont.Charset = GB2312_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -12
HeaderFont.Name = '宋體'
HeaderFont.Style = []
LookAndFeel = lfFlat
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -12
PreviewFont.Name = '宋體'
PreviewFont.Style = []
object dxDBGrid1code: TdxDBGridMaskColumn
Width = 77
BandIndex = 0
RowIndex = 0
FieldName = 'code'
end
object dxDBGrid1kdrq: TdxDBGridDateColumn
Width = 90
BandIndex = 0
RowIndex = 0
FieldName = 'kdrq'
end
object dxDBGrid1ghsname: TdxDBGridMaskColumn
Width = 119
BandIndex = 0
RowIndex = 0
FieldName = 'KHname'
end
object dxDBGrid1jhrq: TdxDBGridDateColumn
Width = 69
BandIndex = 0
RowIndex = 0
FieldName = 'jhrq'
end
object dxDBGrid1jhdz: TdxDBGridMaskColumn
Width = 95
BandIndex = 0
RowIndex = 0
FieldName = 'jhdz'
end
object dxDBGrid1zje: TdxDBGridMaskColumn
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'zje'
end
object dxDBGrid1ywy: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ywy'
end
object dxDBGrid1kdr: TdxDBGridMaskColumn
Width = 63
BandIndex = 0
RowIndex = 0
FieldName = 'kdr'
end
object dxDBGrid1bz: TdxDBGridMaskColumn
Width = 152
BandIndex = 0
RowIndex = 0
FieldName = 'bz'
end
end
object ADOTable1: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Filter = 'zt='#39'正在執行'#39' and zzzx='#39'0'#39
Filtered = True
LockType = ltReadOnly
TableName = 'XSDDCX_V'
Left = 72
Top = 72
object ADOTable1code: TStringField
DisplayLabel = '單號'
FieldName = 'code'
end
object ADOTable1kdrq: TDateTimeField
DisplayLabel = '開單日期'
FieldName = 'kdrq'
end
object ADOTable1kdr: TStringField
DisplayLabel = '開單人'
FieldName = 'kdr'
Size = 6
end
object ADOTable1khname: TStringField
DisplayLabel = '客戶名稱'
FieldName = 'khname'
Size = 200
end
object ADOTable1jhrq: TDateTimeField
DisplayLabel = '交貨日期'
FieldName = 'jhrq'
end
object ADOTable1jhdz: TStringField
DisplayLabel = '交貨地址'
FieldName = 'jhdz'
Size = 200
end
object ADOTable1zje: TBCDField
DisplayLabel = '總金額'
FieldName = 'zje'
Precision = 18
Size = 2
end
object ADOTable1ywy: TStringField
DisplayLabel = '業務員'
FieldName = 'ywy'
Size = 10
end
object ADOTable1bz: TStringField
DisplayLabel = '備注'
FieldName = 'bz'
Size = 200
end
object ADOTable1zzzx: TBooleanField
FieldName = 'zzzx'
end
object ADOTable1zt: TStringField
FieldName = 'zt'
Size = 10
end
object ADOTable1kh: TStringField
FieldName = 'kh'
Size = 5
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 104
Top = 72
end
object ADOTable2: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
LockType = ltReadOnly
IndexFieldNames = 'code'
MasterFields = 'code'
MasterSource = DataSource1
TableName = 'XSDD002'
Left = 72
Top = 216
object ADOTable2code: TStringField
DisplayLabel = '單號'
FieldName = 'code'
end
object ADOTable2spcode: TStringField
DisplayLabel = '貨品編碼'
FieldName = 'spcode'
Size = 15
end
object ADOTable2spname: TStringField
DisplayLabel = '貨品名稱'
FieldName = 'spname'
Size = 200
end
object ADOTable2sl: TBCDField
DisplayLabel = '訂單量'
FieldName = 'sl'
Precision = 18
Size = 3
end
object ADOTable2dj: TBCDField
DisplayLabel = '單價'
FieldName = 'dj'
Precision = 18
Size = 3
end
object ADOTable2sui: TBCDField
DisplayLabel = '稅率'
FieldName = 'sui'
Precision = 18
Size = 2
end
object ADOTable2je: TBCDField
DisplayLabel = '金額'
FieldName = 'je'
Precision = 18
Size = 3
end
object ADOTable2shsl: TBCDField
DisplayLabel = '收貨數量'
FieldName = 'shsl'
Precision = 18
Size = 0
end
object ADOTable2jldw: TStringField
FieldName = 'jldw'
Size = 10
end
object ADOTable2bzgg: TBCDField
FieldName = 'bzgg'
Precision = 18
Size = 0
end
object ADOTable2js: TBCDField
FieldName = 'js'
Precision = 18
Size = 3
end
object ADOTable2ss: TBCDField
FieldName = 'ss'
Precision = 18
Size = 3
end
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 104
Top = 216
end
object ADOQuery1: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
Left = 192
Top = 181
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -