unit_temptman.~pas

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

unit unit_temptman;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons,
  jpeg;
{type
 T_diezi=record
 diename:string;
 dietype:string;
 end;  }
type
  Tfrm_temptman = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edt_dienumber: TEdit;
    Label2: TLabel;
    edt_yajin: TEdit;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADODataSet1: TADODataSet;
    Image1: TImage;
    Image2: TImage;
    GroupBox2: TGroupBox;
    Image3: TImage;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure edt_dienumberChange(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:string;
  diename:string;
 dietype:string;
 id:integer; { Public declarations }
  end;


var
  frm_temptman: Tfrm_temptman;

implementation

{$R *.dfm}

procedure Tfrm_temptman.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;
end;

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

procedure Tfrm_temptman.SpeedButton4Click(Sender: TObject);

begin
if (edt_dienumber.Text='') or (edt_yajin.Text='') then
begin
showmessage('请输入完整信息');
edt_dienumber.SetFocus;
end
else
begin
str:='select * from 影碟基本信息表';
str:=str+' where 影碟编号='+''''+trim(edt_dienumber.Text)+'''';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
 if adodataset1.FieldValues['是否在店']='N' then
begin
showmessage('此影碟已租出');
edt_yajin.Text:='';
edt_dienumber.Text:='';
edt_dienumber.SetFocus;
end
else
begin
adodataset1.Edit;
adodataset1.FieldValues['是否在店']:='N';
adodataset1.Post;
diename:=vartostr(adodataset1.fieldvalues['影碟名称']);
dietype:=vartostr(adodataset1.fieldvalues['影碟类型']);

str:='select * from 临时借还 order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
with adodataset1 do
begin
if not eof then last;
append;
fieldvalues['影碟编号']:=trim(edt_dienumber.Text);
fieldvalues['是否归还']:='N';
fieldvalues['借出时间']:=formatdatetime('yyyy-mm-dd',now);
fieldvalues['影碟名称']:=diename;
fieldvalues['影碟类型']:=dietype;
fieldvalues['押金']:=strtocurr(trim(edt_yajin.Text));
post;
end;
str:='select * from 临时借还 order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
end;
end;
end;

procedure Tfrm_temptman.SpeedButton5Click(Sender: TObject);
var
i:integer;
begin
if (edt_dienumber.Text='') then
begin
showmessage('请输入完整信息');
edt_dienumber.SetFocus;
end
else
begin
adodataset1.active:=false;
adodataset1.commandtext:='select * from 影碟基本信息表 where 影碟编号='+''''+trim(edt_dienumber.Text)+'''';
adodataset1.Active:=true;
if adodataset1.FieldValues['是否在店']='Y' then showmessage('你已经归还了此影碟');
adodataset1.Edit;
adodataset1.FieldValues['是否在店']:='Y';
adodataset1.Post;



str:='select * from 临时借还';
str:=str+' where 影碟编号='+''''+trim(edt_dienumber.Text)+'''';
str:=str+' order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
adodataset1.Edit;
adodataset1.FieldValues['是否归还']:='Y';
adodataset1.FieldValues['归还时间']:=formatdatetime('yyyy-mm-dd',now);
adodataset1.Post;

str:='select * from 临时借还 order by ID desc';
adodataset1.Active:=false;
adodataset1.CommandText:=str;
adodataset1.Active:=true;
if adodataset1.RecordCount>20 then
begin
adodataset1.First;
for i:=1 to adodataset1.RecordCount do
begin
adodataset1.Delete;
next;
end;
end;
end;

end;

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

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

end.