mc_rkxxdy.dfm

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '姓名'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText3: TQRDBText
        Left = 136
        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
          359.833333333333
          21.1666666666667
          66.1458333333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '性别'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText4: TQRDBText
        Left = 170
        Top = 8
        Width = 49
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          449.791666666667
          21.1666666666667
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '出生日期'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText5: TQRDBText
        Left = 240
        Top = 8
        Width = 49
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          635
          21.1666666666667
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '房间代号'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText6: TQRDBText
        Left = 312
        Top = 8
        Width = 49
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          825.5
          21.1666666666667
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '身份证号'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText7: TQRDBText
        Left = 426
        Top = 8
        Width = 49
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          1127.125
          21.1666666666667
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '工作单位'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
      object QRDBText8: TQRDBText
        Left = 568
        Top = 8
        Width = 49
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          1502.83333333333
          21.1666666666667
          129.645833333333)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Color = clWhite
        DataSet = Query2
        DataField = '单位电话'
        Transparent = False
        WordWrap = True
        FontSize = 9
      end
    end
    object SummaryBand1: TQRBand
      Left = 38
      Top = 139
      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 = rbSummary
      object QRShape18: TQRShape
        Left = 6
        Top = 3
        Width = 708
        Height = 2
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          5.29166666666667
          15.875
          7.9375
          1873.25)
        Brush.Color = clBlack
        Shape = qrsRectangle
      end
      object QRLabel10: TQRLabel
        Left = 8
        Top = 16
        Width = 61
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          21.1666666666667
          42.3333333333333
          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 = 80
        Top = 16
        Width = 25
        Height = 13
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          34.3958333333333
          211.666666666667
          42.3333333333333
          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
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select 小区编号,小区名 from 小区信息表')
    Left = 125
    Top = 20
    object Query1BDEDesigner: TStringField
      FieldName = '小区编号'
      Origin = 'WYGL.小区信息表.小区编号'
      FixedChar = True
      Size = 10
    end
    object Query1BDEDesigner2: TStringField
      FieldName = '小区名'
      Origin = 'WYGL.小区信息表.小区名'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 93
    Top = 20
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 61
    Top = 132
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '所属区域'
    MasterFields = '小区名'
    MasterSource = DataSource1
    TableName = 'dbo.大楼信息表'
    Left = 93
    Top = 132
    object Table1BDEDesigner2: TStringField
      FieldName = '大楼名称'
      FixedChar = True
    end
    object Table1BDEDesigner7: TStringField
      FieldName = '所属区域'
      FixedChar = True
    end
    object Table1BDEDesigner: TStringField
      FieldName = '大楼编号'
      Required = True
      FixedChar = True
      Size = 10
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'WYGL'
    IndexFieldNames = '大楼编号'
    MasterFields = '大楼编号'
    MasterSource = DataSource2
    TableName = 'dbo.房屋信息表'
    Left = 101
    Top = 368
    object Table2BDEDesigner: TStringField
      FieldName = '房间编号'
      Required = True
      FixedChar = True
    end
    object Table2BDEDesigner2: TStringField
      FieldName = '区名'
      FixedChar = True
    end
    object Table2BDEDesigner3: TStringField
      FieldName = '大楼名'
      FixedChar = True
    end
    object Table2BDEDesigner4: TStringField
      FieldName = '房间号码'
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner6: TStringField
      FieldName = '房主姓名'
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner18: TStringField
      FieldName = '是否空闲'
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner5: TStringField
      FieldName = '房主代号'
      FixedChar = True
    end
    object Table2BDEDesigner7: TStringField
      FieldName = '大楼编号'
      FixedChar = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Table2
    Left = 69
    Top = 368
  end
  object Query2: TQuery
    DatabaseName = 'WYGL'
    RequestLive = True
    SQL.Strings = (
      'Select * From 人口信息')
    Left = 447
    Top = 124
    object Query2BDEDesigner: TStringField
      FieldName = '人口编号'
      Origin = 'WYGL.人口信息.人口编号'
      FixedChar = True
    end
    object Query2BDEDesigner2: TStringField
      FieldName = '姓名'
      Origin = 'WYGL.人口信息.姓名'
      FixedChar = True
      Size = 10
    end
    object Query2BDEDesigner3: TStringField
      FieldName = '性别'
      Origin = 'WYGL.人口信息.性别'
      FixedChar = True
      Size = 2
    end
    object Query2BDEDesigner4: TDateTimeField
      FieldName = '出生日期'
      Origin = 'WYGL.人口信息.出生日期'
    end
    object Query2BDEDesigner5: TStringField
      FieldName = '成员代号'
      Origin = 'WYGL.人口信息.成员代号'
      FixedChar = True
      Size = 10
    end
    object Query2BDEDesigner6: TStringField
      FieldName = '文化程度'
      Origin = 'WYGL.人口信息.文化程度'
      FixedChar = True
    end
    object Query2BDEDesigner7: TStringField
      FieldName = '与户主关系'
      Origin = 'WYGL.人口信息.与户主关系'
      FixedChar = True
    end
    object Query2BDEDesigner8: TStringField
      FieldName = '籍贯'
      Origin = 'WYGL.人口信息.籍贯'
      FixedChar = True
    end
    object Query2BDEDesigner9: TStringField
      FieldName = '国籍'
      Origin = 'WYGL.人口信息.国籍'
      FixedChar = True
    end
    object Query2BDEDesigner10: TStringField
      FieldName = '婚姻状况'
      Origin = 'WYGL.人口信息.婚姻状况'
      FixedChar = True
    end
    object Query2BDEDesigner11: TStringField
      FieldName = '工作单位'
      Origin = 'WYGL.人口信息.工作单位'
      FixedChar = True
      Size = 30
    end
    object Query2BDEDesigner12: TStringField
      FieldName = '职业'
      Origin = 'WYGL.人口信息.职业'
      FixedChar = True
    end
    object Query2BDEDesigner13: TStringField
      FieldName = '职务'
      Origin = 'WYGL.人口信息.职务'
      FixedChar = True
    end
    object Query2BDEDesigner14: TStringField
      FieldName = '职称'
      Origin = 'WYGL.人口信息.职称'
      FixedChar = True
    end
    object Query2BDEDesigner15: TStringField
      FieldName = '家庭电话'
      Origin = 'WYGL.人口信息.家庭电话'
      FixedChar = True
    end
    object Query2BDEDesigner16: TStringField
      FieldName = '单位电话'
      Origin = 'WYGL.人口信息.单位电话'
      FixedChar = True
    end
    object Query2BDEDesigner17: TStringField
      FieldName = '手机'
      Origin = 'WYGL.人口信息.手机'
      FixedChar = True
    end
    object Query2BDEDesigner18: TStringField
      FieldName = '传呼'
      Origin = 'WYGL.人口信息.传呼'
      FixedChar = True
    end
    object Query2BDEDesigner19: TStringField
      FieldName = '家庭住址'
      Origin = 'WYGL.人口信息.家庭住址'
      FixedChar = True
      Size = 30
    end
    object Query2BDEDesigner20: TStringField
      FieldName = '大楼名称'
      Origin = 'WYGL.人口信息.大楼名称'
      FixedChar = True
    end
    object Query2BDEDesigner21: TStringField
      FieldName = '小区名'
      Origin = 'WYGL.人口信息.小区名'
      FixedChar = True
    end
    object Query2BDEDesigner22: TStringField
      FieldName = '大楼名'
      Origin = 'WYGL.人口信息.大楼名'
      FixedChar = True
    end
    object Query2BDEDesigner23: TStringField
      FieldName = '房间号'
      Origin = 'WYGL.人口信息.房间号'
      FixedChar = True
      Size = 10
    end
    object Query2BDEDesigner24: TStringField
      FieldName = '身份证号'
      Origin = 'WYGL.人口信息.身份证号'
      FixedChar = True
      Size = 30
    end
    object Query2BDEDesigner25: TStringField
      FieldName = '户口所在地'
      Origin = 'WYGL.人口信息.户口所在地'
      FixedChar = True
      Size = 30
    end
    object Query2BDEDesigner26: TStringField
      FieldName = '暂住证号'
      Origin = 'WYGL.人口信息.暂住证号'
      FixedChar = True
      Size = 30
    end
    object Query2BDEDesigner27: TStringField
      FieldName = '房间代号'
      Origin = 'WYGL.人口信息.房间代号'
      FixedChar = True
    end
    object Query2BDEDesigner28: TMemoField
      FieldName = '备注'
      Origin = 'WYGL.人口信息.备注'
      BlobType = ftMemo
      Size = 1
    end
    object Query2BDEDesigner29: TBlobField
      FieldName = '照片'
      Origin = 'WYGL.人口信息.照片'
      BlobType = ftBlob
      Size = 1
    end
  end
  object DataSource4: TDataSource
    DataSet = Query2
    Left = 479
    Top = 124
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 327
    Top = 188
    object N1: TMenuItem
      Caption = '查找户主'
      OnClick = N1Click
    end
  end
end