unit_rubb_mixcard1.pas

此代码为企业原料管理代码

unit Unit_Rubb_MixCard1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables;

type
  TForm_Rubb_MixCard1 = class(TForm)
    Edit_MixCardNum: TEdit;
    Panel1: TPanel;
    Panel2: TPanel;
    Edit_Rubb: TEdit;
    BitBtn1: TBitBtn;
    Qry_exe: TQuery;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit_MixCardNumChange(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Rubb_MixCard1: TForm_Rubb_MixCard1;

implementation

uses Unit_Rubb_MixCard2;

{$R *.DFM}

procedure TForm_Rubb_MixCard1.BitBtn1Click(Sender: TObject);
begin

  if (Edit_MixCardNum.text = '')   then
  begin
    showmessage('请填写所有栏目!');
    exit;
  end; //if

  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from  炼胶配方表 where 配方编号 = :v_MixCardNum ');
    parambyname('v_MixCardNum').asinteger:=strtoint(Edit_MixCardNum.text);
    open;
    if (recordcount = 0) and (edit_rubb.text = '')  then
    begin
      showmessage('请填写胶料名称!');
      exit;
    end;

    if recordcount = 0 then  //新编号
      Form_Rubb_MixCard2.s_Rubb:=edit_rubb.text
    else
      Form_Rubb_MixCard2.s_Rubb:=fieldbyname('制成品名称').asstring;


  end; //with

  if Qry_exe.recordcount > 0 then
  begin
    if messagedlg('此配方编号已经有了!'+#13+#13+'是要查看 或者修改原来的配方吗?',mtinformation,[mbyes,mbno],0) =mrNO then
      exit;
  end; //if

  close;

  Form_Rubb_MixCard2.s_MixCard:=Edit_MixCardNum.text;
  Form_Rubb_MixCard2.Tab_MixCard.open;

  with Form_Rubb_MixCard2.Qry_MixCard do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 炼胶配方表 where 配方编号 = :v_MixCardNum ');
    parambyname('v_MixCardNum').asinteger:=strtoint(Edit_MixCardNum.text);
    open;
  end; //with

  close;
  Form_Rubb_MixCard2.showmodal;
end;                                    
                                                  
procedure TForm_Rubb_MixCard1.FormShow(Sender: TObject);
begin
//查空表
  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 炼胶配方表  ' );
    open;
    if recordcount = 0 then
    begin
      Edit_MixCardNum.text:='1';
      exit;
    end; //if
  end;//with

  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select max(配方编号) as bh from 炼胶配方表  ' );
    open;
     //showmessage(inttostr(h));
    Edit_MixCardNum.text:=inttostr(fieldbyname('bh').asinteger+1);
  end;//with

end;

procedure TForm_Rubb_MixCard1.SpeedButton1Click(Sender: TObject);
var
  n:integer;
begin
  n:=strtoint(Edit_MixCardNum.text);
  if n > 1 then
  begin
    n:=n-1;
    Edit_MixCardNum.text:=inttostr(n);
  end; //if



end;

procedure TForm_Rubb_MixCard1.SpeedButton2Click(Sender: TObject);
var
  n:integer;
begin
  with QRy_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 炼胶配方表 where 配方编号 = :v_mixcardNum ');
    parambyname('v_mixcardNum').asinteger:=strtoint(Edit_MixCardNum.text);
    open;
    if  recordcount > 0 then
    begin
      n:=strtoint(Edit_MixCardNum.text);
      n:=n+1;
      Edit_MixCardNum.text:=inttostr(n);
    end; //if
  end; //with
end;

procedure TForm_Rubb_MixCard1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 //Edit_MixCardNum.text:='';
  Edit_Rubb.text:='';
end;

procedure TForm_Rubb_MixCard1.Edit_MixCardNumChange(Sender: TObject);
begin
  with QRy_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 炼胶配方表 where 配方编号 = :v_mixcardNum ');
    parambyname('v_mixcardNum').asinteger:=strtoint(Edit_MixCardNum.text);
    open;
    if  recordcount > 0 then
    begin
      Edit_Rubb.text:=qry_exe.fieldbyname('制成品名称').asstring;
    end
    else
      edit_rubb.Clear;
  end; //with

end;

procedure TForm_Rubb_MixCard1.BitBtn3Click(Sender: TObject);
begin
  if messagedlg('确要删除所选配方吗？',mtWarning,[mbYes,mbNo],0) = mrNo then
    begin
    exit;
    end;
    with Qry_exe do
    begin
    close;
    sql.Clear;
    sql.Add('delete from 炼胶配方表');
    sql.add('where 配方编号=:b and 制成品名称=:zhi');
    paramByName('b').asinteger:=strtoint(Edit_MixCardNum.text);
    paramByName('zhi').asstring:=Edit_Rubb.text;
    execsql;
    end;

   end;

end.