f_material_master.pas

ERP成本管理系统DELPHI ERP成本核算系统常常要设计含有如下车间

unit f_material_master;

interface

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

type
  Tw_material_master = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    ado_material_master: TADOQuery;
    data_material_master: TDataSource;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    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;
    BitBtn1: TBitBtn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure ado_material_masterCalcFields(DataSet: TDataSet);
    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_material_master: Tw_material_master;

implementation

uses f_product_id, f_material_id, f_main;

{$R *.dfm}

procedure Tw_material_master.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(Tw_product_id, w_product_id);
  if w_product_id.ShowModal = mrOk then
  DBEdit1.Text:=copy(trim(w_product_id.combobox1.text),1,5);
end;

procedure Tw_material_master.btaddClick(Sender: TObject);
begin
try
  ado_material_master.Append;
  ado_material_master.FieldByName('unit_cost').AsString:=trim(dbedit5.Text);
except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
end;
end;
procedure Tw_material_master.btokClick(Sender: TObject);
begin
try
  ado_material_master.Post;
except
    showmessage('产生例外错误，请联系开发人员或者程序供应商');
end;
end;

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

procedure Tw_material_master.btno1Click(Sender: TObject);
begin
try
  ado_material_master.Cancel;
  except
  showmessage('产生例外错误，请联系开发人员或者程序供应商');
end;
close;
end;
procedure Tw_material_master.ado_material_masterCalcFields(
  DataSet: TDataSet);
begin
ado_material_masterunit_cost.Value:=ado_material_mastermaterial_unit.value*ado_material_masterunit_amount.Value;
end;
procedure Tw_material_master.SpeedButton2Click(Sender: TObject);
begin
 Application.CreateForm(Tw_material_id, w_material_id);
  if w_material_id.ShowModal = mrOk then
  DBEdit2.Text:=copy(trim(w_material_id.combobox1.text),1,5);
end;

procedure Tw_material_master.FormCreate(Sender: TObject);
begin
// edit1.Text:=dbedit5.Text;
w_main.Enabled:=false;
end;

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

procedure Tw_material_master.BitBtn1Click(Sender: TObject);
begin
 dbedit5.Text:=floattostr(ado_material_master.fieldbyname('material_unit').Value*ado_material_master.fieldbyname('unit_amount').Value);
end;
end.