gmxx.pas

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

unit gmxx;

interface

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

type
  TForm12 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation
uses  user;
{$R *.DFM}

procedure TForm12.Button1Click(Sender: TObject);
begin
  if (label4.caption<>'0') and (edit1.text='0') then showmessage('请您付款！')
  else
  if strtoint(edit2.text)<0 then showmessage('这么点钱，想买这么多的东西，行吗？')
  else begin
  form12.close;
  uform.show;
  end;
end;

procedure TForm12.FormCreate(Sender: TObject);
begin
  edit1.text:='0';
  edit2.text:='0';
end;

procedure TForm12.Edit1Change(Sender: TObject);
begin
   if edit1.text='' then edit1.text:='0';
   edit2.text:=inttostr(strtoint(edit1.text)-strtoint(label4.caption));
end;

end.