c_sellquery.pas

《delphi数据库设计与实例开发》随书光盘

unit c_sellquery;

interface

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

type
  Tcfrm_sellquery = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_sellquery: Tcfrm_sellquery;

implementation

uses datam;

{$R *.dfm}

procedure Tcfrm_sellquery.FormCreate(Sender: TObject);
begin
dm.ADO_customer.Open;
   dm.ADO_customer.First;
   while not dm.ADO_customer.Eof do
   begin
     Combobox3.Items.Add(dm.ADO_customer.fieldbyname('CompanyName').AsString);
     dm.ADO_customer.Next;
   end;
   dm.ADO_depot.Open;
   dm.ADO_depot.First;
   while not dm.ADO_depot.Eof do
   begin
     Combobox2.Items.Add(dm.ADO_depot.fieldbyname('DepotName').AsString);
     dm.ADO_depot.Next;
   end;
   dm.ADO_product.Open;
   dm.ADO_product.First;
   while not dm.ADO_product.Eof do
   begin
     Combobox1.Items.Add(dm.ADO_product.fieldbyname('ProductName').AsString);
     dm.ADO_product.Next;
   end;
 with dm.adoq_cx do
  begin
  Close;
  SQL.Clear;
  SQL.Add('Select * from Sell');
  Open;
 end;
end;

procedure Tcfrm_sellquery.BitBtn1Click(Sender: TObject);
begin
with dm.adoq_cx do
  begin
  Close;
  SQL.Clear;
  SQL.Add('Select * from Sell');
  SQL.Add('where (1=1) ');
  if trim(Combobox1.Text)<>'' then
  begin
   SQL.Add(' And (ProductName like :NO)');//添加条件
   Parameters.ParamByName('NO').Value:='%'+combobox1.text+'%';//给参数赋值
  end;
  if trim(Combobox2.Text)<>'' then
  begin
   SQL.Add(' And (DepotName like :LNAME)');//添加条件
   Parameters.ParamByName('LNAME').Value:='%'+combobox2.text+'%';//给参数赋值
  end;
  if trim(Combobox3.Text)<>'' then
  begin
   SQL.Add(' And (CustomerName like :FNAME)');//添加条件
   Parameters.ParamByName('FNAME').Value :='%'+Combobox3.text+'%';//给参数赋值
  end;
  Open;
 end;

end;

procedure Tcfrm_sellquery.BitBtn2Click(Sender: TObject);
begin
with dm.adoq_cx do
  begin
  Close;
  SQL.Clear;
  SQL.Add('Select * from Sell');
  Open;
 end;
end;

procedure Tcfrm_sellquery.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm.ADO_customer.Close;
dm.ADO_product.Close;
dm.ADO_depot.Close;
dm.ADOQ_cx.Close;
release;
end;

end.