data_1.pas

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

unit data_1;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdata1 = class(TDataModule)
    database1: TADOConnection;
    ado_tab: TADOQuery;
    ado_yhgl: TADOQuery;
    datas_yhgl: TDataSource;
    ado_active: TADOQuery;
    Data_active: TDataSource;
    ado_activeactive_id: TStringField;
    ado_activeactive_name: TStringField;
    ado_activeactive_cost: TFloatField;
    ado_resourse: TADOQuery;
    data_resourse: TDataSource;
    ado_workshop: TADOQuery;
    data_workshop: TDataSource;
    ado_workshopworkshop_id: TStringField;
    ado_workshopworkshop_name: TStringField;
    ado_product: TADOQuery;
    data_product: TDataSource;
    ado_productproduct_id: TStringField;
    ado_productproduct_name: TStringField;
    ado_productproduct_amount: TIntegerField;
    ado_productproduct_price: TFloatField;
    ado_workshop_item: TADOQuery;
    data_workshop_item: TDataSource;
    ado_produce_item: TADOQuery;
    data_produce_item: TDataSource;
    ado_workshop_itemworkshop_item_id: TStringField;
    ado_workshop_itemworkshop_item_name: TStringField;
    data_cost_active: TDataSource;
    ado_cost_active: TADOQuery;
    data_material: TDataSource;
    ado_material: TADOQuery;
    ado_labor: TADOQuery;
    data_labor: TDataSource;
    backconn: TADOConnection;
    cback: TADOCommand;
    ADOCommand1: TADOCommand;
    data_labor_master: TDataSource;
    ado_labormaster: TADOQuery;
    ado_labormasterproduct_id: TStringField;
    ado_labormasterlabor_id: TStringField;
    ado_labormasterlabor_unit: TStringField;
    ado_labormasterunit_amount: TFloatField;
    ado_labormasterunit_cost: TFloatField;
    ado_laborlabor_id: TStringField;
    ado_laborlabor_name: TStringField;
    ado_workshop_master: TADOQuery;
    data_workshop_master: TDataSource;
    ado_product_master: TADOQuery;
    data_product_master: TDataSource;
    ado_cost_master: TADOQuery;
    data_cost_master: TDataSource;
    ado_cost_masterworkshop_id: TStringField;
    ado_cost_masterresourse_id: TStringField;
    ado_cost_masterseason_num: TIntegerField;
    ado_cost_masterresourse_cost: TFloatField;
    ado_material_master: TADOQuery;
    data_material_master: TDataSource;
    ado_material_masterproduct_id: TStringField;
    ado_material_mastermaterial_id: TStringField;
    ado_material_mastermaterial_unit: TFloatField;
    ado_material_masterunit_amount: TFloatField;
    ado_material_masterunit_cost: TFloatField;
    ado_materialmaterial_id: TStringField;
    ado_materialmaterial_name: TStringField;
    ado_resourse_distribute: TADOQuery;
    data_resourse_distribute: TDataSource;
    ado_overhead_distribute: TADOQuery;
    data_overhead_distribute: TDataSource;
    ado_product_profit_cost: TADOQuery;
    data1_product_profit_cost: TDataSource;
    ado_product_profit_costproduct_id: TStringField;
    ado_product_profit_costproduct_amount: TIntegerField;
    ado_product_profit_costproduct_income: TFloatField;
    ado_product_profit_costmaterial_cost: TFloatField;
    ado_product_profit_costlabor_cost: TFloatField;
    ado_product_profit_costoverhead: TFloatField;
    ado_product_profit_costtotal_cost: TFloatField;
    ado_product_profit_costunit_cost: TFloatField;
    ado_product_profit_costproduct_profit: TFloatField;
    ado_product_profit_costunit_profit: TFloatField;
    ado_overhead_distributeactive_id: TStringField;
    ado_overhead_distributecost_active_id: TStringField;
    ado_overhead_distributerate: TFloatField;
    ado_overhead_distributeproduct_id: TStringField;
    ado_overhead_distributeproduct_distribute_cost: TFloatField;
    ado_yhgluser_id: TStringField;
    ado_yhgluser_name: TStringField;
    ado_yhgluser_job: TStringField;
    ado_yhgluser_power: TStringField;
    ado_yhgluser_password: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  data1: Tdata1;

implementation

uses f_yhgl;

{$R *.dfm}

procedure Tdata1.DataModuleCreate(Sender: TObject);
begin
 data1.ado_tab.Open;
 data1.ado_yhgl.Open;
 data1.ado_active.Open;
 data1.ado_resourse.Open;
 data1.ado_workshop.Open;
 data1.ado_product.Open;
 data1.ado_workshop_item.Open;
 data1.ado_cost_active.Open;
 data1.ado_material.Open;
 data1.ado_labor.Open;
 data1.ado_material_master.Open;
 data1.ado_overhead_distribute.Open;
 data1.ado_labormaster.Open;
 data1.ado_workshop_master.Open;
 data1.ado_product_master.Open;
 data1.ado_cost_master.Open;
 data1.ado_resourse_distribute.Open;
 data1.ado_product_profit_cost.Open;
end;
end.