deletegoods.pas

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

unit deleteGoods;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,IdGlobal;

type
  TfrmDeleteGoods = class(TForm)
    GroupBox1: TGroupBox;
    Label12: TLabel;
    goodsId: TEdit;
    Button3: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    goodsName: TEdit;
    goodsType: TEdit;
    note: TEdit;
    stock: TEdit;
    Button1: TButton;
    Button2: TButton;
    units: TEdit;
    price: TEdit;
    birthplace: TEdit;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function isInteger(s:string):boolean;
  public
    { Public declarations }
  end;

var
  frmDeleteGoods: TfrmDeleteGoods;

implementation
 uses dataModule;
{$R *.dfm}

procedure TfrmDeleteGoods.FormCreate(Sender: TObject);
begin
   {没验证员工编号前不可修改}
   button1.Enabled:=false;
end;

procedure TfrmDeleteGoods.Button3Click(Sender: TObject);
var
   flag:boolean;
   i:integer;
begin
   {验证商品编号的合法性}
   if isInteger(goodsId.Text)=false then
   begin
      messageDlg('输入编号不合法',mtWarning,[mbOk],0);
      exit;
   end;
   {验证商品编号的存在性}
   flag:=false;
   with dm.tblgoods do
   begin
      open;
      first;
      while not eof do
      begin
         if fieldByName('商品编号').AsString=goodsId.Text then
         begin
            flag:=true;
            break;
         end;
         next;
      end;
      if flag=false then//商品不存在
      begin
         messageDlg('输入编号不存在',mtWarning,[mbOk],0);
         button1.Enabled:=false;
         exit;
      end;
   end;
   button1.Enabled:=true;
   {显示此商品的信息}
   with dm.tblgoods do
   begin
      goodsName.Text:=fieldByName('商品名称').asString;
      goodsType.Text:=fieldByName('商品类型').asString;
      price.Text:=fieldByName('单价').AsString;
      units.Text:=fieldByName('单位').asString;
      birthplace.Text:=fieldByName('产地').asString;
      stock.Text:=fieldByName('存货').AsString;
      note.Text:=fieldByName('用途').AsString;
   end;
end;
function TfrmDeleteGoods.isInteger(s: string): boolean;
var
   i:integer;
begin
   i:=1;
   if length(s)=0 then
   begin
      result:=false;
      exit;
   end;
   while i<=length(s) do
   begin
      if (isNumeric(s[i])=false) then
      begin
         result:=false;
         exit;
      end;
      i:=i+1;
   end;
   result:=true;
end;

procedure TfrmDeleteGoods.Button1Click(Sender: TObject);
var
   i:integer;
begin
   i:=messageDlg('确定要删除商品记录?',mtWarning,[mbYes,mbNo],0);
   if i=6 then
   begin
      {删除这一条记录}
      dm.tblgoods.Delete;
      {清屏并且删除按钮不可用}
      goodsId.Text:='';
      goodsName.Text:='';
      goodsType.Text:='';
      units.Text:='';
      price.Text:='';
      birthplace.text:='';
      stock.Text:='';
      note.Text:='';
      activeControl:=goodsId;

   end;
end;

end.