📄 tongjidayin.~dfm
字号:
object tongjidayinForm: TtongjidayinForm
Left = 161
Top = 128
Hint = #32479#35745#24182#25171#21360#26576#20010#29677#32423#30340#30007#29983#21644#22899#29983#30340#25968#30446#31383#21475
AutoScroll = False
Caption = #32479#35745#24182#25171#21360#26576#20010#29677#32423#30340#30007#29983#21644#22899#29983#30340#25968#30446#31383#21475
ClientHeight = 128
ClientWidth = 384
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
ShowHint = True
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 24
Top = 13
Width = 320
Height = 16
Caption = #35831#36873#25321#29677#32423#21518#20877#21333#20987#32479#35745#39044#35272#25110#32479#35745#25171#21360#25353#38062
end
object ComboBox1: TComboBox
Left = 34
Top = 44
Width = 308
Height = 24
ItemHeight = 16
MaxLength = 20
TabOrder = 0
OnChange = ComboBox1Change
end
object Button1: TButton
Left = 39
Top = 83
Width = 85
Height = 31
Caption = #32479#35745#39044#35272
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 149
Top = 83
Width = 88
Height = 31
Caption = #32479#35745#25171#21360
TabOrder = 2
end
object Button3: TButton
Left = 260
Top = 83
Width = 77
Height = 31
Caption = #36864#20986
TabOrder = 3
OnClick = Button3Click
end
object QuickRep1: TQuickRep
Left = 4
Top = 144
Width = 781
Height = 1119
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = printerQuery
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100
2970
100
2100
100
100
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 100
object QRBand1: TQRBand
Left = 38
Top = 38
Width = 705
Height = 76
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 = (
201.083333333333
1865.3125)
BandType = rbTitle
object QRLabel1: TQRLabel
Left = 216
Top = 16
Width = 273
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
571.5
42.3333333333333
722.3125)
Alignment = taCenter
AlignToBand = True
AutoSize = True
AutoStretch = False
Caption = #32479#35745#24182#25171#21360#26576#20010#29677#32423#30340#30007#29983#21644#22899#29983#25968#30446
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 12
end
object QRSysData1: TQRSysData
Left = 428
Top = 49
Width = 129
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1132.41666666667
129.645833333333
341.3125)
Alignment = taCenter
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Text = #32479#35745#26085#26399
Transparent = False
FontSize = 12
end
end
object QRBand2: TQRBand
Left = 38
Top = 114
Width = 705
Height = 40
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 = (
105.833333333333
1865.3125)
BandType = rbColumnHeader
object QRLabel2: TQRLabel
Left = 138
Top = 14
Width = 113
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
365.125
37.0416666666667
298.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #30007#29983#25968#30446#65288#20154#65289
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel3: TQRLabel
Left = 424
Top = 14
Width = 113
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1121.83333333333
37.0416666666667
298.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #22899#29983#25968#30446#65288#20154#65289
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 12
end
end
object QRBand3: TQRBand
Left = 38
Top = 154
Width = 705
Height = 40
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 = (
105.833333333333
1865.3125)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 136
Top = 12
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
359.833333333333
31.75
171.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = printerQuery
DataField = 'Nansheng'
Transparent = False
WordWrap = True
FontSize = 12
end
object QRDBText2: TQRDBText
Left = 426
Top = 12
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1127.125
31.75
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = printerQuery
DataField = 'Nvsheng'
Transparent = False
WordWrap = True
FontSize = 12
end
end
end
object TongjitoprnQuery: TQuery
DatabaseName = 'D:\publicdataBase'
SQL.Strings = (
'select * from students;')
Left = 128
object TongjitoprnQueryXuehao: TStringField
FieldName = 'Xuehao'
Size = 8
end
object TongjitoprnQueryXingming: TStringField
FieldName = 'Xingming'
Size = 8
end
object TongjitoprnQueryXingbie: TStringField
FieldName = 'Xingbie'
Size = 2
end
object TongjitoprnQueryBanji: TStringField
FieldName = 'Banji'
end
object TongjitoprnQueryChushengnianyue: TStringField
FieldName = 'Chushengnianyue'
Size = 16
end
object TongjitoprnQueryJiguan: TStringField
FieldName = 'Jiguan'
Size = 40
end
object TongjitoprnQueryFumuxingming: TStringField
FieldName = 'Fumuxingming'
Size = 8
end
object TongjitoprnQueryLianxidianhua: TStringField
FieldName = 'Lianxidianhua'
Size = 12
end
object TongjitoprnQueryXianzhuzhi: TStringField
FieldName = 'Xianzhuzhi'
Size = 40
end
end
object printerQuery: TQuery
DatabaseName = 'D:\publicdataBase'
SQL.Strings = (
'select * from classes;')
Left = 152
object printerQueryBianhao: TStringField
FieldName = 'Bianhao'
Size = 6
end
object printerQueryMingcheng: TStringField
FieldName = 'Mingcheng'
end
object printerQueryNansheng: TIntegerField
FieldName = 'Nansheng'
end
object printerQueryNvsheng: TIntegerField
FieldName = 'Nvsheng'
end
end
object banjiTable: TTable
DatabaseName = 'D:\publicdataBase'
TableName = 'classes.DB'
Left = 184
object banjiTableBianhao: TStringField
FieldName = 'Bianhao'
Size = 6
end
object banjiTableMingcheng: TStringField
FieldName = 'Mingcheng'
end
object banjiTableNansheng: TIntegerField
FieldName = 'Nansheng'
end
object banjiTableNvsheng: TIntegerField
FieldName = 'Nvsheng'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -