unit3.~pas

该系统为订单系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    DBNavigator1: TDBNavigator;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    DBGrid1: TDBGrid;
    RadioGroup2: TRadioGroup;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    DBGrid3: TDBGrid;
    Edit3: TEdit;
    Button2: TButton;
    DBNavigator3: TDBNavigator;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit6;

{$R *.dfm}



procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;



procedure TForm3.Button1Click(Sender: TObject);
begin
   with  querydatamodule do
 begin
 case radiogroup1.ItemIndex of
 0:with query1 do
   begin
   close;
   if query1.SQL.Count=3 then sql.Delete(2);
   sql.Append('where 产品ID=:tt');
   parambyname('tt').AsString:=edit1.Text;
   prepare;
   open;
   dbgrid1.DataSource:=datasource1;
   end;
  1:with query2 do
    begin
    close;
    if sql.Count=3 then sql.Delete(2);
    sql.Append('where 客户ID=:tt');
    parambyname('tt').AsString:=edit1.Text;
    prepare;
    open;
    dbgrid1.DataSource:=datasource2;
    end;
  2:with query3 do
   begin
   close;
   if sql.Count=3 then sql.Delete(2);
   sql.Append('where 职工ID=:tt');
   parambyname('tt').AsString:=edit1.Text;
   prepare;
   open;
   dbgrid1.DataSource:=datasource3;
   end;
   end;
  end;
end;




 procedure TForm3.Button3Click(Sender: TObject);
begin
with  querydatamodule do
 begin
 case radiogroup2.ItemIndex of
 0:with query1 do
   begin
   close;
   if query1.SQL.Count=3 then sql.Delete(2);
   sql.Append('where 产品名称=:tt');
   parambyname('tt').AsString:=edit2.Text;
   prepare;
   open;
   dbgrid2.DataSource:=datasource1;
   end;
  1:with query2 do
    begin
    close;
    if sql.Count=3 then sql.Delete(2);
    sql.Append('where 姓名=:tt');
    parambyname('tt').AsString:=edit2.Text;
    prepare;
    open;
    dbgrid2.DataSource:=datasource2;
    end;
  2:with query3 do
   begin
   close;
   if sql.Count=3 then sql.Delete(2);
   sql.Append('where 姓名=:tt');
   parambyname('tt').AsString:=edit2.Text;
   prepare;
   open;
   dbgrid2.DataSource:=datasource3;
   end;
   end;
  end;
end;




procedure TForm3.Button2Click(Sender: TObject);
begin
querydatamodule.Query3.Close;
querydatamodule.Query3.SQL.Clear;
querydatamodule.Query3.SQL.Add('select 职工ID,姓名,性别');
querydatamodule.Query3.SQL.Add('from "职工.db" 职工');
querydatamodule.Query3.SQL.Add('inner join "客户.db" 客户');
querydatamodule.Query3.SQL.Add('on (职工.客户ID = 客户.客户ID)');
querydatamodule.Query3.SQL.Add('inner join "产品.db" 产品');
querydatamodule.Query3.SQL.Add('on (职工.产品ID = 产品.产品ID)');
querydatamodule.Query3.SQL.Add('where 职工.姓名=:gg');
querydatamodule.Query3.ParamByName('gg').AsString:=edit3.Text;
querydatamodule.Query3.Prepare;
querydatamodule.Query3.Open;
end;


end.