unit1.dfm

一个会员管理系统delphi源代码,非常好

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