c_vcdbrowse.pas

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

unit c_vcdbrowse;

interface

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

type
  Tcfrm_vcdbrowse = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    cxtj: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    e_lbx: TComboBox;
    e_lbd: TComboBox;
    e_name: TEdit;
    e_dy: TEdit;
    e_zy: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_vcdbrowse: Tcfrm_vcdbrowse;

implementation
uses datam;


{$R *.dfm}

procedure Tcfrm_vcdbrowse.FormCreate(Sender: TObject);
begin
dm.ado_lb.open;
  dm.ADO_lb.Sort:='编号';
  e_lbx.Items.Add('所有');
  while not dm.ado_lb.Eof do
    begin
     e_lbx.items.add(dm.ADO_lb.fieldbyname('类别').AsString);
     dm.ADO_lb.Next;
    end;
    dm.ado_lb.close;
    e_lbx.ItemIndex:=0;
end;

procedure Tcfrm_vcdbrowse.FormShow(Sender: TObject);
begin
 e_name.SetFocus();
end;

procedure Tcfrm_vcdbrowse.BitBtn1Click(Sender: TObject);
var
cxtj:string;
begin
if e_lbd.Text<>'所有' then
   cxtj:=cxtj+'大类='+''''+e_lbd.Text+'''';
 if e_lbx.Text<>'所有' then
   cxtj:=cxtj+' and '+'小类='+''''+e_lbx.Text+'''';
 if e_name.Text<>'' then
   cxtj:=cxtj+' and '+'名称 like'+''''+'%'+e_name.Text+'%'+'''';
 if e_dy.Text<>'' then
   cxtj:=cxtj+' and '+'作者导演 like'+''''+'%'+e_dy.Text+'%'+'''';
 if e_zy.Text<>'' then
   cxtj:=cxtj+' and '+'主演 like'+''''+'%'+e_zy.Text+'%'+'''';
 if copy(trim(cxtj),1,3)='and' then
    cxtj:=copy(trim(cxtj),4,500);
    cxtj:='where '+cxtj;
 if cxtj='where ' then
    cxtj:='';
  dm.adoq_cx.close;
  dm.adoq_cx.SQL.Clear;
  dm.adoq_cx.sql.add('select 货位号,状态,大类,小类,名称,作者导演,主演 from tsvcd');
  dm.adoq_cx.sql.add(cxtj);
  dm.ADOQ_cx.ExecSQL;
  dm.ADOQ_cx.Close;
  dm.ADOQ_cx.Open;
end;

procedure Tcfrm_vcdbrowse.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm.ADOQ_cx.SQL.Clear;
  dm.ADOQ_cx.Close;
  release;
end;

procedure Tcfrm_vcdbrowse.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tcfrm_vcdbrowse.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
    key:=#0;
    perform(wm_nextdlgctl,0,0);
   end;
end;

end.