cmin.~pas

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

unit cmin;

interface

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

type
  TForm10 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm10.BitBtn1Click(Sender: TObject);
begin
   if form10.Caption='插入新的公司记录' then
  begin
    if datamodule1.Table2.CanModify then
     begin
       datamodule1.Table2.Append;
       datamodule1.Table2.fields[0].asstring:=form10.Edit1.text;
       datamodule1.Table2.fields[1].asstring:=form10.Edit2.text;
       datamodule1.Table2.fields[2].asstring:=form10.Edit3.text;
       datamodule1.Table2.fields[3].asstring:=form10.Edit4.text;
       datamodule1.Table2.fields[4].asstring:=form10.Edit5.text;
       datamodule1.Table2.post;
     end else  showmessage('当前的数据库不能被破坏！');
  end;
  if form10.caption='修改公司记录' then
  begin
    if datamodule1.Table2.canmodify then
    begin
     datamodule1.Table2.Edit;
       datamodule1.Table2.fields[0].asstring:=form10.Edit1.text;
       datamodule1.Table2.fields[1].asstring:=form10.Edit2.text;
       datamodule1.Table2.fields[2].asstring:=form10.Edit3.text;
       datamodule1.Table2.fields[3].asstring:=form10.Edit4.text;
       datamodule1.Table2.fields[4].asstring:=form10.Edit5.text;
       datamodule1.Table2.post;
    end  else showmessage('数据库不容许被修改！');
    form10.Close;
  end;
end;

procedure TForm10.BitBtn2Click(Sender: TObject);
begin
  datamodule1.Table2.cancel;
  form10.close;
end;

end.