user.~pas

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

unit user;

interface

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

type
  Tuform = class(TForm)
    Panel2: TPanel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    Table1Goodid: TFloatField;
    Table1Name: TStringField;
    Table1Price: TCurrencyField;
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource2: TDataSource;
    Table2: TTable;
    Table2Gid: TFloatField;
    Table2Cid: TFloatField;
    Table2Gname: TStringField;
    Table2Cname: TStringField;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Table1Kind: TStringField;
    Table1Pdata: TDateField;
    Table1Odata: TDateField;
    Table1Sum: TSmallintField;
    Table1Lsum: TSmallintField;
    Table1Sort: TStringField;
    StatusBar1: TStatusBar;
    Table1Bmp: TGraphicField;
    Table1Text: TMemoField;
    Label6: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  uform: Tuform;
implementation

uses mn, buy, gdindex,gmxx;


{$R *.DFM}

procedure Tuform.FormCreate(Sender: TObject);
begin
  edit1.text:='0';
   with StringGrid1  do
     begin
      cells[0,0]:=' 商 品 名 称';
      cells[1,0]:=' 零 售 价 格';
     end;
end;

procedure Tuform.BitBtn1Click(Sender: TObject);
var i:integer;
begin
  i:=1;
  if dbgrid1.fields[7].value<=0 then showmessage('对不起，这种商品已经售完了')
  else begin
   with stringgrid1 do
    begin
     while cells[0,i]<>'' do i:=i+1;
     cells[0,i]:=DBgrid1.Fields[1].asstring;
     cells[1,i]:=dbgrid1.Fields[2].asstring;
     edit1.text:=inttostr(strtoint(cells[1,i])+strtoint(edit1.text));
    end;
    table1.edit;
    dbgrid1.Fields[7].value:=dbgrid1.fields[7].value-1;
    table1.Post;
   end;
end;
procedure Tuform.BitBtn2Click(Sender: TObject);
begin
  form9.show;
  uform.hide;

end;

procedure Tuform.Button1Click(Sender: TObject);
begin
  form12.Label4.Caption:=uform.edit1.text;
  form12.show;
  uform.close;
end;

procedure Tuform.FormClose(Sender: TObject; var Action: TCloseAction);
var
  k:integer;
begin
    with stringgrid1 do
    begin
     begin
     for k:=1 to stringgrid1.rowcount do
     if cells[0,k]<>'' then
      begin
      cells[0,k]:='';
      cells[1,k]:='';
      end;
     end;
     if edit1.text<>'0' then edit1.text:='0';
    end;
end;

procedure Tuform.Button2Click(Sender: TObject);
begin
  if stringgrid1.Cells[1,1]<>'' then showmessage('你已购买了商品,请你结帐!')
  else
  begin
   showmessage('欢迎你下次光临！');
   close;
  end;
end;

procedure TuForm.Timer1Timer(Sender: TObject);
var
  DateTime: TDateTime;
  str : string;
begin
  DateTime := Time;
  str := TimeToStr(DateTime);
  label6.Caption :='现在是：' + DateToStr(Date)+' '+str;
end;
end.