f_cbhs.pas

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

unit f_cbhs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB, Mask, DBCtrls, ExtCtrls;

type
  TForm3 = class(TForm)
    ado_active: TADOQuery;
    ado_activeactive_id: TStringField;
    ado_activeactive_name: TStringField;
    ado_activeactive_cost: TFloatField;
    ADOQuery1: TADOQuery;
    ADOQuery1sum: TFloatField;
    ADOQuery2: TADOQuery;
    ADOQuery2sum: TFloatField;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery3sum: TFloatField;
    DataSource4: TDataSource;
    ADOQuery4: TADOQuery;
    Data_active: TDataSource;
    ADOQuery4sum: TFloatField;
    DataSource5: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    ADOQuery5: TADOQuery;
    ADOQuery5sum: TFloatField;
    DBEdit5: TDBEdit;
    ADOQuery6: TADOQuery;
    DataSource6: TDataSource;
    ADOQuery7: TADOQuery;
    DataSource7: TDataSource;
    ADOQuery7sum: TFloatField;
    DBEdit6: TDBEdit;
    ADOQuery8: TADOQuery;
    DataSource8: TDataSource;
    ADOQuery8sum: TFloatField;
    DBEdit7: TDBEdit;
    ADOQuery9: TADOQuery;
    DataSource9: TDataSource;
    ADOQuery9sum: TFloatField;
    DBEdit8: TDBEdit;
    ADOQuery10: TADOQuery;
    DataSource10: TDataSource;
    ADOQuery11: TADOQuery;
    DataSource11: TDataSource;
    DataSource12: TDataSource;
    ADOQuery12: TADOQuery;
    ADOQuery12sum: TFloatField;
    DBEdit9: TDBEdit;
    ADOQuery10sum: TFloatField;
    DBEdit10: TDBEdit;
    ADOQuery11sum: TFloatField;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    Shape1: TShape;
    Label1: TLabel;
    Shape2: TShape;
    Label2: TLabel;
    Shape3: TShape;
    Label3: TLabel;
    Shape4: TShape;
    Label4: TLabel;
    Shape5: TShape;
    Label5: TLabel;
    StaticText1: TStaticText;
    Shape6: TShape;
    Label6: TLabel;
    ADOStoredProc1: TADOStoredProc;
    ADOStoredProc1sum: TFloatField;
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses f_zcfy, f_resourse, f_resourse_distribute, f_jscp, f_main;

{$R *.dfm}

procedure TForm3.Label1Click(Sender: TObject);
begin
w_resourse_distribute:=Tw_resourse_distribute.create(self);
w_resourse_distribute.show;
end;

procedure TForm3.Label2Click(Sender: TObject);
begin
ado_active.Close;
ado_active.SQL.Clear;

ado_active.SQL.Add('exec pro_active 501');
ado_active.SQL.Add('exec pro_active 502');
ado_active.SQL.Add('exec pro_active 503');
ado_active.SQL.Add('exec pro_active 504');
ado_active.SQL.Add('exec pro_active 505');
ado_active.SQL.Add('exec pro_active 506');
ado_active.SQL.Add('exec pro_active 507');
ado_active.SQL.Add('exec pro_active 508');
ado_active.SQL.Add('exec pro_active 509');
ado_active.SQL.Add('exec pro_active 510');
ado_active.SQL.Add('exec pro_active 511');
ado_active.SQL.Add('exec pro_active 512');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit1.Text)
       +char(39)+'where active_id=501');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit2.Text)
       +char(39)+'where active_id=502');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit3.Text)
       +char(39)+'where active_id=503');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit4.Text)
       +char(39)+'where active_id=504');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit5.Text)
       +char(39)+'where active_id=505');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit6.Text)
       +char(39)+'where active_id=506');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit7.Text)
       +char(39)+'where active_id=507');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit8.Text)
       +char(39)+'where active_id=508');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit9.Text)
       +char(39)+'where active_id=509');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit10.Text)
       +char(39)+'where active_id=510');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit11.Text)
       +char(39)+'where active_id=511');
ado_active.SQL.Add('update active set active_cost='+char(39)+trim(dbedit12.Text)
       +char(39)+'where active_id=512');

ado_active.ExecSQL;
application.MessageBox('汇总成功！！','提示',mb_ok+mb_IconInformation);
end;
procedure TForm3.Label3Click(Sender: TObject);
begin
application.MessageBox('成本动因计算成功！！','提示',mb_ok+mb_IconInformation);
end;

procedure TForm3.Label4Click(Sender: TObject);
begin
w_zcfy:=tw_zcfy.create(self);
w_zcfy.show;
end;

procedure TForm3.Label5Click(Sender: TObject);
begin
w_jscp:=tw_jscp.create(self);
w_jscp.show;
end;

procedure TForm3.Label6Click(Sender: TObject);
begin
close;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
w_main.Enabled:=false;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
w_main.Enabled:=true;
end;

end.