vcdcx.pas

图书影碟租赁管理系统

unit vcdcx;

interface

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

type
  TF_vcdcx = class(TForm)
    DataSource1: TDataSource;
    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;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_vcdcx: TF_vcdcx;

implementation

uses datam;

{$R *.dfm}

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

procedure TF_vcdcx.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 TF_vcdcx.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 TF_vcdcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADOQ_cx.SQL.Clear;
  dm.ADOQ_cx.Close;
  release;
end;

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

end.