f_zcfy.dfm

使用Delphi开发的成本管理系统

object w_zcfy: Tw_zcfy
  Left = 47
  Top = 161
  BorderStyle = bsDialog
  Caption = #21046#36896#36153#29992#20998#37197#20449#24687
  ClientHeight = 395
  ClientWidth = 656
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  PixelsPerInch = 94
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 657
    Height = 193
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 240
      Top = 16
      Width = 23
      Height = 25
      Glyph.Data = {
        F6030000424DF603000000000000360000002800000013000000100000000100
        180000000000C0030000C40E0000C40E00000000000000000000404040404040
        4040404040404040400000000000000000000000000000000000000000000000
        00404040404040404040404040404040404040000000C8D0D480808080808080
        80800000000000FF0000FF0000FF0000FF0000FF0000FF0000FF000000000000
        808080808080808080808080404040000000C8D0D4FFFFFFC8D0D40000000000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000000000080000000C8
        D0D4C8D0D4808080404040000000C8D0D4FFFFFF000000000000000080000080
        000080000080000080000080000080000080000000000080000080000000C8D0
        D4808080404040000000C8D0D4FFFFFF00000000000000000000000000000000
        0000000000000000000000000000000000000000000080000080000000808080
        404040000000C8D0D4FFFFFFC8D0D40000007F7F7F000000FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF000000FFFFFF00000000008000008000000040404000
        0000C8D0D4FFFFFFC8D0D4C8D0D4000000000000FFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFF000000FFFFFFFFFFFF000000000080000000404040000000C8D0
        D4FFFFFFC8D0D4C8D0D4C8D0D4000000FFFFFFFFFFFF7F7F7F00000000000000
        0000000000BFBFBFBFBFBFFFFFFF000000000000404040000000C8D0D4FFFFFF
        C8D0D4C8D0D4C8D0D4C8D0D4000000000000000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFFFFFFF000000000000404040000000C8D0D4FFFFFFC8D0D4C8
        D0D4C8D0D4C8D0D4C8D0D4000000000000000000000000000000000000000000
        000000FFFFFF000000808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0
        D4C8D0D4C8D0D4000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF
        FFFF000000808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4
        C8D0D4000000FFFFFF000000000000000000FFFFFFFFFFFF0000000000000000
        00808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D400
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C8D0D4C8D0D4808080
        404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000FFFF
        FFFFFFFF7F7F7F000000000000000000000000C8D0D4C8D0D480808040404000
        0000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
        000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040000000C8D0
        D4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF404040000000}
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 536
      Top = 24
      Width = 23
      Height = 22
      Glyph.Data = {
        F6030000424DF603000000000000360000002800000013000000100000000100
        180000000000C0030000C40E0000C40E00000000000000000000404040404040
        4040404040404040400000000000000000000000000000000000000000000000
        00404040404040404040404040404040404040000000C8D0D480808080808080
        80800000000000FF0000FF0000FF0000FF0000FF0000FF0000FF000000000000
        808080808080808080808080404040000000C8D0D4FFFFFFC8D0D40000000000
        FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000000000080000000C8
        D0D4C8D0D4808080404040000000C8D0D4FFFFFF000000000000000080000080
        000080000080000080000080000080000080000000000080000080000000C8D0
        D4808080404040000000C8D0D4FFFFFF00000000000000000000000000000000
        0000000000000000000000000000000000000000000080000080000000808080
        404040000000C8D0D4FFFFFFC8D0D40000007F7F7F000000FFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF000000FFFFFF00000000008000008000000040404000
        0000C8D0D4FFFFFFC8D0D4C8D0D4000000000000FFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFF000000FFFFFFFFFFFF000000000080000000404040000000C8D0
        D4FFFFFFC8D0D4C8D0D4C8D0D4000000FFFFFFFFFFFF7F7F7F00000000000000
        0000000000BFBFBFBFBFBFFFFFFF000000000000404040000000C8D0D4FFFFFF
        C8D0D4C8D0D4C8D0D4C8D0D4000000000000000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFFFFFFF000000000000404040000000C8D0D4FFFFFFC8D0D4C8
        D0D4C8D0D4C8D0D4C8D0D4000000000000000000000000000000000000000000
        000000FFFFFF000000808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0
        D4C8D0D4C8D0D4000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF
        FFFF000000808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4
        C8D0D4000000FFFFFF000000000000000000FFFFFFFFFFFF0000000000000000
        00808080404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D400
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C8D0D4C8D0D4808080
        404040000000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000FFFF
        FFFFFFFF7F7F7F000000000000000000000000C8D0D4C8D0D480808040404000
        0000C8D0D4FFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
        000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040000000C8D0
        D4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF404040000000}
      OnClick = SpeedButton2Click
    end
    object Label2: TLabel
      Left = 280
      Top = 24
      Width = 78
      Height = 13
      Caption = #25104#26412' '#21160#22240#21495'     '
    end
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 54
      Height = 13
      Caption = #27963#21160#21495'      '
    end
    object Label3: TLabel
      Left = 288
      Top = 56
      Width = 57
      Height = 13
      Caption = #36153#29575'           '
    end
    object Label4: TLabel
      Left = 16
      Top = 80
      Width = 33
      Height = 13
      Caption = #24080#31735'   '
    end
    object Label6: TLabel
      Left = 288
      Top = 88
      Width = 42
      Height = 13
      Caption = #32972#21253'      '
    end
    object Label7: TLabel
      Left = 16
      Top = 120
      Width = 57
      Height = 13
      Caption = #30561#34955'           '
    end
    object Label8: TLabel
      Left = 288
      Top = 120
      Width = 39
      Height = 13
      Caption = #30561#22443'     '
    end
    object Label9: TLabel
      Left = 24
      Top = 56
      Width = 135
      Height = 13
      Caption = #20135#21697#20998#25674#21040#30340#25104#26412'  '#65306'       '
    end
    object Edit1: TEdit
      Left = 104
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 384
      Top = 24
      Width = 137
      Height = 21
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 560
      Top = 104
      Width = 81
      Height = 33
      Caption = #20998#37197#25104#26412
      TabOrder = 2
      OnClick = BitBtn1Click
    end
    object DBEdit1: TDBEdit
      Left = 8
      Top = 160
      Width = 105
      Height = 21
      DataField = 'sum'
      DataSource = DataSource1
      TabOrder = 3
      Visible = False
    end
    object DBEdit2: TDBEdit
      Left = 576
      Top = 160
      Width = 65
      Height = 21
      DataField = 'sum'
      DataSource = DataSource2
      TabOrder = 4
      Visible = False
    end
    object Edit3: TEdit
      Left = 384
      Top = 56
      Width = 137
      Height = 21
      TabOrder = 5
    end
    object Button1: TButton
      Left = 560
      Top = 48
      Width = 81
      Height = 33
      Caption = #35745#31639#36153#29992' '
      TabOrder = 6
      OnClick = Button1Click
    end
    object DBEdit3: TDBEdit
      Left = 248
      Top = 160
      Width = 97
      Height = 21
      DataField = 'sum'
      DataSource = DataSource3
      TabOrder = 7
      Visible = False
    end
    object DBEdit4: TDBEdit
      Left = 136
      Top = 160
      Width = 89
      Height = 21
      DataField = 'ss'
      DataSource = DataSource4
      TabOrder = 8
      Visible = False
    end
    object Edit4: TEdit
      Left = 88
      Top = 80
      Width = 137
      Height = 21
      TabOrder = 9
    end
    object Edit5: TEdit
      Left = 384
      Top = 88
      Width = 137
      Height = 21
      TabOrder = 10
    end
    object Edit6: TEdit
      Left = 88
      Top = 120
      Width = 137
      Height = 21
      TabOrder = 11
    end
    object Edit7: TEdit
      Left = 384
      Top = 120
      Width = 137
      Height = 21
      TabOrder = 12
    end
    object DBEdit6: TDBEdit
      Left = 472
      Top = 164
      Width = 81
      Height = 21
      DataField = 's'
      DataSource = DataSource6
      TabOrder = 13
      Visible = False
    end
    object DBEdit5: TDBEdit
      Left = 368
      Top = 160
      Width = 89
      Height = 21
      DataField = 'sum'
      DataSource = DataSource5
      TabOrder = 14
      Visible = False
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 200
    Width = 657
    Height = 185
    DataSource = data_overhead_distribute
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ado_overhead_distribute: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from overhead_distribute')
    Left = 136
    Top = 16
    object ado_overhead_distributeactive_id: TStringField
      DisplayLabel = #27963#21160#21495
      DisplayWidth = 11
      FieldName = 'active_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributecost_active_id: TStringField
      DisplayLabel = #25104#26412#21160#22240#21495
      DisplayWidth = 17
      FieldName = 'cost_active_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributerate: TFloatField
      DisplayLabel = #36153#29575
      DisplayWidth = 15
      FieldName = 'rate'
    end
    object ado_overhead_distributeproduct_id: TStringField
      DisplayLabel = #20135#21697#21495
      DisplayWidth = 18
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributeproduct_distribute_cost: TFloatField
      DisplayLabel = #20135#21697#20998#25674#25104#26412
      DisplayWidth = 27
      FieldName = 'product_distribute_cost'
    end
  end
  object data_overhead_distribute: TDataSource
    DataSet = ado_overhead_distribute
    Left = 72
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(product_liang) as sum'
      'from cost_active_master ,overhead_distribute'
      
        'where cost_active_master.cost_active_id=overhead_distribute.cost' +
        '_active_id')
    Left = 592
    Top = 160
    object ADOQuery2sum: TFloatField
      FieldName = 'sum'
      ReadOnly = True
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 600
    Top = 160
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(product_liang) as sum '
      'from cost_active_master ,overhead_distribute'
      
        'where cost_active_master.cost_active_id=overhead_distribute.cost' +
        '_active_id '
      
        'and cost_active_master.product_id=overhead_distribute.product_id' +
        ' and cost_active_master.product_id='#39'101'#39)
    Left = 280
    Top = 152
    object ADOQuery3sum: TFloatField
      FieldName = 'sum'
      ReadOnly = True
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 256
    Top = 152
  end
  object ADOQuery4: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(product_liang) as ss '
      'from cost_active_master ,overhead_distribute'
      
        'where cost_active_master.cost_active_id=overhead_distribute.cost' +
        '_active_id '
      
        'and cost_active_master.product_id=overhead_distribute.product_id' +
        ' and cost_active_master.product_id='#39'102'#39
      '')
    Left = 176
    Top = 152
    object ADOQuery4ss: TFloatField
      FieldName = 'ss'
      ReadOnly = True
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 152
    Top = 152
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 384
    Top = 160
  end
  object ADOQuery5: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(product_liang) as sum '
      'from cost_active_master ,overhead_distribute'
      
        'where cost_active_master.cost_active_id=overhead_distribute.cost' +
        '_active_id '
      
        'and cost_active_master.product_id=overhead_distribute.product_id' +
        ' and cost_active_master.product_id='#39'103'#39
      '')
    Left = 384
    Top = 160
    object ADOQuery5sum: TFloatField
      FieldName = 'sum'
      ReadOnly = True
    end
  end
  object ADOQuery6: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  sum(product_liang)as s'
      'from cost_active_master ,overhead_distribute'
      
        'where cost_active_master.cost_active_id=overhead_distribute.cost' +
        '_active_id '
      
        'and cost_active_master.product_id=overhead_distribute.product_id' +
        ' and cost_active_master.product_id='#39'104'#39)
    Left = 504
    Top = 160
    object ADOQuery6s: TFloatField
      FieldName = 's'
      ReadOnly = True
    end
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 512
    Top = 168
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(distribute_cost) as sum'
      'from resourse_distribute ,overhead_distribute'
      
        'where overhead_distribute.active_id=overhead_distribute.active_i' +
        'd')
    Left = 48
    Top = 160
    object ADOQuery1sum: TFloatField
      FieldName = 'sum'
      ReadOnly = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 160
  end
end