📄 sy240report.dfm
字号:
Top = 4
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
709.083333333333
10.5833333333333
58.2083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Del'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 232
Top = 4
Width = 29
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
613.833333333333
10.5833333333333
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Edit'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 192
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
508
10.5833333333333
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Append'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 152
Top = 4
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
402.166666666667
10.5833333333333
58.2083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Run'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 76
Top = 4
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
201.083333333333
10.5833333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'UserName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 4
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'UserID'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 171
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Size.Values = (
44.9791666666667
1651
52.9166666666667
89.9583333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
150.8125)
FontSize = 10
end
end
object QRGroup1: TQRGroup [3]
Left = 19
Top = 125
Width = 756
Height = 23
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 = (
60.8541666666667
2000.25)
Expression = 'qyReport.ProgramID'
Master = Owner
ReprintOnNewPage = False
object QRLabel8: TQRLabel
Left = 128
Top = 4
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
338.666666666667
10.5833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31243#24335#21517#31281
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 4
Top = 4
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31243#24335#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 184
Top = 4
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
486.833333333333
10.5833333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ProgramName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 60
Top = 4
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
158.75
10.5833333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ProgramID'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
Active = True
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT U.UserID, U.UserName, P.ProgramName, A.ProgramID,'
'A.Run, A.Append, A.Edit, A.Del, A.Report, A.BrowseAll, A.EditAll'
'FROM Users U, Programs P, UserAuthority A'
'WHERE U.CompanyID = :CompanyID'
'AND U.UserID >= :BeginUserID AND U.UserID <= :EndUserID'
'AND U.CompanyID = A.CompanyID AND U.UserID = A.UserID'
'AND P.CompanyID = A.CompanyID AND P.ProgramID = A.ProgramID'
'ORDER BY A.ProgramID, U.UserID')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginUserID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndUserID'
ParamType = ptUnknown
end>
object qyReportUserID: TStringField
FieldName = 'UserID'
Origin = 'KINGSBYPRG.Users.UserID'
FixedChar = True
Size = 10
end
object qyReportUserName: TStringField
FieldName = 'UserName'
Origin = 'KINGSBYPRG.Users.UserName'
FixedChar = True
Size = 10
end
object qyReportProgramName: TStringField
FieldName = 'ProgramName'
Origin = 'KINGSBYPRG.Programs.ProgramName'
FixedChar = True
Size = 30
end
object qyReportProgramID: TStringField
FieldName = 'ProgramID'
Origin = 'KINGSBYPRG.UserAuthority.ProgramID'
FixedChar = True
Size = 5
end
object qyReportRun: TStringField
FieldName = 'Run'
Origin = 'KINGSBYPRG.UserAuthority.Run'
FixedChar = True
Size = 1
end
object qyReportAppend: TStringField
FieldName = 'Append'
Origin = 'KINGSBYPRG.UserAuthority.Append'
FixedChar = True
Size = 1
end
object qyReportEdit: TStringField
FieldName = 'Edit'
Origin = 'KINGSBYPRG.UserAuthority.Edit'
FixedChar = True
Size = 1
end
object qyReportDel: TStringField
FieldName = 'Del'
Origin = 'KINGSBYPRG.UserAuthority.Del'
FixedChar = True
Size = 1
end
object qyReportReport: TStringField
FieldName = 'Report'
Origin = 'KINGSBYPRG.UserAuthority.Report'
FixedChar = True
Size = 1
end
object qyReportBrowseAll: TStringField
FieldName = 'BrowseAll'
Origin = 'KINGSBYPRG.UserAuthority.BrowseAll'
FixedChar = True
Size = 1
end
object qyReportEditAll: TStringField
FieldName = 'EditAll'
Origin = 'KINGSBYPRG.UserAuthority.EditAll'
FixedChar = True
Size = 1
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -