📄 f_stosearch.dfm
字号:
object dfmstosearch: Tdfmstosearch
Left = 85
Top = 100
Width = 576
Height = 420
Caption = #24211#23384#26597#35810
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 374
Width = 568
Height = 19
Panels = <>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 568
Height = 320
Align = alClient
TabOrder = 1
object DBGridEh1: TDBGridEh
Left = 1
Top = 1
Width = 566
Height = 318
Align = alClient
AllowedOperations = []
DataSource = DataSource5
FooterColor = clYellow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
ReadOnly = True
SumList.Active = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDrawColumnCell = DBGridEh1DrawColumnCell
OnTitleClick = DBGridEh1TitleClick
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = #65509
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
CurrencyStyle.HeadFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'bmh'
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37096#38376#21495
Width = 62
end
item
EditButtons = <>
FieldName = 'clabel'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21697#29260
Width = 58
end
item
EditButtons = <>
FieldName = 'spbh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21830#21697#32534#21495
Width = 92
end
item
EditButtons = <>
FieldName = 'cname'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21517#31216
Width = 141
end
item
EditButtons = <>
FieldName = 'dqsl'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #29616#23384#25968#37327
Width = 65
end
item
EditButtons = <>
FieldName = 'kcje'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #24211#23384#37329#39069
Width = 86
end>
end
end
object Panel2: TPanel
Left = 0
Top = 320
Width = 568
Height = 54
Align = alBottom
Ctl3D = True
ParentCtl3D = False
TabOrder = 2
object Label3: TLabel
Left = 12
Top = 9
Width = 36
Height = 12
Caption = #37096#38376#21495
end
object Label2: TLabel
Left = 194
Top = 9
Width = 24
Height = 12
Caption = #21697#29260
end
object Label6: TLabel
Left = 11
Top = 33
Width = 48
Height = 12
Caption = #21830#21697#32534#21495
end
object Label1: TLabel
Left = 194
Top = 34
Width = 36
Height = 12
Caption = #32534#30721#20301
end
object postbtn: TBitBtn
Left = 468
Top = 2
Width = 75
Height = 26
Caption = #26597#35810
ModalResult = 1
TabOrder = 5
OnClick = postbtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object MaskEdit3: TMaskEdit
Left = 71
Top = 28
Width = 101
Height = 20
TabOrder = 2
end
object ComboBox1: TComboBox
Left = 241
Top = 4
Width = 99
Height = 20
ItemHeight = 12
TabOrder = 1
Text = 'ComboBox1'
OnEnter = ComboBox1Enter
end
object ComboBox2: TComboBox
Left = 72
Top = 4
Width = 100
Height = 20
ItemHeight = 12
TabOrder = 0
Text = 'ComboBox2'
OnEnter = ComboBox2Enter
end
object MaskEdit1: TMaskEdit
Left = 241
Top = 29
Width = 34
Height = 20
TabOrder = 3
Text = '10'
end
object UpDown1: TUpDown
Left = 275
Top = 29
Width = 18
Height = 20
Associate = MaskEdit1
Min = 0
Max = 10
Position = 10
TabOrder = 4
Wrap = False
end
object BitBtn1: TBitBtn
Left = 468
Top = 28
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 6
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object CheckBox1: TCheckBox
Left = 359
Top = 31
Width = 81
Height = 17
Caption = #26174#31034#38646#24211#23384
TabOrder = 7
end
end
object DataSource2: TDataSource
DataSet = Atblbranch
Left = 360
Top = 56
end
object Atblbranch: TADOTable
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
TableName = 't_branch'
Left = 392
Top = 56
end
object ATblspec: TADOTable
Connection = dmRainbowMIS.adopos
IndexFieldNames = 'cstyle'
MasterFields = 'flh'
MasterSource = DataSource4
TableName = 't_spec'
Left = 296
Top = 120
end
object DataSource3: TDataSource
DataSet = ATblspec
Left = 264
Top = 120
end
object DataSource4: TDataSource
DataSet = AQryware
Left = 264
Top = 168
end
object AQryware: TADOQuery
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
Parameters = <
item
Name = 'vspbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from t_ware'
'where spbh like :vspbh')
Left = 296
Top = 168
end
object DataSource5: TDataSource
DataSet = aqrystore
Left = 360
Top = 120
end
object aqrystore: TADOQuery
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT t_store.bmh, t_store.clabel, Left([t_store].[spbh],10) AS' +
' spbh, Sum(t_store.dqsl) AS dqsl, t_spec.cname, (t_store.dqsl*t_' +
'ware.lsj) AS kcje'
'FROM t_store INNER JOIN (t_spec INNER JOIN t_ware ON (t_spec.cst' +
'yle = t_ware.flh) AND (t_spec.clabel = t_ware.clabel)) ON (t_sto' +
're.spbh = t_ware.spbh) AND (t_store.clabel = t_ware.clabel)'
'WHERE (((t_store.clabel)='#39'ATOA'#39'))'
'GROUP BY t_store.bmh, t_store.clabel, Left([t_store].[spbh],10),' +
' t_spec.cname, (t_store.dqsl*t_ware.lsj);')
Left = 392
Top = 120
object aqrystorebmh: TWideStringField
FieldName = 'bmh'
Size = 6
end
object aqrystoreclabel: TWideStringField
FieldName = 'clabel'
Size = 16
end
object aqrystorespbh: TWideStringField
FieldName = 'spbh'
Size = 255
end
object aqrystoredqsl: TFloatField
FieldName = 'dqsl'
end
object aqrystorecname: TWideStringField
FieldName = 'cname'
end
object aqrystorekcje: TBCDField
FieldName = 'kcje'
currency = True
Precision = 19
end
end
object atbllabel: TADOTable
Connection = dmRainbowMIS.adopos
TableName = 't_label'
Left = 368
Top = 192
end
object ppDBPipeline1: TppDBPipeline
DataSource = DataSource5
UserName = 'DBPipeline1'
Left = 128
Top = 216
end
object ppReport1: TppReport
AutoStop = False
DataPipeline = ppDBPipeline1
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'Letter'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
PrinterSetup.PaperSize = 1
DeviceType = 'Screen'
Left = 160
Top = 216
Version = '6.02'
mmColumnWidth = 0
DataPipelineName = 'ppDBPipeline1'
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 20108
mmPrintPosition = 0
object ppLabel1: TppLabel
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -