f_resourse_distribute.pas

erp 成本管理程序delphi源代码

unit f_resourse_distribute;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Buttons, ToolWin, ComCtrls,
  Grids, DBGrids;

type
  Tw_resourse_distribute = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ado_resourse_distribute: TADOQuery;
    data_resourse_distribute: TDataSource;
    DBGrid1: TDBGrid;
    ado_resourse_distributeresourse_id: TStringField;
    ado_resourse_distributeactive_id: TStringField;
    ado_resourse_distributeworkshop_id: TStringField;
    ado_resourse_distributedistribute_rate: TFloatField;
    ado_resourse_distributedistribute_cost: TFloatField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton3: TSpeedButton;
    Label5: TLabel;
    ado1_cost_master: TADOQuery;
    Edit1: TEdit;
    ado1_cost_masterworkshop_id: TStringField;
    ado1_cost_masterresourse_id: TStringField;
    ado1_cost_masterseason_num: TIntegerField;
    ado1_cost_masterresourse_cost: TFloatField;
    ado1_cost_masterdistribute_rate: TFloatField;
    ado1_cost_masteractive_id: TStringField;
    ado1_cost_masterdistribute_cost: TFloatField;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    BitBtn1: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_resourse_distribute: Tw_resourse_distribute;

implementation

uses f_resourse_id, f_workshop_id, f_active_id, f_main;

{$R *.dfm}

procedure Tw_resourse_distribute.SpeedButton1Click(Sender: TObject);
begin
   application.CreateForm(tw_resourse_id,w_resourse_id);
  if w_resourse_id.ShowModal=mrok then
  dbedit1.Text:=copy(trim(w_resourse_id.ComboBox1 .Text),1,5);
end;

procedure Tw_resourse_distribute.SpeedButton3Click(Sender: TObject);
begin
  Application.CreateForm(Tw_workshop_id, w_workshop_id);
  if w_workshop_id.ShowModal = mrOk then
  dbedit3.Text:=copy(trim(w_workshop_id.combobox1.text),1,5);
end;

procedure Tw_resourse_distribute.btaddClick(Sender: TObject);
begin
try
   ado_resourse_distribute.Append;
  except
     showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;

procedure Tw_resourse_distribute.btokClick(Sender: TObject);
begin
try
    if ado_resourse_distribute.Modified then
        ado_resourse_distribute.Post;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;

procedure Tw_resourse_distribute.btno1Click(Sender: TObject);
begin
try
  ado_resourse_distribute.Cancel;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
  close;
end;

procedure Tw_resourse_distribute.BtdelClick(Sender: TObject);
begin
 try
  if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    ado_resourse_distribute.Delete;
  except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
end;

procedure Tw_resourse_distribute.SpeedButton2Click(Sender: TObject);
begin
  application.CreateForm(tw_active_id,w_active_id);
  if w_active_id.ShowModal=mrok then
  dbedit2.Text:=copy(trim(w_active_id.ComboBox1 .Text),1,5);
end;
procedure Tw_resourse_distribute.FormCreate(Sender: TObject);
var
 sum1:real;
 s:string;
 bookmark:tbookmark;
begin
     w_main.Enabled:=false;
     sum1:=0;
     ado1_cost_master.Close;
     ado1_cost_master.SQL.Clear;
     ado1_cost_master.SQL.Add('select  a.workshop_id,a.resourse_id,a.season_num,a.resourse_cost,b.distribute_rate,b.active_id,b.distribute_cost from  cost_master a ,resourse_distribute b where a.resourse_id=b.resourse_id and a.workshop_id=b.workshop_id');
     ado1_cost_master.Open;
     bookmark:=ado1_cost_master.GetBookmark;
     ado1_cost_master.DisableControls;
     ado1_cost_master.First;
  while not ado1_cost_master.Eof do
   begin
    sum1:=sum1+ado1_cost_master.fieldbyname('resourse_cost').Value;
    ado1_cost_master.Next;
   end;
   ado1_cost_master.GotoBookmark(bookmark);
   ado1_cost_master.FreeBookmark(bookmark);
   ado1_cost_master.EnableControls;
  str(sum1:8:2,s) ;
  edit1.Text:=s;
  end;
procedure Tw_resourse_distribute.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 w_main.Enabled:=true;
end;

procedure Tw_resourse_distribute.BitBtn1Click(Sender: TObject);
begin
try
   if ado_resourse_distribute.Modified   then
      ado_resourse_distributedistribute_cost.Value:=ado_resourse_distributedistribute_rate.Value*(strtofloat(edit1.Text));
   except
      showmessage('产生例外错误，请联系开发人员或者程序供应商');
  end;
  end;
end.