maen.pas

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

unit maen;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Panel3: TPanel;
    Button7: TButton;
    Panel4: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Priva declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;


implementation

uses Unit4, Unit1, Unit5, cmin, bb,sqlu;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
  form4.Caption:='管理员修改密码';
  form4.show;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
    if radiobutton1.Checked=true then
          begin
            dbgrid1.datasource:=datamodule1.datasource1;
            datamodule1.table2.Active:=false;
            datamodule1.table1.active:=true;
            label2.caption:='商品管理系统－－商品信息';
          end;
      if radiobutton2.Checked=true then
          begin
            dbgrid1.datasource:=datamodule1.datasource2;
            datamodule1.table1.Active:=false;
            datamodule1.table2.active:=true;
            label2.caption:='商品管理系统－－公司信息';
          end;


end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  with radiogroup1  do
    begin
    datamodule1.table1.active:=false;
    datamodule1.table2.Active:=false;
    label2.caption:='';
    end;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then datamodule1.table1.first;
   if radiobutton2.Checked=true then datamodule1.table2.first;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then datamodule1.table1.Prior;
   if radiobutton2.Checked=true then datamodule1.table2.prior;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then datamodule1.table1.next;
   if radiobutton2.Checked=true then datamodule1.table2.next;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then datamodule1.table1.last;
   if radiobutton2.Checked=true then datamodule1.table2.last;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
  if radiobutton1.Checked=true then
     if messagedlg('确实要删除当前记录吗？',mtwarning,[mbok,mbcancel],0)=mrok then
       datamodule1.table1.delete;
  if radiobutton2.Checked=true then
     if messagedlg('确实要删除当前记录吗？',mtwarning,[mbok,mbcancel],0)=mrok then
       datamodule1.table2.delete;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  if radiobutton1.Checked=true then
  begin
   form5.Caption:='插入新的商品记录';
   form5.show;
  end;
  if radiobutton2.Checked=true then
  begin
  form10.Caption:='插入新的公司记录';
  form10.show;
  end;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
 with radiogroup1 do
  begin
  if radiobutton2.Checked=true then
  begin
  datamodule1.Table2.Active:=true;
  dbgrid1.datasource:=datamodule1.datasource2;
  datamodule1.Table1.Active:=false;
  end;
  if radiobutton1.Checked=true then
  begin
   datamodule1.Table1.active:=true;
   dbgrid1.datasource:=datamodule1.datasource1;
   datamodule1.Table2.Active:=false;
  end;
  end;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
   if radiobutton1.Checked=true then
  begin
   form5.Caption:='修改商品记录';
       form5.Edit1.text:=dbgrid1.fields[0].asstring;
       form5.Edit2.text:=dbgrid1.fields[1].asstring;
       form5.Edit3.text:=dbgrid1.fields[5].asstring;
       form5.Edit4.text:=dbgrid1.fields[2].asstring;
       form5.Edit5.text:=dbgrid1.fields[3].asstring;
       form5.Edit6.text:=dbgrid1.fields[4].asstring;
       form5.Edit7.text:=dbgrid1.fields[6].asstring;
       form5.Edit8.text:=dbgrid1.fields[8].asstring;
       form5.show;
  end;
  if radiobutton2.Checked=true then
  begin
  form10.caption:='修改公司记录';
  form10.Edit1.text:=dbgrid1.Fields[0].asstring;
  form10.Edit2.text:=dbgrid1.Fields[1].asstring;
  form10.Edit3.text:=dbgrid1.Fields[2].asstring;
  form10.Edit4.text:=dbgrid1.Fields[3].asstring;
  form10.Edit5.text:=dbgrid1.Fields[4].asstring;
  form10.show;
  end;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
  if radiobutton1.Checked=true then
    bform.quickrep1.Preview;
  if radiobutton2.Checked=true then
    bform.quickrep2.Preview;

end;

procedure TForm2.Button7Click(Sender: TObject);
begin
  sqlform.show;
end;

end.