sqlu.~pas

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

unit sqlu;

interface

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

type
  Tsqlform = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Panel1: TPanel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sqlform: Tsqlform;

implementation

{$R *.DFM}

procedure Tsqlform.BitBtn1Click(Sender: TObject);
begin
  query1.Close;
  query1.SQL.clear;
  try
  query1.sql.Add(memo1.text);
  finally
  query1.Open;
  end;
end;

procedure Tsqlform.BitBtn2Click(Sender: TObject);
begin
   memo1.Text:='';
end;

procedure Tsqlform.Button1Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then
     if 
end;

end.