unit_addingman.pas

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

unit unit_addingman;

interface

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

type
  Tfrm_addingman = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    edt_content: TEdit;
    cmb_selecting: TComboBox;
    ADODataSet1: TADODataSet;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Image2: TImage;
    GroupBox2: TGroupBox;
    Image3: TImage;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edt_contentKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
  str,temp:string;  { Public declarations }
  end;

var
  frm_addingman: Tfrm_addingman;

implementation

uses unit_main;

{$R *.dfm}

procedure Tfrm_addingman.FormShow(Sender: TObject);
begin
//adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+'\db\vcdlending.mdb;Persist Security Info=False';
//adoconnection1.Connected:=true;
cmb_selecting.ItemIndex:=0;
str:='select  会员编号,会员姓名,可租碟数,剩余碟数,交纳租金  from  会员基本信息表 order by 会员编号 desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
label2.Caption:=inttostr(adodataset1.RecordCount)+'  个';
end;

procedure Tfrm_addingman.SpeedButton3Click(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_addingman.SpeedButton4Click(Sender: TObject);
begin
close;
end;

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

procedure Tfrm_addingman.edt_contentKeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then speedbutton3.Click;
end;

end.