monthdeliver.dfm

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

object frm_monthdeliver: Tfrm_monthdeliver
  Left = 3
  Top = 107
  BorderStyle = bsDialog
  Caption = #12288#26376#20323#37329#21644#22870#37329#21457#25918#12288#12288
  ClientHeight = 522
  ClientWidth = 779
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox2: TGroupBox
    Left = 25
    Top = 13
    Width = 158
    Height = 50
    Caption = #21150#20107#22788#21517#31216
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object cbbsc: TComboBox
      Left = 5
      Top = 23
      Width = 145
      Height = 21
      Color = clInfoBk
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 182
    Top = 13
    Width = 171
    Height = 50
    Caption = #24180#26376
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label12: TLabel
      Left = 92
      Top = 25
      Width = 12
      Height = 12
      AutoSize = False
      Caption = #24180
    end
    object Label13: TLabel
      Left = 155
      Top = 26
      Width = 12
      Height = 12
      AutoSize = False
      Caption = #26376
    end
    object cbmonth: TComboBox
      Left = 108
      Top = 22
      Width = 42
      Height = 21
      Color = clInfoBk
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 0
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
    end
    object cbyear: TComboBox
      Left = 4
      Top = 22
      Width = 85
      Height = 21
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Items.Strings = (
        '1995'
        '1996'
        '1997'
        '1998'
        '1999'
        '2000'
        '2001'
        '2002'
        '2003'
        '2004'
        '2005'
        '2006'
        '2007'
        '2008'
        '2009'
        '2010'
        '')
    end
  end
  object Panel3: TPanel
    Left = 353
    Top = 19
    Width = 355
    Height = 42
    TabOrder = 2
    object btn_crtresult: TButton
      Left = 29
      Top = 6
      Width = 74
      Height = 29
      Caption = #20135#29983#32467#26524
      Font.Charset = DEFAULT_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 = 103
      Top = 6
      Width = 74
      Height = 29
      Caption = #28165#31354
      Font.Charset = DEFAULT_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 = 178
      Top = 6
      Width = 77
      Height = 29
      Caption = #25171#21360#32467#26524
      Font.Charset = DEFAULT_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 = 2
    Top = 70
    Width = 775
    Height = 373
    Caption = #25968#25454#26597#30475#31383#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 10
      Top = 13
      Width = 755
      Height = 296
      Color = clInfoBk
      Ctl3D = False
      DataSource = dsmonthdlv
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #21150#20107#22788#21517#31216
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26376
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22995#21517
          Width = 72
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#21495
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23703#20301
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20323#37329#25110#22870#37329
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22870#21169
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23454#21457
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24212#25187
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32467#20313#23384#27454
          Visible = True
        end>
    end
    object Panel4: TPanel
      Left = 13
      Top = 312
      Width = 750
      Height = 53
      TabOrder = 1
      object Panel9: TPanel
        Left = 3
        Top = 2
        Width = 89
        Height = 26
        TabOrder = 0
      end
      object Panel8: TPanel
        Left = 3
        Top = 28
        Width = 89
        Height = 22
        Caption = #21512#35745
        TabOrder = 1
      end
      object Panel5: TPanel
        Left = 222
        Top = 2
        Width = 130
        Height = 26
        Caption = #22870#21169
        TabOrder = 2
      end
      object Panel6: TPanel
        Left = 482
        Top = 2
        Width = 130
        Height = 26
        Caption = #24212#25187
        TabOrder = 3
      end
      object Panel7: TPanel
        Left = 352
        Top = 2
        Width = 130
        Height = 26
        Caption = #23454#21457
        TabOrder = 4
      end
      object Panel10: TPanel
        Left = 612
        Top = 2
        Width = 130
        Height = 26
        Caption = #32467#20313#23384#27454
        TabOrder = 5
      end
      object Panel1: TPanel
        Left = 92
        Top = 2
        Width = 130
        Height = 26
        Caption = #20323#37329#25110#22870#37329
        TabOrder = 6
      end
      object Edit1: TEdit
        Left = 93
        Top = 29
        Width = 130
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 7
      end
      object Edit2: TEdit
        Left = 222
        Top = 29
        Width = 130
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 8
      end
      object Edit3: TEdit
        Left = 352
        Top = 29
        Width = 130
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 9
      end
      object Edit4: TEdit
        Left = 481
        Top = 29
        Width = 130
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 10
      end
      object Edit5: TEdit
        Left = 611
        Top = 29
        Width = 130
        Height = 19
        Color = clInfoBk
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 11
      end
    end
  end
  object dsmonthdlv: TDataSource
    DataSet = qmonthdlv
    Left = 504
    Top = 185
  end
  object qforuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 441
    Top = 187
  end
  object qsum: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx'
    Constrained = True
    SQL.Strings = (
      
        'select sum('#32463#29702#20323#37329'_'#26412#26399') '#32463#29702#20323#37329'_'#26412#26399',sum('#28014#21160#22870#37329'_'#26412#26399') '#28014#21160#22870#37329'_'#26412#26399',sum('#32500#20462#20154#21592#20323#37329'_'#26412#26399') ' +
        #32500#20462#20154#21592#20323#37329'_'#26412#26399',sum('#19994#21153#21592#20323#37329'_'#26412#26399') '#19994#21153#21592#20323#37329'_'#26412#26399
      'from crttbl_officepay'
      'where'
      #21150#20107#22788#21517#31216'=:bscmc and '#24180'=:year and '#26376'=:month and '#37492#21035'<>1')
    Left = 620
    Top = 184
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bscmc'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'month'
        ParamType = ptUnknown
      end>
  end
  object qmonthdlv: TQuery
    CachedUpdates = True
    AfterOpen = qmonthdlvAfterOpen
    OnCalcFields = qmonthdlvCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    SQL.Strings = (
      
        'select distinct b.'#22995#21517',b.'#24037#21495',b.'#23703#20301',b.'#21150#20107#22788#21517#31216',c.'#28014#21160#26435#37325',c.'#22870#21169',c.'#24212#25187',c.'#24180',c.'#26376',' +
        'd.'#19994#21153#21592#20154#25968',d.'#32500#20462#20154#21592#25968
      'from pub_z_stuff b,pub_z_payratio c,pub_z_office d '
      'where '
      'b.'#21150#20107#22788#21517#31216'=:bscmc'
      'and b.'#24037#21495'=c.'#24037#21495
      'and c.'#24180'=:year and c.'#26376'=:month'
      'and d.'#21150#20107#22788#21517#31216'=b.'#21150#20107#22788#21517#31216)
    Left = 563
    Top = 186
    ParamData = <
      item
        DataType = ftString
        Name = 'bscmc'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'month'
        ParamType = ptUnknown
      end>
    object qmonthdlvBDEDesigner: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
      FixedChar = True
    end
    object qmonthdlvBDEDesigner2: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_stuff.'#24037#21495
      FixedChar = True
    end
    object qmonthdlvBDEDesigner3: TStringField
      FieldName = #23703#20301
      Origin = 'ZXJX_JXW.pub_z_stuff.'#23703#20301
      FixedChar = True
    end
    object qmonthdlvBDEDesigner4: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_stuff.'#21150#20107#22788#21517#31216
      FixedChar = True
    end
    object qmonthdlvBDEDesigner5: TFloatField
      FieldName = #28014#21160#26435#37325
      Origin = 'ZXJX_JXW.pub_z_payratio.'#28014#21160#26435#37325
    end
    object qmonthdlvBDEDesigner6: TCurrencyField
      FieldName = #22870#21169
      Origin = 'ZXJX_JXW.pub_z_payratio.'#22870#21169
    end
    object qmonthdlvBDEDesigner7: TCurrencyField
      FieldName = #24212#25187
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24212#25187
    end
    object qmonthdlvBDEDesigner8: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_payratio.'#24180
      FixedChar = True
      Size = 8
    end
    object qmonthdlvBDEDesigner9: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_payratio.'#26376
      FixedChar = True
      Size = 4
    end
    object qmonthdlvBDEDesigner10: TIntegerField
      FieldName = #19994#21153#21592#20154#25968
      Origin = 'ZXJX_JXW.pub_z_office.'#19994#21153#21592#20154#25968
    end
    object qmonthdlvBDEDesigner11: TIntegerField
      FieldName = #32500#20462#20154#21592#25968
      Origin = 'ZXJX_JXW.pub_z_office.'#32500#20462#20154#21592#25968
    end
    object qmonthdlvField: TFloatField
      FieldKind = fkCalculated
      FieldName = #20323#37329#25110#22870#37329
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmonthdlvField2: TFloatField
      FieldKind = fkCalculated
      FieldName = #23454#21457
      DisplayFormat = '#.##'
      Calculated = True
    end
    object qmonthdlvField3: TFloatField
      FieldKind = fkCalculated
      FieldName = #32467#20313#23384#27454
      DisplayFormat = '#.##'
      Calculated = True
    end
  end
end