data_1.dfm

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

object data1: Tdata1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 178
  Top = 134
  Height = 397
  Width = 549
  object database1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=cbxt;Use Procedure for Prepare=1;Auto Translate=True;' +
      'Packet Size=4096;Workstation ID=FYWDN;Use Encryption for Data=Fa' +
      'lse;Tag with column collation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 6
  end
  object ado_tab: TADOQuery
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from username')
    Left = 80
    Top = 6
  end
  object ado_yhgl: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from username')
    Left = 80
    Top = 54
    object ado_yhgluser_id: TStringField
      FieldName = 'user_id'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_name: TStringField
      FieldName = 'user_name'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_job: TStringField
      FieldName = 'user_job'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_power: TStringField
      FieldName = 'user_power'
      FixedChar = True
      Size = 10
    end
    object ado_yhgluser_password: TStringField
      FieldName = 'user_password'
      FixedChar = True
      Size = 10
    end
  end
  object datas_yhgl: TDataSource
    DataSet = ado_yhgl
    Left = 24
    Top = 54
  end
  object ado_active: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from active')
    Left = 88
    Top = 102
    object ado_activeactive_id: TStringField
      DisplayLabel = #27963#21160#21495
      FieldName = 'active_id'
      FixedChar = True
      Size = 5
    end
    object ado_activeactive_name: TStringField
      DisplayLabel = #27963#21160#21517
      FieldName = 'active_name'
      FixedChar = True
      Size = 15
    end
    object ado_activeactive_cost: TFloatField
      DisplayLabel = #27963#21160#25104#26412
      FieldName = 'active_cost'
    end
  end
  object Data_active: TDataSource
    DataSet = ado_active
    Left = 24
    Top = 102
  end
  object ado_resourse: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from resourse')
    Left = 96
    Top = 150
  end
  object data_resourse: TDataSource
    DataSet = ado_resourse
    Left = 24
    Top = 150
  end
  object ado_workshop: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from workshop')
    Left = 104
    Top = 206
    object ado_workshopworkshop_id: TStringField
      FieldName = 'workshop_id'
      FixedChar = True
      Size = 5
    end
    object ado_workshopworkshop_name: TStringField
      FieldName = 'workshop_name'
      FixedChar = True
      Size = 10
    end
  end
  object data_workshop: TDataSource
    DataSet = ado_workshop
    Left = 24
    Top = 206
  end
  object ado_product: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product')
    Left = 72
    Top = 254
    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 data_product: TDataSource
    DataSet = ado_product
    Left = 24
    Top = 254
  end
  object ado_workshop_item: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from workshop_item ')
    Left = 216
    Top = 65534
    object ado_workshop_itemworkshop_item_id: TStringField
      FieldName = 'workshop_item_id'
      FixedChar = True
      Size = 5
    end
    object ado_workshop_itemworkshop_item_name: TStringField
      FieldName = 'workshop_item_name'
      FixedChar = True
      Size = 50
    end
  end
  object data_workshop_item: TDataSource
    DataSet = ado_workshop_item
    Left = 168
    Top = 65534
  end
  object ado_produce_item: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product_item')
    Left = 248
    Top = 46
  end
  object data_produce_item: TDataSource
    DataSet = ado_produce_item
    Left = 168
    Top = 46
  end
  object data_cost_active: TDataSource
    DataSet = ado_active
    Left = 176
    Top = 94
  end
  object ado_cost_active: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cost_active')
    Left = 224
    Top = 94
  end
  object data_material: TDataSource
    DataSet = ado_material
    Left = 176
    Top = 142
  end
  object ado_material: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from material')
    Left = 248
    Top = 142
    object ado_materialmaterial_id: TStringField
      FieldName = 'material_id'
      FixedChar = True
      Size = 10
    end
    object ado_materialmaterial_name: TStringField
      FieldName = 'material_name'
      FixedChar = True
      Size = 15
    end
  end
  object ado_labor: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from labor')
    Left = 240
    Top = 190
    object ado_laborlabor_id: TStringField
      FieldName = 'labor_id'
      FixedChar = True
      Size = 5
    end
    object ado_laborlabor_name: TStringField
      FieldName = 'labor_name'
      FixedChar = True
      Size = 18
    end
  end
  object data_labor: TDataSource
    DataSet = ado_labor
    Left = 184
    Top = 190
  end
  object backconn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=master'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 104
    Top = 312
  end
  object cback: TADOCommand
    Connection = database1
    Prepared = True
    Parameters = <>
    Left = 16
    Top = 304
  end
  object ADOCommand1: TADOCommand
    Connection = database1
    Prepared = True
    Parameters = <>
    Left = 64
    Top = 304
  end
  object data_labor_master: TDataSource
    DataSet = ado_labormaster
    Left = 344
    Top = 65534
  end
  object ado_labormaster: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from labor_master')
    Left = 416
    Top = 65534
    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_workshop_master: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from workshop_master')
    Left = 456
    Top = 46
  end
  object data_workshop_master: TDataSource
    DataSet = ado_workshop_master
    Left = 336
    Top = 46
  end
  object ado_product_master: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product_master')
    Left = 440
    Top = 102
  end
  object data_product_master: TDataSource
    DataSet = ado_product_master
    Left = 328
    Top = 102
  end
  object ado_cost_master: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from cost_master')
    Left = 432
    Top = 158
    object ado_cost_masterworkshop_id: TStringField
      FieldName = 'workshop_id'
      FixedChar = True
      Size = 5
    end
    object ado_cost_masterresourse_id: TStringField
      FieldName = 'resourse_id'
      FixedChar = True
      Size = 5
    end
    object ado_cost_masterseason_num: TIntegerField
      FieldName = 'season_num'
    end
    object ado_cost_masterresourse_cost: TFloatField
      FieldName = 'resourse_cost'
    end
  end
  object data_cost_master: TDataSource
    Left = 344
    Top = 158
  end
  object ado_material_master: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  material_master')
    Left = 256
    Top = 238
    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 data_material_master: TDataSource
    DataSet = ado_material_master
    Left = 192
    Top = 238
  end
  object ado_resourse_distribute: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from resourse_distribute')
    Left = 424
    Top = 214
  end
  object data_resourse_distribute: TDataSource
    Left = 344
    Top = 214
  end
  object ado_overhead_distribute: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from overhead_distribute')
    Left = 224
    Top = 278
    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
  object data_overhead_distribute: TDataSource
    DataSet = ado_overhead_distribute
    Left = 168
    Top = 278
  end
  object ado_product_profit_cost: TADOQuery
    Active = True
    Connection = database1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from product_profit_cost')
    Left = 424
    Top = 262
    object ado_product_profit_costproduct_id: TStringField
      FieldName = 'product_id'
      FixedChar = True
      Size = 5
    end
    object ado_product_profit_costproduct_amount: TIntegerField
      FieldName = 'product_amount'
    end
    object ado_product_profit_costproduct_income: TFloatField
      FieldName = 'product_income'
    end
    object ado_product_profit_costmaterial_cost: TFloatField
      FieldName = 'material_cost'
    end
    object ado_product_profit_costlabor_cost: TFloatField
      FieldName = 'labor_cost'
    end
    object ado_product_profit_costoverhead: TFloatField
      FieldName = 'overhead'
    end
    object ado_product_profit_costtotal_cost: TFloatField
      FieldName = 'total_cost'
    end
    object ado_product_profit_costunit_cost: TFloatField
      FieldName = 'unit_cost'
    end
    object ado_product_profit_costproduct_profit: TFloatField
      FieldName = 'product_profit'
    end
    object ado_product_profit_costunit_profit: TFloatField
      FieldName = 'unit_profit'
    end
  end
  object data1_product_profit_cost: TDataSource
    DataSet = ado_product_profit_cost
    Left = 344
    Top = 270
  end
end