unit_rubb_outcard.~pas

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

unit Unit_Rubb_OutCard;

interface

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

type
  TForm_Rubb_OutCard = class(TForm)
    Panel1: TPanel;
    Panel5: TPanel;
    Panel9: TPanel;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit_Wt2: TDBEdit;
    DBEdit_Rubb: TDBEdit;
    DBEdit_Wt3: TDBEdit;
    DBEdit8: TDBEdit;
    Panel12: TPanel;
    DBEdit_Wt1: TDBEdit;
    Panel13: TPanel;
    DBEdit10: TDBEdit;
    DBEdit_Sum: TDBEdit;
    DS_Show: TDataSource;
    Qry_OutCard: TQuery;
    DS_OutCard: TDataSource;
    Tab_OutCard: TTable;
    Qry_exe: TQuery;
    DBEdit_Stock: TDBEdit;
    BitBtn3: TBitBtn;
    DBEdit_LastFlag: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit_RubbChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Rubb_OutCard: TForm_Rubb_OutCard;

implementation

{$R *.DFM}

procedure TForm_Rubb_OutCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Tab_Outcard.Cancel;
end;

procedure TForm_Rubb_OutCard.BitBtn1Click(Sender: TObject);
begin
  DBEdit_Sum.text:=floattostr(strtofloat(DBEdit_Wt1.text)+strtofloat(DBEdit_Wt2.text)+strtofloat(DBEdit_Wt3.text));

//找到上次最后一笔记录
  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('Select * from 炼胶台帐 where  胶料名称= :v_Rubb ');
    sql.Add('order by 日期 ');
    parambyname('v_Rubb').asstring:=DBEdit_Rubb.text;
    open;
    last;
    DBEdit_Stock.text:=floattostr(fieldbyname('结存').asfloat - strtofloat(DBEdit_Sum.text));
    if strtofloat(DBEdit_Stock.text) < 0 then
    begin
      showmessage('该胶料不够,请重新填写领料数量!');
      exit;
    end; //if
  end;//with

  Form_Rubb_OutCard.Tab_OutCard.post;

//刷新表格
  with Qry_Outcard do
  begin
    close;
    sql.Clear;
    sql.Add('Select * from 炼胶台帐 where  胶料名称= :v_Rubb ');
    sql.Add('order by 标识号 ');
    parambyname('v_Rubb').asstring:=DBEdit_Rubb.text;
    open;
    last;
  end;//with

//为下一次填写做准备
  Form_Rubb_OutCard.Tab_OutCard.append;

end;

procedure TForm_Rubb_OutCard.DBEdit1Exit(Sender: TObject);
begin
  TEdit(Sender).color:=clwindow;
end;

procedure TForm_Rubb_OutCard.DBEdit1Enter(Sender: TObject);
begin
  TEdit(Sender).color:=claqua;
end;

procedure TForm_Rubb_OutCard.DBEdit_RubbChange(Sender: TObject);
begin
  with Qry_Exe  do
  begin
    close;
    sql.clear;
    sql.add('select * from 原材料字典 where 简称 = :v_index ');
    parambyname('v_index').asstring:=DBEdit_Rubb.text;
    open;
    if recordcount = 0 then exit;
    DBEdit_Rubb.text:= fieldbyname('材料名称').asstring;
  end;//with
end;

procedure TForm_Rubb_OutCard.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if
end;

end.