addfoodsunit.~pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit addfoodsunit;

interface

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

type
  Tfrm_addfoods = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    stock: TLabel;
    id: TEdit;
    price: TEdit;
    num: TEdit;
    b_input: TButton;
    b_close: TButton;
    UpDown1: TUpDown;
    t_article: TADOTable;
    ds_article: TDataSource;
    procedure b_closeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure b_inputClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    function isint(s:string):boolean;
  public
    { Public declarations }
  end;

var
  frm_addfoods:Tfrm_addfoods ;

implementation
 uses datamoduleunit;
{$R *.dfm}
function Tfrm_addfoods.isint(s:string):boolean;
var i:integer;
 begin
 i:=1;
 while i<=length(s) do
  begin
   if (ord(s[i])<48) or (ord(s[i])>57) then
    begin
     result:=FALSE;
     exit;
    end;
   i:=i+1;
   result:=true;
 end;

 end;
procedure Tfrm_addfoods.b_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_addfoods.FormShow(Sender: TObject);
begin
t_article.Open;
frm_addfoods.DBGrid1CellClick(nil);
end;

procedure Tfrm_addfoods.DBGrid1CellClick(Column: TColumn);
begin
stock.Caption:='存        货:'+inttostr(t_article.FieldValues['存货'])+'    ';
id.Text:=inttostr(t_article.FieldValues['商品编号']);
price.Text:=floattostr(t_article.FieldValues['单价']);
end;

procedure Tfrm_addfoods.b_inputClick(Sender: TObject);
var ss:string;
  i:string;
begin
if (num.Text='') or (num.Text='0') then
 begin
  showmessage('请添入要进货的数量');
  activecontrol:=num;
  exit;
 end;
if isint(num.Text)=false then
 begin
  showmessage('请确认所添入的进化数量是否正确');
  activecontrol:=num;
  exit;
 end; 
t_article.Open;
t_article.Edit;
t_article.FieldByName('存货').AsInteger:=t_article.FieldValues['存货']+strtoint(num.Text);
t_article.Post;
ss:=t_article.FieldValues['商品姓名'];
i:=num.Text;
messagedlg('已成功添加商品:'+ss+',数量为'+i+'',mtconfirmation,[mbok],0);
frm_addfoods.DBGrid1CellClick(nil);
num.Text:='0';
end;

procedure Tfrm_addfoods.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
t_article.Close;
end;

end.