f_jscp.dfm

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

    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object BitBtn1: TBitBtn
    Left = 536
    Top = 32
    Width = 81
    Height = 33
    Caption = #35745#31639
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
      73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
      0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
      0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
      0333337F777777737F333308888888880333337F333333337F33330888888888
      03333373FFFFFFFF733333700000000073333337777777773333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 536
    Top = 88
    Width = 81
    Height = 33
    Caption = #26597#35810
    TabOrder = 4
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object ado_product: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product')
    Left = 88
    Top = 8
    object ado_productproduct_id: TStringField
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_productproduct_name: TStringField
      FieldName = 'product_name'
      FixedChar = True
      Size = 15
    end
    object ado_productproduct_amount: TIntegerField
      FieldName = 'product_amount'
    end
    object ado_productproduct_price: TFloatField
      FieldName = 'product_price'
    end
  end
  object ado_product_profit_cost: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product_profit_cost')
    Left = 88
    Top = 232
    object ado_product_profit_costproduct_id: TStringField
      DisplayLabel = #20135#21697#21495
      DisplayWidth = 8
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_product_profit_costproduct_amount: TIntegerField
      DisplayLabel = #20135#21697#25968#37327
      DisplayWidth = 16
      FieldName = 'product_amount'
    end
    object ado_product_profit_costproduct_income: TFloatField
      DisplayLabel = #20135#21697#25910#20837
      DisplayWidth = 15
      FieldName = 'product_income'
    end
    object ado_product_profit_costmaterial_cost: TFloatField
      DisplayLabel = #30452#25509#26448#26009
      DisplayWidth = 13
      FieldName = 'material_cost'
    end
    object ado_product_profit_costlabor_cost: TFloatField
      DisplayLabel = #30452#25509#20154#24037
      DisplayWidth = 12
      FieldName = 'labor_cost'
    end
    object ado_product_profit_costoverhead: TFloatField
      DisplayLabel = #21046#36896#36153#29992
      DisplayWidth = 12
      FieldName = 'overhead'
    end
    object ado_product_profit_costtotal_cost: TFloatField
      DisplayLabel = #24635#25104#26412
      DisplayWidth = 12
      FieldName = 'total_cost'
    end
    object ado_product_profit_costunit_cost: TFloatField
      DisplayLabel = #21333#20301#25104#26412
      DisplayWidth = 12
      FieldName = 'unit_cost'
    end
    object ado_product_profit_costproduct_profit: TFloatField
      DisplayLabel = #20135#21697#21033#28070
      DisplayWidth = 13
      FieldName = 'product_profit'
    end
    object ado_product_profit_costunit_profit: TFloatField
      DisplayLabel = #21333#20301#21033#28070
      DisplayWidth = 12
      FieldName = 'unit_profit'
    end
  end
  object data_product_profit_cost: TDataSource
    DataSet = ado_product_profit_cost
    Left = 48
    Top = 232
  end
  object ado_material_master: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  material_master')
    Left = 56
    Top = 8
    object ado_material_masterproduct_id: TStringField
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_material_mastermaterial_id: TStringField
      FieldName = 'material_id'
      FixedChar = True
      Size = 10
    end
    object ado_material_mastermaterial_unit: TFloatField
      FieldName = 'material_unit'
    end
    object ado_material_masterunit_amount: TFloatField
      FieldName = 'unit_amount'
    end
    object ado_material_masterunit_cost: TFloatField
      FieldName = 'unit_cost'
    end
  end
  object ado_labormaster: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from labor_master')
    Left = 432
    Top = 16
    object ado_labormasterproduct_id: TStringField
      DisplayWidth = 10
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_labormasterlabor_id: TStringField
      DisplayWidth = 8
      FieldName = 'labor_id'
      FixedChar = True
      Size = 5
    end
    object ado_labormasterlabor_unit: TStringField
      DisplayWidth = 19
      FieldName = 'labor_unit'
      FixedChar = True
      Size = 5
    end
    object ado_labormasterunit_amount: TFloatField
      DisplayWidth = 25
      FieldName = 'unit_amount'
    end
    object ado_labormasterunit_cost: TFloatField
      DisplayWidth = 12
      FieldName = 'unit_cost'
    end
  end
  object ado_overhead_distribute: TADOQuery
    Active = True
    Connection = data1.database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from overhead_distribute')
    Left = 488
    Top = 8
    object ado_overhead_distributeactive_id: TStringField
      FieldName = 'active_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributecost_active_id: TStringField
      FieldName = 'cost_active_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributerate: TFloatField
      FieldName = 'rate'
    end
    object ado_overhead_distributeproduct_id: TStringField
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_overhead_distributeproduct_distribute_cost: TFloatField
      FieldName = 'product_distribute_cost'
    end
  end
end