unit_borrowing.pas

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

unit unit_borrowing;

interface

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

type
  Tfrm_borrowing = class(TForm)
    GroupBox1: TGroupBox;
    Label5: TLabel;
    edt_yingdie: TEdit;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    Label1: TLabel;
    edt_huiyuan: TEdit;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    DBNavigator1: TDBNavigator;
    Image1: TImage;
    Image2: TImage;
    GroupBox2: TGroupBox;
    Image3: TImage;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure edt_huiyuanChange(Sender: TObject);
    procedure edt_yingdieChange(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
   str,temp,diename,dietype:string;
  dienumber:integer; //diename,dietype:string; { Public declarations }
  end;

var
  frm_borrowing: Tfrm_borrowing;

implementation

{$R *.dfm}

procedure Tfrm_borrowing.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;
label2.Visible:=false;
edt_huiyuan.SetFocus;
//label3.Visible:=false;
end;

procedure Tfrm_borrowing.edt_huiyuanChange(Sender: TObject);
begin
 str:='select  *  from  会员基本信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
label2.Visible:=true;
label3.Visible:=true;
label2.Caption:=vartostr(adodataset1.FieldValues['剩余碟数'])+'  盘';
//dienumber:=adodataset1.FieldValues['可租碟数'];
str:='select  *  from  借还信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
str:=str+' order by 借出时间 desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;

procedure Tfrm_borrowing.edt_yingdieChange(Sender: TObject);
begin
str:='select * from 影碟基本信息表';
str:=str+' where 影碟编号='+''''+trim(edt_yingdie.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;

procedure Tfrm_borrowing.SpeedButton4Click(Sender: TObject);
begin
if (edt_huiyuan.Text='') or (edt_yingdie.Text='') then
begin
showmessage('请输入完整信息');
edt_huiyuan.SetFocus;
end
else
begin
str:='select * from 会员基本信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
if adodataset1.FieldValues['剩余碟数']=0 then
begin
showmessage('你的租金已用完。');
end
else
begin
str:='select * from 影碟基本信息表';
str:=str+' where 影碟编号='+''''+trim(edt_yingdie.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
if adodataset1.FieldValues['是否在店']='N' then
begin
showmessage('此影碟已租出');
edt_yingdie.Text:='';
edt_yingdie.SetFocus;
end
else
begin
diename:=vartostr(adodataset1.fieldvalues['影碟名称']);
dietype:=vartostr(adodataset1.fieldvalues['影碟类型']);
temp:=trim(edt_huiyuan.Text);

str:='select * from 会员基本信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
adodataset1.Edit;
adodataset1.FieldValues['剩余碟数']:=adodataset1.FieldValues['剩余碟数']-1;
dienumber:=adodataset1.FieldValues['剩余碟数'];
//dienumber:=dienumber-1;
adodataset1.Post;
label2.Caption:=inttostr(adodataset1.FieldValues['剩余碟数'])+'  盘';

str:='select * from 借还信息表';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
if not adodataset1.Eof then
begin
adodataset1.Last;
end;
adodataset1.Append;
adodataset1.fieldvalues['ID']:=100-dienumber;
adodataset1.FieldValues['会员编号']:=temp;
adodataset1.FieldValues['影碟编号']:=trim(edt_yingdie.Text);
adodataset1.FieldValues['影碟名称']:=diename;
adodataset1.FieldValues['影碟类型']:=dietype;
adodataset1.FieldValues['是否归还']:='N';
adodataset1.FieldValues['借出时间']:=formatdatetime('yyyy-mm-dd',now);
adodataset1.Post;


adodataset1.active:=false;
adodataset1.commandtext:='select * from 影碟基本信息表 where 影碟编号='+''''+trim(edt_yingdie.Text)+'''';
adodataset1.Active:=true;
adodataset1.Edit;
adodataset1.FieldValues['是否在店']:='N';
adodataset1.Post;
adodataset1.Active:=false;


str:='select  *  from  借还信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
str:=str+' order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;
end;
end;
end;

procedure Tfrm_borrowing.SpeedButton5Click(Sender: TObject);
begin
if (edt_huiyuan.Text='') or (edt_yingdie.Text='') then
begin
showmessage('请输入完整信息');
edt_huiyuan.SetFocus;
end
else
begin
temp:=trim(edt_huiyuan.Text);
str:='select * from 借还信息表';
str:=str+' where 会员编号='+''''+temp+'''';
str:=str+' and  影碟编号='+''''+trim(edt_yingdie.Text)+'''';
str:=str+' order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
if adodataset1.FieldValues['是否归还']='Y' then showmessage('你已经归还了!');
adodataset1.Edit;
adodataset1.FieldValues['是否归还']:='Y';
adodataset1.FieldValues['归还时间']:=formatdatetime('yyyy-mm-dd',now);
adodataset1.Post;

adodataset1.active:=false;
adodataset1.commandtext:='select * from 影碟基本信息表 where 影碟编号='+''''+trim(edt_yingdie.Text)+'''';
adodataset1.Active:=true;
adodataset1.Edit;
adodataset1.FieldValues['是否在店']:='Y';
adodataset1.Post;
adodataset1.Active:=false;

str:='select  *  from  借还信息表';
str:=str+' where 会员编号=';
str:=str+''''+trim(edt_huiyuan.Text)+'''';
str:=str+' order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;
end;

procedure Tfrm_borrowing.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_borrowing.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
adoconnection1.Connected:=false;
action:=cafree;
end;

end.