unit16.~pas

商品销售管理系统

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB, ComCtrls;

type
  TForm16 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    tapsheet5: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

uses Unit10;

{$R *.dfm}

procedure TForm16.Button1Click(Sender: TObject);
begin


begin
 { close;
  sql.clear;

  sql.add('select * from contract');   }

//  sql.add('where contractid=: contractid');
//  parameters.parambyname('contractid').VALUE := edt_contractid.text;
  adotable1.open;
end;
end;

procedure TForm16.Button2Click(Sender: TObject);
begin
adotable2.Close;
form16.Close;
form10.show;
end;

procedure TForm16.Button3Click(Sender: TObject);
begin

begin
  {close;
  sql.clear;

  sql.add('select * from　供应者'); }

//  sql.add('where contractid=: contractid');
//  parameters.parambyname('contractid').VALUE := edt_contractid.text;
  adotable2.open;
end;
end;

procedure TForm16.Button4Click(Sender: TObject);
begin
adotable2.Close;
form16.Close;
form10.Show;
end;

procedure TForm16.Button5Click(Sender: TObject);
begin

begin
 { close;
  sql.clear;

  sql.add('select * from　合同');

//  sql.add('where contractid=: contractid');
//  parameters.parambyname('contractid').VALUE := edt_contractid.text;
  adotable3.open;}
end;
end;

procedure TForm16.Button6Click(Sender: TObject);
begin
form16.Close;
form10.Show;
end;

procedure TForm16.Button7Click(Sender: TObject);
begin

begin
 { close;
  sql.clear;

  sql.add('select * from　商品');

//  sql.add('where contractid=: contractid');
//  parameters.parambyname('contractid').VALUE := edt_contractid.text;
  adotable4.open;}
end;
end;

procedure TForm16.Button10Click(Sender: TObject);
begin
form16.Close;
form10.show;
end;

procedure TForm16.Button8Click(Sender: TObject);
begin
form16.Close;
form10.show;
end;

procedure TForm16.Button9Click(Sender: TObject);
begin

begin
 { close;
  sql.clear;

  sql.add('select * from　仓库');  }

//  sql.add('where contractid=: contractid');
//  parameters.parambyname('contractid').VALUE := edt_contractid.text;

end;
end;

end.