diepianchuzu.pas

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

unit diepianchuzu;

interface                          

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

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DataSource1: TDataSource;
    Label9: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label10: TLabel;
    GroupBox3: TGroupBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    SpeedButton3: TSpeedButton;
    DBEdit8: TDBEdit;
    Label14: TLabel;
    DBComboBox1: TDBComboBox;
    Label15: TLabel;
    DataSource2: TDataSource;
    Label16: TLabel;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Image1: TImage;
    SpeedButton7: TSpeedButton;
    Image2: TImage;
    Image3: TImage;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Image4: TImage;
    DBMemo3: TDBMemo;
    Label17: TLabel;
    Image6: TImage;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button3Click(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses datamoban, main;

{$R *.dfm}

procedure TForm4.Button3Click(Sender: TObject);
begin
datamodule1.ADOTable3.Cancel;
speedbutton9.Enabled:=false;
form4.close;

end;



procedure TForm4.Button2Click(Sender: TObject);
begin
speedbutton7.Caption:='查询';
datamodule1.adotable2.Edit;
if 1+datamodule1.adotable2['已借片数']>=6 then
          showmessage('抱歉，此会员已经借满5张碟，不可以继续租借！')
else
begin
datamodule1.adotable2['已借片数']:=1+datamodule1.adotable2['已借片数'];
datamodule1.adotable3['租片日期']:=datetimepicker1.date;
if datamodule1.adotable1.Locate('编号',dbedit3.Text,[]) then
   begin
   datamodule1.ADOTable1.Edit;
   datamodule1.adotable1['库存情况']:=false;
   end;
 datamodule1.ADOTable3['是否归还']:=false;
datamodule1.ADOTable1.Post;
datamodule1.adotable2.Post;
datamodule1.ADOTable3.post;
if messagedlg('要继续租借吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
datamodule1.ADOTable3.insert
else
close;
end;
end;

procedure TForm4.FormActivate(Sender: TObject);
begin
datamodule1.ADOTable3.Active:=true;
datamodule1.ADOTable3.insert;
datamodule1.ADOTable3a.Active:=true;
datamodule1.ADOTable3a.insert;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
datamodule1.adotable2.edit;
if not datamodule1.adotable2.Locate('证号',dbedit1.Text,[]) then
        begin
             showmessage('没有此会员，请重新输入');
             dbedit1.Text:='';
             speedbutton9.Enabled:=false;
             
         end
     else
     begin
     datamodule1.adotable2.Locate('证号',dbedit1.Text,[]);
     dbedit2.Text:= datamodule1.adotable2['姓名'];
end;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
datamodule1.adotable1.Open;
if not datamodule1.adotable1.Locate('编号',dbedit3.Text,[]) then
        begin
             showmessage('没有此编号的碟片，请核对后再输入!');
             dbedit3.Text:='';
             speedbutton9.Enabled:=false;

         end
     else
     if not datamodule1.ADOTable1['库存情况']=true then
         begin
             showmessage('此碟片已被外借，请再挑选一片吧~~');
             dbedit3.Text:='';
             speedbutton9.Enabled:=false;

         end
     else
     begin
     datamodule1.adotable1.Locate('编号',dbedit3.Text,[]);
     dbedit4.Text:= datamodule1.adotable1['片名'];
     speedbutton9.Enabled:=true;
     end;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
speedbutton9.Enabled:=false;
datamodule1.ADOTable3.Cancel;
datamodule1.ADOTable3.insert;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
 datamodule1.adotable2.Edit;
 datamodule1.adotable2.Locate('证号',dbedit1.Text,[]);
 speedbutton7.caption:=inttostr(datamodule1.adotable2['已借片数']);

end;
procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
datamodule1.adotable3a['租出日期']:=datetimepicker2.date;
if datamodule1.adotable1.Locate('编号',dbedit6.Text,[]) then
   begin
   datamodule1.ADOTable1.Edit;
   datamodule1.adotable1['库存情况']:=false;
   end;
   datamodule1.ADOTable3a['是否归还']:=false;
datamodule1.ADOTable1.Post;
datamodule1.ADOTable3a.post;
if messagedlg('要继续租借吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
datamodule1.ADOTable3a.insert
else
close;

end;

procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
datamodule1.adotable1.Open;
if not datamodule1.adotable1.Locate('编号',dbedit6.Text,[]) then
        begin
             showmessage('没有此编号的碟片，请核对后再输入!');
             dbedit6.Text:='';
             speedbutton4.Enabled:=false;

         end
     else
     if not (datamodule1.ADOTable1['库存情况']=true) then
         begin
             showmessage('此碟片已被外借，请再挑选一片吧~~');
             dbedit6.Text:='';
             speedbutton4.Enabled:=false;

         end
     else
     begin
     datamodule1.adotable1.Locate('编号',dbedit6.Text,[]);
     dbedit7.Text:= datamodule1.adotable1['片名'];
     speedbutton4.Enabled:=true;
     end;
end;

procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
speedbutton4.Enabled:=false;
datamodule1.ADOTable3a.Cancel;
datamodule1.ADOTable3a.insert;
end;

procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
datamodule1.ADOTable3a.Cancel;
speedbutton4.Enabled:=false;
form4.close;
speedbutton4.Enabled:=false;
end;

procedure TForm4.SpeedButton7Click(Sender: TObject);
begin
datamodule1.adotable2.Edit;
 datamodule1.adotable2.Locate('证号',dbedit1.Text,[]);
 speedbutton7.caption:=inttostr(datamodule1.adotable2['已借片数']);
end;

procedure TForm4.SpeedButton8Click(Sender: TObject);
begin
speedbutton7.Caption:='查询';
speedbutton9.Enabled:=false;
datamodule1.ADOTable3.Cancel;
datamodule1.ADOTable3.insert;
end;

procedure TForm4.SpeedButton9Click(Sender: TObject);
begin
speedbutton7.Caption:='查询';
datamodule1.adotable2.Edit;
if 1+datamodule1.adotable2['已借片数']>=6 then
          showmessage('抱歉，此会员已经借满5张碟，不可以继续租借！')
else
begin
datamodule1.adotable2['已借片数']:=1+datamodule1.adotable2['已借片数'];
datamodule1.adotable3['租片日期']:=datetimepicker1.date;
if datamodule1.adotable1.Locate('编号',dbedit3.Text,[]) then
   begin
   datamodule1.ADOTable1.Edit;
   datamodule1.adotable1['库存情况']:=false;
   end;
 datamodule1.ADOTable3['是否归还']:=false;
datamodule1.ADOTable1.Post;
datamodule1.adotable2.Post;
datamodule1.ADOTable3.post;
if messagedlg('要继续租借吗，否则退出本窗体？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin
datamodule1.ADOTable3.insert;
speedbutton9.Enabled:=false;
end
else
close;
end;
end;

procedure TForm4.SpeedButton10Click(Sender: TObject);
begin
datamodule1.ADOTable3.Cancel;
speedbutton9.Enabled:=false;
form4.close;
end;

procedure TForm4.Image5Click(Sender: TObject);
begin
datamodule1.ADOTable3.Cancel;
speedbutton9.Enabled:=false;
form4.close;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
speedbutton4.Enabled:=false;
speedbutton9.Enabled:=false;
form1.windowstate:=wsmaximized;
end;

end.