📄 mc_wxdy.~dfm
字号:
object WXDY: TWXDY
Left = 222
Top = 72
BorderStyle = bsToolWindow
Caption = '维修信息打印：'
ClientHeight = 625
ClientWidth = 792
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Scaled = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 7
Top = 9
Width = 84
Height = 12
Caption = '选择查询选项：'
end
object DBGrid1: TDBGrid
Left = 5
Top = 32
Width = 781
Height = 588
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = '维修编号'
Visible = True
end
item
Expanded = False
FieldName = '居住位置'
Visible = True
end
item
Expanded = False
FieldName = '维修项目'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '接待人'
Visible = True
end
item
Expanded = False
FieldName = '维修人员'
Visible = True
end
item
Expanded = False
FieldName = '维修方式'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '维修金额'
Visible = True
end
item
Expanded = False
FieldName = '维修用料'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '开工时间'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '完工时间'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '业主意见'
Width = 64
Visible = True
end
item
Expanded = False
FieldName = '处理意见'
Visible = True
end>
end
object BitBtn4: TBitBtn
Left = 504
Top = 4
Width = 105
Height = 25
Caption = '查询[&F]'
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 95
Top = 5
Width = 162
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
Items.Strings = (
'维修编号'
'居住位置'
'维修项目'
'接待人'
'维修人员'
'维修方式'
'维修金额'
'维修用料'
'开工时间'
'完工时间'
'业主意见')
end
object ComboBox2: TComboBox
Left = 263
Top = 5
Width = 106
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
Items.Strings = (
'Like'
'='
'>'
'<')
end
object Edit1: TEdit
Left = 375
Top = 5
Width = 121
Height = 20
TabOrder = 4
Text = '*'
end
object BitBtn1: TBitBtn
Left = 610
Top = 4
Width = 85
Height = 25
Caption = '打印[&P]'
TabOrder = 5
OnClick = BitBtn1Click
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C00009231000092311F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C00005F4A5F4ACC1400004A291F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
00005F4A5F4A00005F4A00000000CC144A291F7C1F7C1F7C1F7C1F7C1F7C5F4A
5F4A00005F4A5F4A3F67CC140000CC144A294A291F7C1F7C1F7C1F7C1F7C0000
5F4A5F4AFF7F3F673F673F6700000000CC144A294A291F7C1F7C00003F675F4A
FF7F3F673F673F673F675F4A0000CC140000CC144A294A291F7C3F675F4A0000
3F673F673F675F4A0000FF7F3F673F67CC140000CC144A294A290000FF7FFF7F
00005F4A00003F673F673F673F67830C3F67CC140000CC144A29FF7FFF7FFF7F
FF7F00003F67CC1440023F673F673F67830C3F67CC1400001F7C1F7CFF7FFF7F
FF7FFF7F00003F67A002A0023F673F673F67830C3F67CC141F7C1F7C1F7CFF7F
FF7FFF7FFF7F00003F67A002A0023F673F673F6700001F7C1F7C1F7C1F7C1F7C
FF7FFF7FFF7FFF7F00003F67FF7F3F6700001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7CFF7F00003F670000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
end
object BitBtn2: TBitBtn
Left = 696
Top = 4
Width = 89
Height = 25
Caption = '关闭[&Q]'
TabOrder = 6
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object QuickRep1: TQuickRep
Left = 32
Top = 634
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = Query1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
OnPreview = QuickRep1Preview
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 PageHeaderBand1: TQRBand
Left = 38
Top = 38
Width = 718
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
1899.70833333333)
BandType = rbPageHeader
object QRLabel1: TQRLabel
Left = 304
Top = 8
Width = 97
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
804.333333333333
21.1666666666667
256.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '维修信息打印'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape1: TQRShape
Left = 7
Top = 34
Width = 705
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
18.5208333333333
89.9583333333333
1865.3125)
Brush.Color = clBlack
Shape = qrsRectangle
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 241
Width = 718
Height = 32
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 = (
84.6666666666667
1899.70833333333)
BandType = rbSummary
object QRLabel15: TQRLabel
Left = 16
Top = 8
Width = 61
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
42.3333333333333
21.1666666666667
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '打印日期：'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRExpr1: TQRExpr
Left = 88
Top = 8
Width = 25
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
232.833333333333
21.1666666666667
66.1458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'DATE'
FontSize = 9
end
end
object DetailBand1: TQRBand
Left = 38
Top = 78
Width = 718
Height = 163
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 = (
431.270833333333
1899.70833333333)
BandType = rbDetail
object QRShape2: TQRShape
Left = 8
Top = 5
Width = 701
Height = 152
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
402.166666666667
21.1666666666667
13.2291666666667
1854.72916666667)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -