payforoffice.dfm

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

object frm_payforoffice: Tfrm_payforoffice
  Left = 3
  Top = 183
  Width = 737
  Height = 258
  Caption = #21508#21150#20107#22788#32844#24037#20323#37329#22522#26412#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object label1: TLabel
    Left = 21
    Top = 33
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #21150#20107#22788#21517#31216
  end
  object Label8: TLabel
    Left = 325
    Top = 32
    Width = 36
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = #24180
  end
  object Label5: TLabel
    Left = 415
    Top = 31
    Width = 12
    Height = 13
    AutoSize = False
    Caption = #26376
  end
  object DBGrid1: TDBGrid
    Left = 18
    Top = 59
    Width = 689
    Height = 130
    DataSource = dspayforoffice
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24037#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32570#21220#22825#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #28014#21160#26435#37325
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38646#37197#20214#35745#25552#26435#37325
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24180#32456#22870#37329#26435#37325
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32500#20462#20154#24037#36153#26435#37325
        Visible = True
      end>
  end
  object btncreatedetail: TButton
    Left = 445
    Top = 26
    Width = 192
    Height = 25
    Caption = #36755#20837#32844#24037#20323#37329#22522#26412#20449#24687
    TabOrder = 1
    OnClick = btncreatedetailClick
  end
  object btnsavethis: TButton
    Left = 627
    Top = 201
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 2
    OnClick = btnsavethisClick
  end
  object Edit1: TEdit
    Left = 272
    Top = 28
    Width = 70
    Height = 21
    TabOrder = 3
  end
  object ComboBox1: TComboBox
    Left = 365
    Top = 28
    Width = 45
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12')
  end
  object ComboBox2: TComboBox
    Left = 99
    Top = 30
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 5
  end
  object qoffice: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    SQL.Strings = (
      'select '#21150#20107#22788#21517#31216' from pub_z_office')
    Left = 380
    Top = 190
  end
  object dspayforoffice: TDataSource
    DataSet = qpayforoffice
    Left = 193
    Top = 189
  end
  object dsuse: TDataSource
    DataSet = qoffice
    Left = 421
    Top = 190
  end
  object qforuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 671
    Top = 6
  end
  object qforuse2: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 631
    Top = 7
  end
  object qforuse3: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    Left = 593
    Top = 6
  end
  object qpayforoffice: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      'select * from pub_z_payforoffice '
      'where '
      #24180'=:year '
      'and '#26376'=:month '
      'and '#21150#20107#22788#21517#31216'=:office')
    Left = 150
    Top = 188
    ParamData = <
      item
        DataType = ftString
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'month'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'office'
        ParamType = ptUnknown
      end>
    object qpayforofficeBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#24207#21495
    end
    object qpayforofficeBDEDesigner2: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qpayforofficeBDEDesigner3: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#22995#21517
      FixedChar = True
    end
    object qpayforofficeBDEDesigner4: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#24037#21495
      FixedChar = True
    end
    object qpayforofficeBDEDesigner5: TStringField
      FieldName = #32570#21220#22825#25968
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#32570#21220#22825#25968
      FixedChar = True
      Size = 2
    end
    object qpayforofficeBDEDesigner6: TFloatField
      FieldName = #28014#21160#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#28014#21160#26435#37325
    end
    object qpayforofficeBDEDesigner7: TFloatField
      FieldName = #38646#37197#20214#35745#25552#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#38646#37197#20214#35745#25552#26435#37325
    end
    object qpayforofficeBDEDesigner8: TFloatField
      FieldName = #24180#32456#22870#37329#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#24180#32456#22870#37329#26435#37325
    end
    object qpayforofficeBDEDesigner9: TFloatField
      FieldName = #32500#20462#20154#24037#36153#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#32500#20462#20154#24037#36153#26435#37325
    end
    object qpayforofficeBDEDesigner10: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#24180
      FixedChar = True
      Size = 8
    end
    object qpayforofficeBDEDesigner11: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_payforoffice.'#26376
      FixedChar = True
      Size = 4
    end
  end
end