📄 unit1.dfm
字号:
object Form1: TForm1
Left = 302
Top = 173
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object btn1: TButton
Left = 88
Top = 248
Width = 75
Height = 25
Caption = 'btn1'
TabOrder = 0
OnClick = btn1Click
end
object RvProject1: TRvProject
Engine = RvSystem1
ProjectFile = 'D:\YoungClub\'#25253#34920'.rav'
Left = 72
Top = 64
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\YoungClub\YoungC' +
'lub.mdb;Persist Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT huiyuan.bm, huiyuan.xm, huiyuan.sex, huiyuan.age, huiyuan' +
'.birth, huiyuan.star, huiyuan.shuxian, huiyuan.QQ, huiyuan.tel, ' +
'huiyuan.email, huiyuan.zipcode, huiyuan.address, huiyuan.provinc' +
'e, huiyuan.city, huiyuan.sj, huiyuan.bz, jiaoyou.addfriend, toug' +
'ao.tougao, yijian.yijian, huifu.huifu'
'FROM (((huiyuan INNER JOIN huifu ON huiyuan.bm = huifu.bm) INNER' +
' JOIN jiaoyou ON huiyuan.bm = jiaoyou.bm) INNER JOIN tougao ON h' +
'uiyuan.bm = tougao.bm) INNER JOIN yijian ON huiyuan.bm = yijian.' +
'bm')
Left = 168
Top = 64
object ADOQuery1bm: TWideStringField
FieldName = 'bm'
Size = 15
end
object ADOQuery1xm: TWideStringField
FieldName = 'xm'
Size = 50
end
object ADOQuery1sex: TWideStringField
FieldName = 'sex'
Size = 2
end
object ADOQuery1age: TIntegerField
FieldName = 'age'
end
object ADOQuery1birth: TDateTimeField
FieldName = 'birth'
end
object ADOQuery1star: TWideStringField
FieldName = 'star'
Size = 6
end
object ADOQuery1shuxian: TWideStringField
FieldName = 'shuxian'
Size = 2
end
object ADOQuery1QQ: TWideStringField
FieldName = 'QQ'
Size = 15
end
object ADOQuery1tel: TWideStringField
FieldName = 'tel'
end
object ADOQuery1email: TWideStringField
FieldName = 'email'
Size = 50
end
object ADOQuery1zipcode: TWideStringField
FieldName = 'zipcode'
Size = 10
end
object ADOQuery1address: TWideStringField
FieldName = 'address'
Size = 255
end
object ADOQuery1province: TWideStringField
FieldName = 'province'
end
object ADOQuery1city: TWideStringField
FieldName = 'city'
Size = 50
end
object ADOQuery1sj: TDateTimeField
FieldName = 'sj'
end
object ADOQuery1bz: TMemoField
FieldName = 'bz'
BlobType = ftMemo
end
object ADOQuery1addfriend: TMemoField
FieldName = 'addfriend'
BlobType = ftMemo
end
object ADOQuery1tougao: TMemoField
FieldName = 'tougao'
BlobType = ftMemo
end
object ADOQuery1yijian: TMemoField
FieldName = 'yijian'
BlobType = ftMemo
end
object ADOQuery1huifu: TMemoField
FieldName = 'huifu'
BlobType = ftMemo
end
end
object RvSystem1: TRvSystem
TitleSetup = 'Output Options'
TitleStatus = 'Report Status'
TitlePreview = 'Report Preview'
SystemFiler.StatusFormat = 'Generating page %p'
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = 'Printing page %p'
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 112
Top = 64
end
object RvDataSetConnection1: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOQuery1
Left = 88
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -