📄 pffx1.dfm
字号:
AutoSize = True
AutoStretch = False
Caption = #39046#29992#25968#37327
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape3: TQRShape
Left = 274
Top = 102
Width = 2
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.0208333333333
724.958333333333
269.875
5.29166666666667)
Shape = qrsRectangle
end
object QRLabel5: TQRLabel
Left = 19
Top = 109
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
50.2708333333333
288.395833333333
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24207#21495
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape5: TQRShape
Left = 54
Top = 102
Width = 2
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
142.875
269.875
5.29166666666667)
Shape = qrsRectangle
end
object QRLabel8: TQRLabel
Left = 647
Top = 112
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1711.85416666667
296.333333333333
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39046#29992#37329#39069
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape14: TQRShape
Left = 622
Top = 103
Width = 2
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.0208333333333
1645.70833333333
272.520833333333
5.29166666666667)
Shape = qrsRectangle
end
end
end
end
object dtp1: TDateTimePicker
Left = 100
Top = 2
Width = 99
Height = 22
CalAlignment = dtaLeft
Date = 36398
Time = 36398
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object dtp2: TDateTimePicker
Left = 100
Top = 24
Width = 99
Height = 22
CalAlignment = dtaLeft
Date = 36398.9999884259
Time = 36398.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
end
object Button1: TButton
Left = 488
Top = 8
Width = 75
Height = 25
Caption = #24320#22987#32479#35745
TabOrder = 6
OnClick = Button1Click
end
object Query1: TQuery
CachedUpdates = True
DatabaseName = 'aa'
SQL.Strings = (
'SELECT ylbm, ylmc, yldw, yldj, ylyl, id, ylyl as sjyl, ylyl as ' +
'cyz, ylyl as cl,ylyl as ckyl,ylyl as ckje,ylyl as je,yldw as dw1'
'FROM peifang Peifang'
'where cpbm=:cs0')
UpdateObject = UpdateSQL1
Left = 280
Top = 112
ParamData = <
item
DataType = ftUnknown
Name = 'cs0'
ParamType = ptUnknown
end>
object Query1ylbm: TStringField
FieldName = 'ylbm'
Origin = 'CCC.peifang.ylbm'
Size = 10
end
object Query1ylmc: TStringField
FieldName = 'ylmc'
Origin = 'CCC.peifang.ylmc'
Size = 30
end
object Query1yldw: TStringField
FieldName = 'yldw'
Origin = 'CCC.peifang.yldw'
Size = 4
end
object Query1yldj: TFloatField
FieldName = 'yldj'
Origin = 'CCC.peifang.yldj'
end
object Query1ylyl: TFloatField
FieldName = 'ylyl'
Origin = 'CCC.peifang.ylyl'
end
object Query1id: TIntegerField
FieldName = 'id'
Origin = 'CCC.peifang.id'
end
object Query1sjyl: TFloatField
FieldName = 'sjyl'
Origin = 'CCC.peifang.ylyl'
end
object Query1cyz: TFloatField
FieldName = 'cyz'
Origin = 'CCC.peifang.ylyl'
end
object Query1cl: TFloatField
FieldName = 'cl'
Origin = 'CCC.peifang.ylyl'
end
object Query1ckyl: TFloatField
FieldName = 'ckyl'
Origin = 'CCC.peifang.ylyl'
end
object Query1ckje: TFloatField
FieldName = 'ckje'
Origin = 'CCC.peifang.ylyl'
end
object Query1je: TFloatField
FieldName = 'je'
Origin = 'CCC.peifang.ylyl'
end
object Query1dw1: TStringField
FieldName = 'dw1'
Origin = 'CCC.peifang.yldw'
Size = 4
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 312
Top = 112
end
object UpdateSQL1: TUpdateSQL
Left = 248
Top = 112
end
object bmq: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT lbmc,lbbm'
'FROM lbbm'
'group by lbmc,lbbm')
Left = 115
Top = 116
object bmqlbmc: TStringField
FieldName = 'lbmc'
Origin = 'CCC.scwj.lbmc'
Size = 30
end
object bmqlbbm: TStringField
FieldName = 'lbbm'
Origin = 'AA.lbbm.lbbm'
Size = 10
end
end
object pfq: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'select cpmc, cpbm'
'from peifang'
'group by cpbm,cpmc'
'order by cpbm')
Left = 160
Top = 112
object pfqcpmc: TStringField
FieldName = 'cpmc'
Origin = 'CCC.peifang.cpmc'
Size = 30
end
object pfqcpbm: TStringField
FieldName = 'cpbm'
Origin = 'CCC.peifang.cpbm'
Size = 10
end
end
object scwj: TQuery
DatabaseName = 'aa'
Left = 198
Top = 128
object scwjsc: TFloatField
FieldName = 'sc'
Origin = 'CCC.scwj.jrsc'
end
object scwjcpbm: TStringField
FieldName = 'cpbm'
Origin = 'CCC.scwj.cpbm'
Size = 10
end
end
object lsq: TQuery
CachedUpdates = True
DatabaseName = 'aa'
SQL.Strings = (
'SELECT ylbm, ylmc, yldw, yldj, ylyl, id, ylyl as sjyl, ylyl as ' +
'cyz, ylyl as cl'
'FROM peifang Peifang'
'where cpbm=:cs0')
UpdateObject = UpdateSQL2
Left = 392
Top = 118
ParamData = <
item
DataType = ftString
Name = 'cs0'
ParamType = ptUnknown
end>
object lsqylbm: TStringField
FieldName = 'ylbm'
Origin = 'CCC.peifang.ylbm'
Size = 10
end
object lsqylmc: TStringField
FieldName = 'ylmc'
Origin = 'CCC.peifang.ylmc'
Size = 30
end
object lsqyldw: TStringField
FieldName = 'yldw'
Origin = 'CCC.peifang.yldw'
Size = 4
end
object lsqyldj: TFloatField
FieldName = 'yldj'
Origin = 'CCC.peifang.yldj'
end
object lsqylyl: TFloatField
FieldName = 'ylyl'
Origin = 'CCC.peifang.ylyl'
end
object lsqid: TIntegerField
FieldName = 'id'
Origin = 'CCC.peifang.id'
end
object lsqsjyl: TFloatField
FieldName = 'sjyl'
Origin = 'CCC.peifang.ylyl'
end
object lsqcyz: TFloatField
FieldName = 'cyz'
Origin = 'CCC.peifang.ylyl'
end
object lsqcl: TFloatField
FieldName = 'cl'
Origin = 'CCC.peifang.ylyl'
end
end
object UpdateSQL2: TUpdateSQL
ModifySQL.Strings = (
'update peifang'
'set'
' ylbm = :ylbm,'
' ylmc = :ylmc,'
' yldw = :yldw,'
' yldj = :yldj,'
' ylyl = :ylyl,'
' sjyl = :sjyl,'
' cyz = :cyz,'
' cl = :cl'
'where'
' id = :OLD_id')
InsertSQL.Strings = (
'insert into peifang'
' (ylbm, ylmc, yldw, yldj, ylyl, sjyl, cyz, cl)'
'values'
' (:ylbm, :ylmc, :yldw, :yldj, :ylyl, :sjyl, :cyz, :cl)')
DeleteSQL.Strings = (
'delete from peifang'
'where'
' id = :OLD_id')
Left = 360
Top = 119
end
object dzb: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT bmbm, bmmc, lbbm, lbmc'
'FROM bmlbdz Bmlbdz'
'where lbmc=:cs')
Left = 520
Top = 56
ParamData = <
item
DataType = ftString
Name = 'cs'
ParamType = ptUnknown
end>
object dzbbmbm: TStringField
FieldName = 'bmbm'
Origin = 'CCC.bmlbdz.bmbm'
Size = 10
end
object dzbbmmc: TStringField
FieldName = 'bmmc'
Origin = 'CCC.bmlbdz.bmmc'
Size = 30
end
object dzblbbm: TStringField
FieldName = 'lbbm'
Origin = 'CCC.bmlbdz.lbbm'
end
object dzblbmc: TStringField
FieldName = 'lbmc'
Origin = 'CCC.bmlbdz.lbmc'
end
end
object ckq1: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT cpbm, dw,sum(cksl) as sl, sum(ckje) as je'
'FROM chuku Chuku'
'where cpbm=:cs0 and ckrq>=:cs1 and ckrq<=:cs2 and rkdwbm=:cs3'
'group by cpbm,dw')
Left = 520
Top = 96
ParamData = <
item
DataType = ftString
Name = 'cs0'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'cs3'
ParamType = ptUnknown
end>
object ckq1cpbm: TStringField
FieldName = 'cpbm'
Origin = 'CCC.chuku.cpbm'
Size = 10
end
object ckq1dw: TStringField
FieldName = 'dw'
Origin = 'CCC.chuku.dw'
Size = 4
end
object ckq1sl: TFloatField
FieldName = 'sl'
Origin = 'CCC.chuku.cksl'
end
object ckq1je: TFloatField
FieldName = 'je'
Origin = 'CCC.chuku.ckje'
end
end
object ckq: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT sum(cksl) as sll, rkdwbm, cpbm'
'FROM chuku Chuku'
'where cpbm=:cs1 and ckrq>=:cs2 and ckrq<=:cs3'
'group by rkdwbm,cpbm')
Left = 328
Top = 51
ParamData = <
item
DataType = ftString
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs3'
ParamType = ptUnknown
end>
object ckqsll: TFloatField
FieldName = 'sll'
Origin = 'CCC.chuku.cksl'
end
object ckqrkdwbm: TStringField
FieldName = 'rkdwbm'
Origin = 'CCC.chuku.rkdwbm'
Size = 10
end
object ckqcpbm: TStringField
FieldName = 'cpbm'
Origin = 'CCC.chuku.cpbm'
Size = 10
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -