unit5.~pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit6: TEdit;
    Edit4: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
   datamodule1.Table1.cancel;
   form5.close;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
 if form5.Caption='插入新的商品记录' then
  begin
    if datamodule1.Table1.CanModify then
     begin
       datamodule1.Table1.Append;
       datamodule1.Table1.fields[0].asstring:=form5.Edit1.text;
       datamodule1.Table1.fields[1].asstring:=form5.Edit2.text;
       datamodule1.Table1.fields[5].asstring:=form5.Edit3.text;
       datamodule1.Table1.fields[2].asstring:=form5.Edit4.text;
       datamodule1.Table1.fields[3].asstring:=form5.Edit5.text;
       datamodule1.Table1.fields[4].asstring:=form5.Edit6.text;
       datamodule1.Table1.fields[6].asstring:=form5.Edit7.text;
       datamodule1.Table1.fields[8].asstring:=form5.Edit8.text;
       datamodule1.Table1.fields[7].asstring:=form5.Edit7.text;
       datamodule1.Table1.post;
     end else  showmessage('当前的数据库不能被破坏！');
     if datamodule1.Table2.CanModify then
     begin
       datamodule1.Table2.Append;
       datamodule1.Table2.fields[0].asstring:=form5.Edit10.text;
       datamodule1.Table2.fields[1].asstring:=form5.Edit9.text;
       datamodule1.Table2.fields[2].asstring:=form5.Edit11.text;
       datamodule1.Table2.fields[3].asstring:=form5.Edit12.text;
       datamodule1.Table2.fields[4].asstring:=form5.Edit13.text;
       datamodule1.Table2.post;
     end else  showmessage('当前的数据库不能被破坏！');
  end;
  if form5.caption='修改商品记录' then
  begin
    if datamodule1.Table1.canmodify then
    begin
     datamodule1.Table1.Edit;
       datamodule1.Table1.fields[0].asstring:=form5.Edit1.text;
       datamodule1.Table1.fields[1].asstring:=form5.Edit2.text;
       datamodule1.Table1.fields[5].asstring:=form5.Edit3.text;
       datamodule1.Table1.fields[2].asstring:=form5.Edit4.text;
       datamodule1.Table1.fields[3].asstring:=form5.Edit5.text;
       datamodule1.Table1.fields[4].asstring:=form5.Edit6.text;
       datamodule1.Table1.fields[6].asstring:=form5.Edit7.text;
       datamodule1.Table1.fields[8].asstring:=form5.Edit8.text;
       datamodule1.Table1.fields[7].asstring:=form5.Edit7.text;
       datamodule1.Table1.Post;
    end  else showmessage('数据库不容许被修改！');
    if datamodule1.Table2.canmodify then
    begin
     datamodule1.Table2.Edit;
       datamodule1.Table2.fields[0].asstring:=form5.Edit10.text;
       datamodule1.Table2.fields[1].asstring:=form5.Edit9.text;
       datamodule1.Table2.fields[2].asstring:=form5.Edit11.text;
       datamodule1.Table2.fields[3].asstring:=form5.Edit12.text;
       datamodule1.Table2.fields[4].asstring:=form5.Edit13.text;
       datamodule1.Table2.post;
    end  else showmessage('数据库不容许被修改！');
    form5.Close;
  end;  
end;

end.