unit_addingdie.~pas

DELPHI影碟音像出租管理系统（优秀全套）是出租管理的一个很典型的例子

unit unit_addingdie;

interface

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

type
  Tfrm_addingdie = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    cmb_selecting: TComboBox;
    edt_content: TEdit;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Image2: TImage;
    GroupBox2: TGroupBox;
    Image3: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  str,temp:string;  { Public declarations }
  end;

var
  frm_addingdie: Tfrm_addingdie;

implementation

uses unit_main;

{$R *.dfm}

procedure Tfrm_addingdie.FormShow(Sender: TObject);
begin
cmb_selecting.ItemIndex:=0;
edt_content.SetFocus;
str:='select  影碟编号,影碟名称,影碟类型,是否在店  from  影碟基本信息表 order by 影碟编号 desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
label2.Caption:=inttostr(adodataset1.RecordCount)+'  盘';
end;

procedure Tfrm_addingdie.SpeedButton1Click(Sender: TObject);
begin
if cmb_selecting.ItemIndex=0 then
begin
str:='select  影碟编号,影碟名称,影碟类型,是否在店  from  影碟基本信息表';
str:=str+' where 影碟编号 like ';
str:=str+''''+'%'+trim(edt_content.Text)+'%'+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;
if cmb_selecting.ItemIndex=1 then
begin
temp:='%'+trim(edt_content.Text)+'%';
temp:=''''+temp+'''';
str:='select  影碟编号,影碟名称,影碟类型,是否在店  from  影碟基本信息表';
str:=str+' where 影碟名称 like ';
str:=str+temp;
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;
end;

procedure Tfrm_addingdie.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_addingdie.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
adodataset1.Active:=false;
action:=cafree;
end;
end.