saledistribute.dfm

主要是介绍DELPHI三层应用以及分布式数据库的应用

object frm_saledistribute: Tfrm_saledistribute
  Left = 14
  Top = 176
  BorderStyle = bsDialog
  Caption = #38646#37197#20214#35745#25552#20998#37197
  ClientHeight = 446
  ClientWidth = 769
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 213
    Top = 6
    Width = 161
    Height = 50
    Caption = #25353#22995#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object cbname: TComboBox
      Left = 7
      Top = 21
      Width = 145
      Height = 21
      Color = clInfoBk
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 404
    Top = 6
    Width = 347
    Height = 50
    Caption = #25353#24180#26376
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label13: TLabel
      Left = 174
      Top = 26
      Width = 12
      Height = 12
      AutoSize = False
      Caption = #24180
    end
    object Label14: TLabel
      Left = 299
      Top = 25
      Width = 42
      Height = 12
      AutoSize = False
      Caption = #26376
    end
    object cbyear: TComboBox
      Left = 23
      Top = 21
      Width = 145
      Height = 21
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        '1995'
        '1996'
        '1997'
        '1998'
        '1999'
        '2000'
        '2001'
        '2002'
        '2003'
        '2004'
        '2005'
        '2006'
        '2007'
        '2008'
        '2009'
        '2010'
        ''
        '')
    end
    object cbmonth: TComboBox
      Left = 215
      Top = 22
      Width = 79
      Height = 21
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
    end
  end
  object Panel3: TPanel
    Left = 20
    Top = 56
    Width = 731
    Height = 42
    TabOrder = 2
    object btn_brs: TButton
      Left = 215
      Top = 6
      Width = 74
      Height = 29
      Caption = #20840#35272
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btn_brsClick
    end
    object btn_qry: TButton
      Left = 288
      Top = 6
      Width = 74
      Height = 29
      Caption = #26597#35810
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btn_qryClick
    end
    object btn_clr: TButton
      Left = 361
      Top = 6
      Width = 74
      Height = 29
      Caption = #28165#31354
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btn_clrClick
    end
    object btn_prt: TButton
      Left = 434
      Top = 6
      Width = 74
      Height = 29
      Caption = #25171#21360#32467#26524
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btn_prtClick
    end
  end
  object GroupBox6: TGroupBox
    Left = -6
    Top = 100
    Width = 775
    Height = 316
    Caption = #25968#25454#26597#30475#31383#21475
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 11
      Top = 15
      Width = 755
      Height = 290
      Color = clInfoBk
      DataSource = dssaledistbt
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #24037#21495
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23703#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21150#20107#22788#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = #38646#37197#20214#35745#25552#22870#21169
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26376
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 21
    Top = 6
    Width = 161
    Height = 50
    Caption = #25353#21150#20107#22788#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object cbbsc: TComboBox
      Left = 9
      Top = 22
      Width = 145
      Height = 21
      Color = clInfoBk
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 0
      OnExit = cbbscExit
    end
  end
  object qsaledistbt: TQuery
    CachedUpdates = True
    AfterOpen = qsaledistbtAfterOpen
    OnCalcFields = qsaledistbtCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select a.*,b.'#38646#37197#20214#35745#25552#26435#37325',b.'#24180',b.'#26376',c.'#22995#21517',c.'#23703#20301',c.'#21150#20107#22788#21517#31216',d.'#38646#37197#20214#35745#25552
      
        'from pub_z_saledistribute a ,pub_z_saleratio b, pub_z_stuff c,pu' +
        'b_z_salededuct d'
      'where '
      
        'a.'#24037#21495'=b.'#24037#21495' and a.'#24037#21495'=c.'#24037#21495' and c.'#21150#20107#22788#21517#31216'=d.'#21150#20107#22788#21517#31216' and b.'#24180'=d.'#24180' and b.'#26376'=' +
        'd.'#26376
      '')
    Left = 557
    Top = 131
    object qsaledistbtBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#24207#21495
    end
    object qsaledistbtBDEDesigner2: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#24037#21495
      FixedChar = True
    end
    object qsaledistbtBDEDesigner3: TCurrencyField
      FieldName = #38646#37197#20214#35745#25552#22870#21169
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#38646#37197#20214#35745#25552#22870#21169
    end
    object qsaledistbtBDEDesigner4: TFloatField
      FieldName = #38646#37197#20214#35745#25552#26435#37325
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#24180
    end
    object qsaledistbtBDEDesigner5: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#26376
      FixedChar = True
      Size = 8
    end
    object qsaledistbtBDEDesigner6: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#20027#31649
      FixedChar = True
      Size = 4
    end
    object qsaledistbtBDEDesigner7: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#23457#26680
      FixedChar = True
    end
    object qsaledistbtBDEDesigner8: TStringField
      FieldName = #23703#20301
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#24405#20837
      FixedChar = True
    end
    object qsaledistbtBDEDesigner9: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_saledistribute.'#24405#20837#26085#26399
      FixedChar = True
    end
    object qsaledistbtBDEDesigner10: TCurrencyField
      FieldName = #38646#37197#20214#35745#25552
      Origin = 'ZXJX_JXW.pub_z_saleratio.'#38646#37197#20214#35745#25552#26435#37325
    end
  end
  object dssaledistbt: TDataSource
    DataSet = qsaledistbt
    Left = 483
    Top = 131
  end
  object Queryuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 406
    Top = 132
  end
  object quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 321
    Top = 178
  end
end