ybnsdeliver.dfm

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

object frm_ybnsdeliver: Tfrm_ybnsdeliver
  Left = 15
  Top = 216
  BorderStyle = bsDialog
  Caption = #24180#24213#22870#37329#21457#25918
  ClientHeight = 431
  ClientWidth = 776
  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 GroupBox2: TGroupBox
    Left = 30
    Top = 10
    Width = 178
    Height = 43
    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 = 0
    object cbbsc: TComboBox
      Left = 22
      Top = 16
      Width = 145
      Height = 21
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 207
    Top = 10
    Width = 178
    Height = 43
    Caption = #25353#24180#20221
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object cbyear: TComboBox
      Left = 26
      Top = 15
      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
      Items.Strings = (
        '1999'
        '2000'
        '2001'
        '2002'
        '2003'
        '2004'
        '2005'
        '2006'
        '2007'
        '2008'
        '2009'
        '2010')
    end
  end
  object Panel3: TPanel
    Left = 385
    Top = 15
    Width = 354
    Height = 38
    TabOrder = 2
    object btn_crtresult: TButton
      Left = 49
      Top = 4
      Width = 74
      Height = 29
      Caption = #20135#29983#32467#26524
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btn_crtresultClick
    end
    object btn_clr: TButton
      Left = 123
      Top = 4
      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 = 1
      OnClick = btn_clrClick
    end
    object btn_prt: TButton
      Left = 197
      Top = 4
      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 = 2
      OnClick = btn_prtClick
    end
  end
  object GroupBox6: TGroupBox
    Left = 1
    Top = 56
    Width = 768
    Height = 370
    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 s: TDBGrid
      Left = 9
      Top = 14
      Width = 753
      Height = 297
      Color = clInfoBk
      DataSource = dsbnsdeliver
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #21150#20107#22788#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24212#25187
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24212#21457
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23454#21457
          Width = 97
          Visible = True
        end>
    end
    object Panel4: TPanel
      Left = 11
      Top = 311
      Width = 750
      Height = 53
      TabOrder = 1
      object Panel9: TPanel
        Left = 3
        Top = 2
        Width = 89
        Height = 26
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Panel8: TPanel
        Left = 3
        Top = 28
        Width = 89
        Height = 22
        Caption = #21512#35745
        TabOrder = 1
      end
      object Panel5: TPanel
        Left = 92
        Top = 2
        Width = 164
        Height = 26
        Caption = #24212#21457
        TabOrder = 2
      end
      object Edit1: TEdit
        Left = 92
        Top = 29
        Width = 164
        Height = 21
        Color = clInfoBk
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
      end
      object Panel6: TPanel
        Left = 256
        Top = 2
        Width = 164
        Height = 26
        Caption = #24212#25187
        TabOrder = 4
      end
      object Edit2: TEdit
        Left = 256
        Top = 29
        Width = 164
        Height = 21
        Color = clInfoBk
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 5
      end
      object Panel7: TPanel
        Left = 420
        Top = 2
        Width = 164
        Height = 26
        Caption = #23454#21457
        TabOrder = 6
      end
      object Edit3: TEdit
        Left = 420
        Top = 29
        Width = 164
        Height = 21
        Color = clInfoBk
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 7
      end
      object Panel10: TPanel
        Left = 584
        Top = 2
        Width = 164
        Height = 26
        TabOrder = 8
      end
      object Edit4: TEdit
        Left = 584
        Top = 29
        Width = 164
        Height = 21
        Color = clInfoBk
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 9
      end
    end
  end
  object dsbnsdeliver: TDataSource
    DataSet = qbnsdeliver
    Left = 476
    Top = 143
  end
  object Queryuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 410
    Top = 146
  end
  object qbnsdeliver: TQuery
    CachedUpdates = True
    AfterOpen = qbnsdeliverAfterOpen
    OnCalcFields = qbnsdeliverCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select '
      'a.'#21150#20107#22788#21517#31216',c.'#24180','
      'a.'#22995#21517',a.'#24037#21495','
      'b.'#24635#32463#29702#29305#21035#22870',b.'#36153#29992',b.'#35745#21010#36153#29992',b.'#32500#20462#20154#24037#36153#35745#25552','
      'c.'#24180#32456#22870#37329#26435',c.'#32500#20462#20154#24037#36153#26435#37325',c.'#20854#20182#22870#21169',c.'#24212#25187
      'from pub_z_stuff a,pub_z_foryearbonus b,pub_z_yearratio c'
      'where'
      'a.'#21150#20107#22788#21517#31216'=b.'#21150#20107#22788#21517#31216
      'and a.'#24037#21495'=c.'#24037#21495' and c.'#24180'=:year'
      'and a.'#21150#20107#22788#21517#31216'=:bscmc'
      '')
    Left = 540
    Top = 145
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'bscmc'
        ParamType = ptUnknown
      end>
    object qbnsdeliverBDEDesigner: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_stuff.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qbnsdeliverBDEDesigner2: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_yearratio.'#24180
      FixedChar = True
      Size = 8
    end
    object qbnsdeliverBDEDesigner3: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
      FixedChar = True
    end
    object qbnsdeliverBDEDesigner4: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_stuff.'#24037#21495
      FixedChar = True
    end
    object qbnsdeliverBDEDesigner5: TCurrencyField
      FieldName = #24635#32463#29702#29305#21035#22870
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#24635#32463#29702#29305#21035#22870
    end
    object qbnsdeliverBDEDesigner6: TCurrencyField
      FieldName = #36153#29992
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#36153#29992
    end
    object qbnsdeliverBDEDesigner7: TCurrencyField
      FieldName = #35745#21010#36153#29992
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#35745#21010#36153#29992
    end
    object qbnsdeliverBDEDesigner8: TCurrencyField
      FieldName = #32500#20462#20154#24037#36153#35745#25552
      Origin = 'ZXJX_JXW.pub_z_foryearbonus.'#32500#20462#20154#24037#36153#35745#25552
    end
    object qbnsdeliverBDEDesigner9: TFloatField
      FieldName = #24180#32456#22870#37329#26435
      Origin = 'ZXJX_JXW.pub_z_yearratio.'#24180#32456#22870#37329#26435
    end
    object qbnsdeliverBDEDesigner10: TFloatField
      FieldName = #32500#20462#20154#24037#36153#26435#37325
      Origin = 'ZXJX_JXW.pub_z_yearratio.'#32500#20462#20154#24037#36153#26435#37325
    end
    object qbnsdeliverBDEDesigner11: TFloatField
      FieldName = #20854#20182#22870#21169
      Origin = 'ZXJX_JXW.pub_z_yearratio.'#20854#20182#22870#21169
    end
    object qbnsdeliverBDEDesigner12: TFloatField
      FieldName = #24212#25187
      Origin = 'ZXJX_JXW.pub_z_yearratio.'#24212#25187
    end
    object qbnsdeliverField2: TFloatField
      FieldKind = fkCalculated
      FieldName = #23454#21457
      Calculated = True
    end
    object qbnsdeliverField: TFloatField
      FieldKind = fkCalculated
      FieldName = #24212#21457
      Calculated = True
    end
  end
  object Query1: TQuery
    DatabaseName = 'zxjx_jxw'
    Left = 326
    Top = 146
  end
end