📄 ufrmtrybalancerep.dfm
字号:
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape27: TQRShape
Left = 93
Top = -1
Width = 1
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
58.2083333333333
246.0625
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape28: TQRShape
Left = 200
Top = -1
Width = 1
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
58.2083333333333
529.166666666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRLabelSOUT_money: TQRLabel
Left = 212
Top = 3
Width = 105
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
560.916666666667
7.9375
277.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabelOUT_money'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabelSIN_money: TQRLabel
Left = 336
Top = 2
Width = 105
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
889
5.29166666666667
277.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel18'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabelPers: TQRLabel
Left = 653
Top = 2
Width = 56
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1727.72916666667
5.29166666666667
148.166666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel18'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape31: TQRShape
Left = 647
Top = -1
Width = 1
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.8541666666667
1711.85416666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRLabel1Cancel_pers: TQRLabel
Left = 586
Top = 2
Width = 56
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1550.45833333333
5.29166666666667
148.166666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel18'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabelSREM_money: TQRLabel
Left = 453
Top = 2
Width = 102
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1198.5625
5.29166666666667
269.875)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel18'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape32: TQRShape
Left = 4
Top = 46
Width = 710
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
10.5833333333333
121.708333333333
1878.54166666667)
Shape = qrsRectangle
end
object QRLabel16: TQRLabel
Left = 26
Top = 27
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
68.7916666666667
71.4375
140.229166666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26152#26085#21512#35745
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape33: TQRShape
Left = 324
Top = 23
Width = 1
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.8541666666667
857.25
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape34: TQRShape
Left = 447
Top = 23
Width = 1
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.8541666666667
1182.6875
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape35: TQRShape
Left = 563
Top = 23
Width = 1
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.8541666666667
1489.60416666667
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape36: TQRShape
Left = 93
Top = 23
Width = 1
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
58.2083333333333
246.0625
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape37: TQRShape
Left = 200
Top = 23
Width = 1
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
58.2083333333333
529.166666666667
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape38: TQRShape
Left = 647
Top = 23
Width = 1
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
60.8541666666667
1711.85416666667
60.8541666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRLabelSpREM_money: TQRLabel
Left = 453
Top = 26
Width = 102
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1198.5625
68.7916666666667
269.875)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel18'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRGroup1: TQRGroup
Left = 38
Top = 121
Width = 718
Height = 0
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
BeforePrint = QRGroup1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = True
Size.Values = (
0
1899.70833333333)
Expression = 'ADOStoredProc1.Fac_no'
FooterBand = QRBand4
Master = QuickRep1
ReprintOnNewPage = False
end
end
object ADOStoredProc1: TADOStoredProc
Active = True
Connection = DM.ADOConnection1
CursorType = ctStatic
LockType = ltBatchOptimistic
ProcedureName = 'Try_Balance_Rep;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Size = -1
Value = 0
end
item
Name = '@Cdate'
DataType = ftString
Size = 10
Value = '2003-08-03'
end>
Left = 16
Top = 104
object ADOStoredProc1Cdate: TStringField
DisplayWidth = 4
FieldName = 'Cdate'
Size = 10
end
object ADOStoredProc1Fac_no: TStringField
DisplayWidth = 6
FieldName = 'Fac_no'
Size = 3
end
object ADOStoredProc1Sec_no: TStringField
DisplayWidth = 8
FieldName = 'Sec_no'
Size = 5
end
object ADOStoredProc1Fac_nm: TStringField
DisplayWidth = 15
FieldName = 'Fac_nm'
Size = 12
end
object ADOStoredProc1Sec_nm: TStringField
DisplayWidth = 19
FieldName = 'Sec_nm'
Size = 16
end
object ADOStoredProc1In_Money: TBCDField
DisplayWidth = 13
FieldName = 'In_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Out_Money: TBCDField
DisplayWidth = 13
FieldName = 'Out_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Rem_Money: TBCDField
DisplayWidth = 13
FieldName = 'Rem_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Pers: TIntegerField
DisplayWidth = 12
FieldName = 'Pers'
DisplayFormat = '####'
end
object ADOStoredProc1sRem_Money: TBCDField
DisplayWidth = 13
FieldName = 'sRem_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Pre_In_Money: TBCDField
DisplayWidth = 14
FieldName = 'Pre_In_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Pre_Out_Money: TBCDField
DisplayWidth = 16
FieldName = 'Pre_Out_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Pre_Rem_Money: TBCDField
DisplayWidth = 17
FieldName = 'Pre_Rem_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1Cancel_Pers: TIntegerField
DisplayWidth = 12
FieldName = 'Cancel_Pers'
DisplayFormat = '####'
end
object ADOStoredProc1sPre_Rem_Money: TBCDField
DisplayWidth = 18
FieldName = 'sPre_Rem_Money'
Precision = 10
Size = 2
end
object ADOStoredProc1pPers: TIntegerField
DisplayWidth = 12
FieldName = 'pPers'
end
object ADOStoredProc1pCancel_Pers: TIntegerField
DisplayWidth = 13
FieldName = 'pCancel_Pers'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -