jlcgzzt_u.dfm

比较完整的系统 比较完整的系统

          Left = 8
          Top = 8
          Width = 220
          Height = 25
          DataSource = DataSource3
          TabOrder = 0
        end
        object ComboBox3: TComboBox
          Left = 312
          Top = 8
          Width = 73
          Height = 24
          ItemHeight = 16
          TabOrder = 1
        end
        object ComboBox4: TComboBox
          Left = 384
          Top = 8
          Width = 41
          Height = 24
          ItemHeight = 16
          ItemIndex = 0
          TabOrder = 2
          Text = '='
          Items.Strings = (
            '='
            '>'
            '<'
            '>='
            '<='
            '<>')
        end
        object Edit5: TEdit
          Left = 432
          Top = 8
          Width = 65
          Height = 24
          TabOrder = 3
        end
        object BitBtn5: TBitBtn
          Left = 504
          Top = 8
          Width = 33
          Height = 25
          Caption = #26597#35810
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = BitBtn5Click
        end
        object BitBtn6: TBitBtn
          Left = 536
          Top = 8
          Width = 65
          Height = 25
          Caption = #23548#20986'EXCEL'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object BitBtn7: TBitBtn
          Left = 600
          Top = 8
          Width = 33
          Height = 25
          Caption = #25171#21360
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = BitBtn7Click
        end
        object BitBtn8: TBitBtn
          Left = 632
          Top = 8
          Width = 33
          Height = 25
          Caption = #36864#20986
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnClick = BitBtn4Click
        end
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 56
        Width = 681
        Height = 241
        FooterColor = clInfoBk
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -16
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
        SortLocal = True
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGridEh1DblClick
        OnGetCellParams = DBGridEh1GetCellParams
        Columns = <
          item
            EditButtons = <>
            FieldName = #36710#21495
            Footer.Value = #21512#35745#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #23398#21495
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #25945#32451
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #26412#26085#20219#21153
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #21463#35757#20154#25968
            Footer.FieldName = #21463#35757#20154#25968
            Footer.ValueType = fvtSum
            Footers = <>
            Title.SortIndex = 1
            Title.SortMarker = smDownEh
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = #20998#37197#27773#27833
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #20998#37197#26612#27833
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #24037#20316#29366#24577
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #22791#27880
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #24314#26723#20154
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = #24314#26723#26085#26399
            Footers = <>
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table4
    Left = 160
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'jx'
    IndexFieldNames = #32534#21495
    TableName = #25945#32451#36710#24773#20917#32479#35745#34920
    object Table1BDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 6
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #36710#21495
      Size = 9
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #23398#21495
      Size = 10
    end
  end
  object Database1: TDatabase
    AliasName = 'jx'
    Connected = True
    DatabaseName = 'jx'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 32
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'jx'
    IndexFieldNames = #32534#21495
    TableName = #25945#32451#21592#26723#26696
    Left = 64
    object Table2BDEDesigner: TStringField
      FieldName = #32534#21495
      Size = 6
    end
    object Table2BDEDesigner2: TStringField
      FieldName = #22995#21517
      Size = 10
    end
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'jx'
    TableName = #21442#25968#35774#32622
    Left = 128
    object Table3BDEDesigner: TStringField
      FieldName = #26412#26085#20219#21153
      Size = 10
    end
    object Table3BDEDesigner2: TStringField
      FieldName = #24037#20316#29366#24577
      Size = 6
    end
  end
  object DataSource2: TDataSource
    DataSet = Table3
    Left = 96
  end
  object Table4: TTable
    Active = True
    AfterInsert = Table4AfterInsert
    BeforePost = Table4BeforePost
    AfterScroll = Table4AfterScroll
    DatabaseName = 'jx'
    TableName = #25945#32451#36710#24037#20316#29366#24577
    Left = 192
    object Table4_jlc: TStringField
      FieldName = #32534#21495'_jlc'
      Size = 6
    end
    object Table4_jly: TStringField
      FieldName = #32534#21495'_jly'
      Size = 6
    end
    object Table4BDEDesigner: TStringField
      FieldName = #26412#26085#20219#21153
      Size = 6
    end
    object Table4BDEDesigner2: TIntegerField
      FieldName = #21463#35757#20154#25968
    end
    object Table4BDEDesigner3: TIntegerField
      FieldName = #20998#37197#27773#27833
    end
    object Table4BDEDesigner4: TIntegerField
      FieldName = #20998#37197#26612#27833
    end
    object Table4BDEDesigner5: TStringField
      FieldName = #24037#20316#29366#24577
      Size = 6
    end
    object Table4BDEDesigner6: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
      Size = 1
    end
    object Table4BDEDesigner7: TStringField
      FieldName = #24314#26723#20154
      Size = 8
    end
    object Table4BDEDesigner8: TDateTimeField
      FieldName = #24314#26723#26085#26399
    end
  end
  object Query1: TQuery
    DatabaseName = 'jx'
    SQL.Strings = (
      
        'SELECT cqktj.'#36710#21495', cqktj.'#23398#21495', jlyda.'#22995#21517' as '#25945#32451', cgzzt.'#26412#26085#20219#21153', cgzzt.'#21463#35757#20154 +
        #25968', cgzzt.'#20998#37197#27773#27833', cgzzt.'#20998#37197#26612#27833', cgzzt.'#24037#20316#29366#24577', cgzzt.'#22791#27880', cgzzt.'#24314#26723#20154', cgzz' +
        't.'#24314#26723#26085#26399
      'FROM '#25945#32451#36710#24773#20917#32479#35745#34920' cqktj, '#25945#32451#36710#24037#20316#29366#24577' cgzzt, '#25945#32451#21592#26723#26696' jlyda'
      'WHERE  (cqktj.'#32534#21495' = cgzzt.'#32534#21495'_jlc)  '
      '   AND  (jlyda.'#32534#21495' = cgzzt.'#32534#21495'_jly)  ')
    Left = 576
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 544
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitGridToPageWidth, pghOptimalColWidths]
    Page.BottomMargin = 1.000000000000000000
    Page.LeftMargin = 1.000000000000000000
    Page.RightMargin = 1.000000000000000000
    Page.TopMargin = 1.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 608
  end
end