📄 unit9.~dfm
字号:
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
349.25
10.5833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = #32423#21035#20195#30721
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
end
object QRSubDetail1: TQRSubDetail
Left = 48
Top = 169
Width = 698
Height = 40
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
105.833333333333
1846.79166666667)
Master = QuickRep1
DataSet = TableEmployee
FooterBand = GroupFooterBand
HeaderBand = DetailBand
PrintBefore = False
PrintIfEmpty = False
object QRDBTextID: TQRDBText
Left = 8
Top = 4
Width = 41
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
21.1666666666667
10.5833333333333
108.479166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'ID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextName: TQRDBText
Left = 62
Top = 4
Width = 68
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
164.041666666667
10.5833333333333
179.916666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'Name'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextGender: TQRDBText
Left = 144
Top = 4
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
381
10.5833333333333
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'Gender'
Mask = '#0.00'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 187
Top = 4
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
494.770833333333
10.5833333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'Age'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 228
Top = 4
Width = 112
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
603.25
10.5833333333333
296.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'IDCardNum'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 351
Top = 4
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
928.6875
10.5833333333333
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = TableEmployee
DataField = 'Remark'
Mask = '#0.00'
Transparent = False
WordWrap = True
FontSize = 10
end
end
object PageFooterBand: TQRBand
Left = 48
Top = 249
Width = 698
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
66.1458333333333
1846.79166666667)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 4
Top = 8
Width = 81
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
21.1666666666667
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Text = 'Printed '
Transparent = False
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 618
Top = 8
Width = 80
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1635.125
21.1666666666667
211.666666666667)
Alignment = taRightJustify
AlignToBand = True
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Text = 'Page '
Transparent = False
FontSize = 10
end
end
object ChildBand1: TQRChildBand
Left = 48
Top = 234
Width = 698
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
39.6875
1846.79166666667)
ParentBand = GroupFooterBand
end
object GroupFooterBand: TQRBand
Left = 48
Top = 209
Width = 698
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
66.1458333333333
1846.79166666667)
BandType = rbGroupFooter
object QRLabel11: TQRLabel
Left = 4
Top = 2
Width = 117
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
5.29166666666667
309.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #27492#32423#21035#32844#21592#20154#25968':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr2: TQRExpr
Left = 134
Top = 2
Width = 33
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
354.541666666667
5.29166666666667
87.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'count'
FontSize = 10
end
end
end
object TableRank: TTable
Active = True
DatabaseName = 'Ch14'
TableName = 'Rank.db'
Left = 24
Top = 8
object TableRankRankNum: TStringField
FieldName = 'RankNum'
Size = 1
end
object TableRankRankName: TStringField
FieldName = 'RankName'
end
end
object TableEmployee: TTable
Active = True
DatabaseName = 'Ch14'
IndexName = 'Rank'
MasterFields = 'RankNum'
MasterSource = DataSource1
TableName = 'Employee.DB'
Left = 24
Top = 40
object TableEmployeeID: TIntegerField
FieldName = 'ID'
end
object TableEmployeePassword: TStringField
FieldName = 'Password'
Size = 6
end
object TableEmployeeName: TStringField
FieldName = 'Name'
Size = 15
end
object TableEmployeeGender: TStringField
FieldName = 'Gender'
Size = 2
end
object TableEmployeeAge: TSmallintField
FieldName = 'Age'
end
object TableEmployeeIDCardNum: TStringField
FieldName = 'IDCardNum'
Size = 18
end
object TableEmployeeRemark: TMemoField
FieldName = 'Remark'
BlobType = ftMemo
Size = 100
end
object TableEmployeeRank: TStringField
FieldName = 'Rank'
Size = 1
end
end
object DataSource1: TDataSource
DataSet = TableRank
Left = 64
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -