📄 pdbb1.dfm
字号:
object pdbb: Tpdbb
Left = 240
Top = 159
Width = 634
Height = 403
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
PixelsPerInch = 96
TextHeight = 12
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 65
Width = 626
Height = 311
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'ckcode'
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
Color = 15524050
TabOrder = 0
DataSource = DataSource1
Filter.Active = True
Filter.Criteria = {00000000}
GridLineColor = 7479077
LookAndFeel = lfFlat
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
RegistryPath = '\Software\server\pdbb'
object dxDBGrid1ckcode: TdxDBGridMaskColumn
Width = 77
BandIndex = 0
RowIndex = 0
FieldName = 'ckcode'
end
object dxDBGrid1ckname: TdxDBGridMaskColumn
Width = 85
BandIndex = 0
RowIndex = 0
FieldName = 'ckname'
end
object dxDBGrid1spcode: TdxDBGridMaskColumn
Width = 79
BandIndex = 0
RowIndex = 0
FieldName = 'spcode'
end
object dxDBGrid1spname: TdxDBGridMaskColumn
Width = 182
BandIndex = 0
RowIndex = 0
FieldName = 'spname'
end
object dxDBGrid1zcsl: TdxDBGridMaskColumn
Width = 108
BandIndex = 0
RowIndex = 0
FieldName = 'zcsl'
end
object dxDBGrid1spsl: TdxDBGridMaskColumn
Width = 81
BandIndex = 0
RowIndex = 0
FieldName = 'spsl'
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 626
Height = 65
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 16
Width = 60
Height = 12
Caption = '商品编码：'
end
object Label3: TLabel
Left = 8
Top = 48
Width = 60
Height = 12
Caption = '仓库编码：'
end
object Label1: TLabel
Left = 200
Top = 16
Width = 60
Height = 12
Caption = '商品名称：'
end
object BitBtn5: TBitBtn
Left = 350
Top = 38
Width = 62
Height = 25
Caption = '查询'
TabOrder = 0
OnClick = BitBtn5Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 414
Top = 38
Width = 62
Height = 25
Caption = '打印'
TabOrder = 1
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 538
Top = 38
Width = 62
Height = 25
Cancel = True
Caption = '退出'
TabOrder = 2
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object Edit3: TEdit
Left = 67
Top = 40
Width = 121
Height = 20
TabOrder = 3
end
object Edit2: TEdit
Left = 67
Top = 8
Width = 121
Height = 20
TabOrder = 4
end
object Edit1: TEdit
Left = 260
Top = 8
Width = 197
Height = 20
TabOrder = 5
end
object Button3: TButton
Left = 478
Top = 38
Width = 58
Height = 25
Caption = 'Excel'
TabOrder = 6
OnClick = Button3Click
end
end
object Query1: TADOQuery
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Parameters = <
item
Name = 'spname'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 50
Value = '%'
end
item
Name = 'spcode'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 15
Value = Null
end
item
Name = 'ckcode'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 5
Value = Null
end>
SQL.Strings = (
'select * from pdzcb_v'
'where spname like :spname'
'and spcode like :spcode'
'and ckcode like :ckcode')
Left = 168
Top = 160
object Query1ckcode: TStringField
DisplayLabel = '仓库编码'
FieldName = 'ckcode'
Size = 5
end
object Query1ckname: TStringField
DisplayLabel = '仓库名称'
FieldName = 'ckname'
Size = 200
end
object Query1spcode: TStringField
DisplayLabel = '商品编码'
FieldName = 'spcode'
Size = 15
end
object Query1spname: TStringField
DisplayLabel = '商品名称'
FieldName = 'spname'
Size = 50
end
object Query1zcsl: TBCDField
DisplayLabel = '账存数量'
FieldName = 'zcsl'
Precision = 18
Size = 0
end
object Query1spsl: TStringField
DisplayLabel = '实盘数量'
FieldName = 'spsl'
ReadOnly = True
Size = 0
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 208
Top = 136
end
object dxComponentPrinter1: TdxComponentPrinter
CurrentLink = dxComponentPrinter1Link1
DateFormat = 2
PreviewOptions.Caption = '盘点报表'
PreviewOptions.RegistryPath = 'Software\Developer Express\PrintingSystem\DesignTime'
PreviewOptions.WindowState = wsMaximized
PrintTitle = '盘点报表'
Left = 304
Top = 248
object dxComponentPrinter1Link1: TdxDBGridReportLink
Active = True
Component = dxDBGrid1
DateTime = 37676.9733458333
DesignerHelpContext = 0
PrinterPage.DMPaper = 256
PrinterPage.Footer = 6350
PrinterPage.Header = 6350
PrinterPage.Margins.Bottom = 12700
PrinterPage.Margins.Left = 12700
PrinterPage.Margins.Right = 12700
PrinterPage.Margins.Top = 12700
PrinterPage.PageFooter.Font.Charset = DEFAULT_CHARSET
PrinterPage.PageFooter.Font.Color = clWindowText
PrinterPage.PageFooter.Font.Height = -11
PrinterPage.PageFooter.Font.Name = 'Tahoma'
PrinterPage.PageFooter.Font.Style = []
PrinterPage.PageHeader.Font.Charset = DEFAULT_CHARSET
PrinterPage.PageHeader.Font.Color = clWindowText
PrinterPage.PageHeader.Font.Height = -11
PrinterPage.PageHeader.Font.Name = 'Tahoma'
PrinterPage.PageHeader.Font.Style = []
PrinterPage.PageHeader.RightTitle.Strings = (
'第[Page #]页共[Total Pages]页')
PrinterPage.PageSize.X = 215900
PrinterPage.PageSize.Y = 279400
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportTitle.Font.Charset = DEFAULT_CHARSET
ReportTitle.Font.Color = clWindowText
ReportTitle.Font.Height = -19
ReportTitle.Font.Name = 'Times New Roman'
ReportTitle.Font.Style = [fsBold]
ReportTitle.Text = '盘点报表'
ShrinkToPageWidth = True
BandFont.Charset = DEFAULT_CHARSET
BandFont.Color = clWindowText
BandFont.Height = -11
BandFont.Name = 'Times New Roman'
BandFont.Style = []
EvenFont.Charset = DEFAULT_CHARSET
EvenFont.Color = clWindowText
EvenFont.Height = -11
EvenFont.Name = 'Times New Roman'
EvenFont.Style = []
FixedTransparent = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Times New Roman'
Font.Style = []
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'Times New Roman'
FooterFont.Style = []
GroupNodeFont.Charset = DEFAULT_CHARSET
GroupNodeFont.Color = clWindowText
GroupNodeFont.Height = -11
GroupNodeFont.Name = 'Times New Roman'
GroupNodeFont.Style = []
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Times New Roman'
HeaderFont.Style = []
OddFont.Charset = DEFAULT_CHARSET
OddFont.Color = clWindowText
OddFont.Height = -11
OddFont.Name = 'Times New Roman'
OddFont.Style = []
Options = [tlpoHeaders, tlpoFooters, tlpoRowFooters, tlpoPreview, tlpoPreviewGrid, tlpoGrid, tlpoFlatCheckMarks, tlpoSoft3D, tlpoRowFooterGrid]
PreviewFont.Charset = DEFAULT_CHARSET
PreviewFont.Color = clWindowText
PreviewFont.Height = -11
PreviewFont.Name = 'Times New Roman'
PreviewFont.Style = []
RowFooterFont.Charset = DEFAULT_CHARSET
RowFooterFont.Color = clWindowText
RowFooterFont.Height = -11
RowFooterFont.Name = 'Times New Roman'
RowFooterFont.Style = []
end
end
object SaveDialog1: TSaveDialog
DefaultExt = 'xls'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 136
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -