printcontractunit.dfm

一个售楼系统

        OnCellClick = DBGridEh1CellClick
        Columns = <
          item
            EditButtons = <>
            FieldName = #20844#21496#21517#31216
            Footers = <>
            DisplayNullIfZero = False
            IsCurrency = False
          end>
      end
      object Panel5: TPanel
        Left = 166
        Top = 1
        Width = 855
        Height = 183
        Align = alClient
        Caption = 'Panel5'
        TabOrder = 1
        object AALabel1: TAALabel
          Left = 1
          Top = 1
          Width = 853
          Height = 13
          Align = alTop
          Caption = #23458#25143#20449#24687#21015#34920
        end
        object DBGridEh2: TDBGridEh
          Left = 1
          Top = 14
          Width = 853
          Height = 168
          FixGridlinecolor = clGray
          Gridlinecolor = clGray
          FooterDisplayStyle = False
          ShowBmp = False
          UseMenu = True
          RowColorFlag = True
          RowTwoColor = clMoneyGreen
          CurDeciNumber = 2
          CurShowNegativeFont = True
          CurShowNegativeColor = False
          CurShowNegativeSign = False
          CurDeciSeparatColor = clRed
          CurrencySymBol = #65509
          CurrencySymBolAlained = False
          CurGridLineColor = clSilver
          CurGridLineWidth = 1
          CurKilobitColor = clGreen
          CurrencyFont.Charset = DEFAULT_CHARSET
          CurrencyFont.Color = clWindowText
          CurrencyFont.Height = -11
          CurrencyFont.Name = 'MS Sans Serif'
          CurrencyFont.Style = []
          CurNegativeFont.Charset = DEFAULT_CHARSET
          CurNegativeFont.Color = clRed
          CurNegativeFont.Height = -11
          CurNegativeFont.Name = 'MS Sans Serif'
          CurNegativeFont.Style = []
          CurNegativeColor = clRed
          CurTextLayout = tlCenter
          CurZeroEmpty = True
          Align = alClient
          AutoFitColWidths = True
          DataSource = DataSource2
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = ANSI_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -13
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnCellClick = DBGridEh2CellClick
          Columns = <
            item
              EditButtons = <>
              FieldName = #23458#25143#32534#21495
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #23458#25143#31867#22411
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #22995#21517
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #24615#21035
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #22269#31821
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #32852#31995#30005#35805
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #32852#31995#22320#22336
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #37038#25919#32534#30721
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #36523#20221#35777#21495
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #30331#35760#26085#26399
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #20849#26377#26435#20154
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #22996#25176#20195#29702#20154
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #37038#25919#32534#30721'2'
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #32852#31995#30005#35805'2'
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #32852#31995#22320#22336'2'
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end>
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 106
    Top = 140
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT '#20844#21496#21517#31216','#20844#21496#32534#21495' from '#20844#21496#20449#24687#34920)
    Left = 146
    Top = 144
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 441
    Top = 151
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery2AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from '#23458#25143#20449#24687#34920)
    Left = 476
    Top = 148
  end
  object ADOQuery4: TADOQuery
    Active = True
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#21333#20803#39044#21806#34920)
    Left = 748
    Top = 356
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 681
    Top = 367
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 841
    Top = 495
  end
  object ADOQuery5: TADOQuery
    Active = True
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT a.'#26242#23450#24231#33853#21517',a.'#29616#24231#33853#21517',a.'#24162#21495', a.'#20135#26435#33539#22260', a.'#25143#22411', a.'#24635#23618#25968', a.'#25152#22312#27004#23618','
      'a.'#21512#21516#32422#23450#24314#31569#38754#31215', a.'#21512#21516#32422#23450#22871#20869#38754#31215',a.'#21512#21516#32422#23450#20998#25674#38754#31215', b.'#21512#21516#21333#20215', b.'#21512#21516#24635#20215
      'FROM '#21333#20803#20449#24687#34920
      'a Right join '#21333#20803#39044#21806#34920' b on a.'#20844#21496#32534#21495'=b.'#20844#21496#32534#21495
      'where a.'#25151#21495'=b.'#25151#21495' and a.'#24162#21495'=b.'#24162#21495' and'
      'a.'#39033#30446#32534#21495'=b.'#39033#30446#32534#21495' and b.'#21512#21516#21495'='#39'HY-204'#39';')
    Left = 844
    Top = 468
  end
  object AcReport1: TAcReport
    DataSets = <
      item
        DataSet = ADOQuery1
        DispName = 'ADOQuery1'
      end
      item
        DataSet = ADOQuery2
        DispName = 'ADOQuery2'
      end
      item
        DataSet = ADOQuery4
        DispName = 'ADOQuery4'
      end
      item
        DataSet = ADOQuery5
        DispName = 'ADOQuery5'
      end>
    Variants = <
      item
        Name = #39033#30446#21517#31216
      end>
    PreviewOptions.Buttons = [apsOpen, apsSave, apsPagesetup, apsApplyEdit, apsExportXls, apsPrint, apsPrintCur, apsCancel, apsPageSize, apsZoomIn, apsZoomOut, apsFirst, apsPrior, apsNext, apsLast]
    PreviewOptions.PreviewFormTitle = 'Anycell Report '#25171#21360#39044#35272
    PreviewOptions.ShowProgress = True
    PreviewOptions.Modal = True
    PreviewOptions.ZoomType = aztDefault
    PreviewOptions.ZoomScale = 100
    PrintOptions.ShowProgress = False
    DesignOptions.DesignFormTitle = 'Anycell Report '#25253#34920#32534#36753#22120
    FileName = 'D:\File Document\mydb4\BB1.apt'
    Left = 517
    Top = 3
  end
end