📄 hpsycx11.dfm
字号:
object hpsycxmx: Thpsycxmx
Left = 347
Top = 132
Width = 589
Height = 436
Caption = '货品损溢单查询'
Color = clBtnFace
DefaultMonitor = dmMainForm
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 581
Height = 409
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '概要'
object Panel1: TPanel
Left = 0
Top = 0
Width = 573
Height = 65
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 48
Height = 12
Caption = '单 号：'
end
object Label2: TLabel
Left = 160
Top = 16
Width = 60
Height = 12
Caption = '仓库编码：'
end
object Label4: TLabel
Left = 8
Top = 48
Width = 48
Height = 12
Caption = '时间段：'
end
object Label5: TLabel
Left = 176
Top = 48
Width = 12
Height = 12
Caption = '至'
end
object Label3: TLabel
Left = 328
Top = 16
Width = 60
Height = 12
Caption = '商品编码：'
end
object Edit1: TEdit
Left = 56
Top = 8
Width = 81
Height = 20
TabOrder = 0
end
object Edit2: TEdit
Left = 224
Top = 8
Width = 89
Height = 20
TabOrder = 1
end
object DateTimePicker1: TDateTimePicker
Left = 56
Top = 40
Width = 105
Height = 20
CalAlignment = dtaLeft
Date = 37259
Time = 37259
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object DateTimePicker2: TDateTimePicker
Left = 200
Top = 40
Width = 113
Height = 20
CalAlignment = dtaLeft
Date = 37259.9999884259
Time = 37259.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object Button1: TButton
Left = 328
Top = 35
Width = 75
Height = 25
Caption = '查询'
Default = True
TabOrder = 4
OnClick = Button1Click
end
object Edit3: TEdit
Left = 392
Top = 8
Width = 121
Height = 20
TabOrder = 5
end
object BitBtn1: TBitBtn
Left = 408
Top = 35
Width = 75
Height = 25
Caption = '打印'
TabOrder = 6
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
end
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 65
Width = 573
Height = 317
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'code'
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 = 1
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, edgoMultiSelect, edgoMultiSort, edgoTabThrough, edgoVertThrough]
OptionsCustomize = [edgoBandSizing, edgoColumnSizing]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
OptionsView = [edgoIndicator, edgoRowSelect]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clBlue
PreviewFont.Height = -12
PreviewFont.Name = '宋体'
PreviewFont.Style = []
object dxDBGrid1code: TdxDBGridMaskColumn
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'code'
end
object dxDBGrid1kdrq: TdxDBGridDateColumn
Width = 97
BandIndex = 0
RowIndex = 0
FieldName = 'kdrq'
end
object dxDBGrid1dkr: TdxDBGridMaskColumn
Width = 92
BandIndex = 0
RowIndex = 0
FieldName = 'dkr'
end
object dxDBGrid1ck: TdxDBGridMaskColumn
Width = 70
BandIndex = 0
RowIndex = 0
FieldName = 'ck'
end
object dxDBGrid1ckname: TdxDBGridMaskColumn
Width = 137
BandIndex = 0
RowIndex = 0
FieldName = 'ckname'
end
object dxDBGrid1ywy: TdxDBGridMaskColumn
Width = 82
BandIndex = 0
RowIndex = 0
FieldName = 'ywy'
end
object dxDBGrid1ywyname: TdxDBGridMaskColumn
BandIndex = 0
RowIndex = 0
FieldName = 'ywyname'
end
object dxDBGrid1Column9: TdxDBGridMaskColumn
Width = 61
BandIndex = 0
RowIndex = 0
FieldName = 'lx'
end
object dxDBGrid1Column10: TdxDBGridMaskColumn
Width = 80
BandIndex = 0
RowIndex = 0
FieldName = 'zt'
end
object dxDBGrid1bz: TdxDBGridMaskColumn
Width = 194
BandIndex = 0
RowIndex = 0
FieldName = 'bz'
end
end
end
object TabSheet2: TTabSheet
Caption = '明细'
ImageIndex = 1
object dxDBGrid2: TdxDBGrid
Left = 0
Top = 0
Width = 573
Height = 382
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.Criteria = {00000000}
GridLineColor = 7479077
HeaderFont.Charset = GB2312_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -12
HeaderFont.Name = '宋体'
HeaderFont.Style = []
LookAndFeel = lfFlat
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
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 = []
RegistryPath = '\Software\server\xsdcx_s'
object dxDBGrid2spcode: TdxDBGridMaskColumn
Width = 60
BandIndex = 0
RowIndex = 0
FieldName = 'spcode'
end
object dxDBGrid2spname: TdxDBGridMaskColumn
Width = 121
BandIndex = 0
RowIndex = 0
FieldName = 'spname'
end
object dxDBGrid2jldw: TdxDBGridMaskColumn
Width = 46
BandIndex = 0
RowIndex = 0
FieldName = 'jldw'
end
object dxDBGrid2bzgg: TdxDBGridMaskColumn
Width = 56
BandIndex = 0
RowIndex = 0
FieldName = 'bzgg'
end
object dxDBGrid2js: TdxDBGridMaskColumn
Width = 51
BandIndex = 0
RowIndex = 0
FieldName = 'js'
end
object dxDBGrid2ss: TdxDBGridMaskColumn
Width = 51
BandIndex = 0
RowIndex = 0
FieldName = 'ss'
end
object dxDBGrid2sl: TdxDBGridMaskColumn
Width = 56
BandIndex = 0
RowIndex = 0
FieldName = 'sl'
end
object dxDBGrid2dj: TdxDBGridMaskColumn
Width = 59
BandIndex = 0
RowIndex = 0
FieldName = 'jhj'
end
object dxDBGrid2je: TdxDBGridMaskColumn
Width = 59
BandIndex = 0
RowIndex = 0
FieldName = 'je'
SummaryFooterType = cstSum
end
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 148
Top = 215
end
object DataSource2: TDataSource
DataSet = ADOQuery1
Left = 316
Top = 223
end
object PopupMenu1: TPopupMenu
Left = 492
Top = 167
object N1: TMenuItem
Caption = '报表设置'
end
end
object Query1: TADOQuery
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from sydcx_v')
Left = 116
Top = 215
object Query1code: TStringField
DisplayLabel = '单号'
FieldName = 'code'
end
object Query1kdrq: TDateTimeField
DisplayLabel = '开单日期'
FieldName = 'kdrq'
end
object Query1dkr: TStringField
DisplayLabel = '操作员编码'
FieldName = 'dkr'
Size = 6
end
object Query1ck: TStringField
DisplayLabel = '仓库编码'
FieldName = 'ck'
Size = 5
end
object Query1ckname: TStringField
DisplayLabel = '仓库名称'
FieldName = 'ckname'
Size = 200
end
object Query1ywy: TStringField
DisplayLabel = '业务员'
FieldName = 'ywy'
Size = 5
end
object Query1ywyname: TStringField
DisplayLabel = '业务员'
FieldName = 'ywyname'
Size = 10
end
object Query1bz: TStringField
DisplayLabel = '备注'
FieldName = 'bz'
Size = 250
end
object Query1lx: TStringField
DisplayLabel = '类型'
FieldName = 'lx'
Size = 4
end
object Query1zt: TStringField
DisplayLabel = '单据状态'
FieldName = 'zt'
Size = 10
end
end
object ADOQuery1: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from sprk002')
Left = 284
Top = 223
object ADOQuery1spcode: TStringField
DisplayLabel = '商品编码'
FieldName = 'spcode'
Size = 15
end
object ADOQuery1spname: TStringField
DisplayLabel = '商品名称'
FieldName = 'spname'
Size = 200
end
object ADOQuery1jldw: TStringField
DisplayLabel = '单位'
FieldName = 'jldw'
Size = 10
end
object ADOQuery1bzgg: TBCDField
DisplayLabel = '包装'
FieldName = 'bzgg'
Precision = 18
Size = 0
end
object ADOQuery1js: TBCDField
DisplayLabel = '件数'
FieldName = 'js'
Precision = 18
Size = 3
end
object ADOQuery1ss: TBCDField
DisplayLabel = '散数'
FieldName = 'ss'
Precision = 18
Size = 3
end
object ADOQuery1sl: TBCDField
DisplayLabel = '数量'
FieldName = 'sl'
Precision = 18
Size = 3
end
object ADOQuery1jhj: TBCDField
DisplayLabel = '成本价'
FieldName = 'jhj'
Precision = 18
Size = 2
end
object ADOQuery1je: TBCDField
DisplayLabel = '金额'
FieldName = 'je'
Precision = 18
Size = 3
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -