diepianguihuan.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit diepianguihuan;

interface

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

type
  TForm6 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label5: TLabel;
    DBGrid1: TDBGrid;
    Label6: TLabel;
    DataSource2: TDataSource;
    GroupBox5: TGroupBox;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    DBGrid2: TDBGrid;
    Edit7: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit2: TDBEdit;
    Label13: TLabel;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Edit8: TEdit;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    SpeedButton11: TSpeedButton;
    Image1: TImage;
    DBMemo1: TDBMemo;
    Label14: TLabel;
    Label15: TLabel;
    Image2: TImage;
    Label16: TLabel;
    Image3: TImage;
    Image4: TImage;
    DBMemo2: TDBMemo;
    Label17: TLabel;
    SpeedButton12: TSpeedButton;
    Image5: TImage;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Image6: TImage;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses datamoban, baosun,yonghuguanli, main;

{$R *.dfm}

procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
if not datamodule1.adotable3.Locate('碟片编号',edit3.Text,[]) then
        begin
             showmessage('此编号的碟片未被会员借出，请核对后再输入!');
             edit3.Text:='';
        end
     else
     begin
     if (datamodule1.adotable3['会员编号']=edit1.Text) and (datamodule1.adotable3['碟片编号']=edit3.Text) and (datamodule1.adotable3['是否归还']=false) then
      begin
      datamodule1.adotable3.Locate('碟片编号',edit3.Text,[]);
     edit4.Text:= datamodule1.adotable3['片名'];
     speedbutton3.Enabled:=true;
     end
     else
     showmessage('此会员没有租借该碟片！');
    end;


end;

procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
if not datamodule1.adotable3.Locate('会员编号',edit1.Text,[]) then
        begin
             showmessage('此会员没有租借碟片，请确认后再输入');
             edit1.Text:='';
             
         end
     else
     begin
     datamodule1.adotable3.Locate('会员编号',edit1.Text,[]);
     edit2.Text:= datamodule1.adotable3['姓名'];
     datamodule1.ADOQuery3.Close;
     datamodule1.ADOQuery3.SQL.Clear;
     datamodule1.ADOQuery3.sql.Add('select * from 会员客户 where 会员编号='''+edit1.Text+'''');
     datamodule1.ADOQuery3.Open;
     end;
     end;

procedure TForm6.FormActivate(Sender: TObject);
begin
datamodule1.ADOTable3.Insert;
datamodule1.ADOTable3a.Insert;
datamodule1.ADOquery3a.Insert;
speedbutton8.Enabled:=false;
datamodule1.ADOTable3a.Cancel;
datamodule1.ADOquery3a.Cancel;
edit6.Text:='';
edit5.Text:='';
edit7.Text:='';
edit8.Text:='';
dbedit2.Text:='';
dbmemo2.Text:='';

    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    dbmemo1.Text:='';
if not form11.CheckBox2.Checked then
     speedbutton6.Enabled:=false
     else
     speedbutton6.Enabled:=true;

end;

procedure TForm6.SpeedButton5Click(Sender: TObject);
begin
datamodule1.ADOTable3.Cancel;
speedbutton3.Enabled:=false;
form6.close;
end;

procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
speedbutton3.Enabled:=false;
datamodule1.ADOTable3.Cancel;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
dbmemo1.Text:='';
end;

procedure TForm6.SpeedButton6Click(Sender: TObject);
begin
form14.showmodal;
end;

procedure TForm6.SpeedButton3Click(Sender: TObject);
begin
datamodule1.adotable2.Edit;
datamodule1.adotable3.Edit;
datamodule1.adotable2['已借片数']:=datamodule1.adotable2['已借片数']-1;
datamodule1.adotable3['归还日期']:=datetimepicker1.date;
datamodule1.adotable3['是否归还']:=true;
if datamodule1.adotable1.Locate('编号',edit3.Text,[]) then
   begin
   datamodule1.ADOTable1.Edit;
   datamodule1.adotable1['库存情况']:=true;
   end;
datamodule1.ADOTable1.Post;
datamodule1.adotable2.Post;
datamodule1.ADOTable3.post;
datamodule1.ADOquery3.Active:=false;
datamodule1.ADOquery3.Active:=true;
if messagedlg('要继续归还操作吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
    datamodule1.ADOTable3.insert;
    edit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    dbmemo1.Text:='';
    end
   else
   close;
end;
procedure TForm6.SpeedButton10Click(Sender: TObject);
begin
datamodule1.ADOTable3a.Cancel;
speedbutton8.Enabled:=false;
form6.close;
end;

procedure TForm6.SpeedButton11Click(Sender: TObject);
begin
datamodule1.ADOquery3.Active:=false;
datamodule1.ADOquery3.Active:=true;
end;

procedure TForm6.SpeedButton9Click(Sender: TObject);
begin
speedbutton8.Enabled:=false;
datamodule1.ADOTable3a.Cancel;
datamodule1.ADOquery3a.Cancel;
edit6.Text:='';
edit5.Text:='';
edit7.Text:='';
edit8.Text:='';
dbedit2.Text:='';
dbmemo2.Text:='';
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
datamodule1.ADOquery3.Active:=false;
datamodule1.ADOquery3.Active:=true;
end;

procedure TForm6.Button3Click(Sender: TObject);
begin
datamodule1.ADOtable3a.Active:=false;
datamodule1.ADOtable3a.Active:=true;
end;

procedure TForm6.Button4Click(Sender: TObject);
begin
if not datamodule1.adotable3a.Locate('碟片编号',edit5.Text,[]) then
        begin
             showmessage('此编号的碟片未被借出，请核对后再输入!');
             edit5.Text:='';
        end
     else
     if (datamodule1.adotable1['编号']=edit5.Text) and(datamodule1.ADOTable1['库存情况']=true) then
     begin
     showmessage('此碟片已被归还！');
     edit5.Text:='';
     end
     else
     begin
     datamodule1.ADOQuery3a.Close;
     datamodule1.ADOQuery3a.SQL.Clear;
     datamodule1.ADOQuery3a.sql.Add('select * from 普通客户 where 碟片编号='''+edit5.Text+'''and 是否归还=false');
     datamodule1.ADOQuery3a.Open;
     speedbutton8.enabled:=true;
     edit6.Text:= datamodule1.adoquery3a['片名'];
     edit7.Text:= datamodule1.adoquery3a['姓名'];
     end;
end;

procedure TForm6.SpeedButton8Click(Sender: TObject);
begin
datamodule1.adoquery3a.Open;
datamodule1.ADOTable1.Open;
datamodule1.adoquery3a.Edit;
datamodule1.adoquery3a['归还日期']:=datetimepicker2.date;
datamodule1.adoquery3a['是否归还']:=true;
datamodule1.adoquery3a['应付金额']:=strtocurr(edit8.text);
datamodule1.adoquery3a['实付金额']:=strtocurr(dbedit2.text);
if datamodule1.adotable1.Locate('编号',edit5.Text,[]) then
   begin
   datamodule1.ADOTable1.Edit;
   datamodule1.adotable1['库存情况']:=true;
   end;
datamodule1.ADOTable1.Post;
datamodule1.ADOquery3a.post;
datamodule1.ADOtable3a.Active:=false;
datamodule1.ADOtable3a.Active:=true;
if messagedlg('要继续归还操作吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
    begin
    datamodule1.adoquery3a.Insert;
    edit5.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:='';
    dbedit2.Text:='';
    dbmemo2.Text:='';
    end
   else
   close;
end;
procedure TForm6.SpeedButton7Click(Sender: TObject);
begin
form14.showmodal;
end;

procedure TForm6.Button2Click(Sender: TObject);
var
d:double;

begin
if (datamodule1.adoquery3a.Locate('碟片编号',edit5.Text,[])) and  (datamodule1.adoquery3a['是否归还']=false) then
   datamodule1.adoquery3a.Locate('碟片编号',edit5.Text,[]);
   d:=datetimepicker2.Date-datamodule1.adoquery3a['租出日期'];
   edit8.Text:=formatfloat('0',d);

end;

procedure TForm6.SpeedButton12Click(Sender: TObject);
begin
datamodule1.ADOTable1.Open;
if not datamodule1.adotable3a.Locate('碟片编号',edit5.Text,[]) then
        begin
             showmessage('此编号的碟片未被借出，请核对后再输入!');
             edit5.Text:='';
             speedbutton8.enabled:=false;
        end
     else
     if (datamodule1.ADOTable1.Locate('编号',edit5.Text,[])) and(datamodule1.ADOTable1['库存情况']=true) then
     begin
     showmessage('此碟片已被归还！');
     edit5.Text:='';
     speedbutton8.enabled:=false;
     end
     else
     begin
     datamodule1.ADOQuery3a.Close;
     datamodule1.ADOQuery3a.SQL.Clear;
     datamodule1.ADOQuery3a.sql.Add('select * from 普通客户 where 碟片编号='''+edit5.Text+'''and 是否归还=false');
     datamodule1.ADOQuery3a.Open;
     speedbutton8.enabled:=true;
     edit6.Text:= datamodule1.adoquery3a['片名'];
     edit7.Text:= datamodule1.adoquery3a['姓名'];
     end;
end;

procedure TForm6.SpeedButton13Click(Sender: TObject);
var
d:double;

begin
if (datamodule1.adoquery3a.Locate('碟片编号',edit5.Text,[])) and  (datamodule1.adoquery3a['是否归还']=false) then
   datamodule1.adoquery3a.Locate('碟片编号',edit5.Text,[]);
   datamodule1.adotable1.Locate('编号',edit5.Text,[]);
   d:=(datetimepicker2.Date-datamodule1.adoquery3a['租出日期'])*datamodule1.adotable1['租金'];
   edit8.Text:=formatfloat('0',d);

end;


procedure TForm6.SpeedButton14Click(Sender: TObject);
begin
datamodule1.ADOtable3a.Active:=false;
datamodule1.ADOtable3a.Active:=true;
end;

procedure TForm6.Image7Click(Sender: TObject);
begin
datamodule1.ADOTable3a.Cancel;
speedbutton8.Enabled:=false;
form6.close;
end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
speedbutton8.enabled:=false;
speedbutton3.Enabled:=false;
form1.windowstate:=wsmaximized;
end;

end.