baosun.pas

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

unit baosun;

interface

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

type
  TForm14 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Edit2: TEdit;
    Label4: TLabel;
    DataSource1: TDataSource;
    Label5: TLabel;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses datamoban;

{$R *.dfm}

procedure TForm14.SpeedButton4Click(Sender: TObject);
begin
if (datamodule1.ADOTable1.Locate('编号',edit1.Text,[])) and (datamodule1.ADOTable1['库存情况']=true) then
  begin
  datamodule1.ADOTable1.Locate('编号',edit1.Text,[]);
  edit2.Text:= datamodule1.ADOTable1['片名'];
  speedbutton1.Enabled:=true;
  end
  else
  begin
  showmessage('此碟片不存在或未被归还');
  edit1.text:='';
  end;

end;

procedure TForm14.SpeedButton2Click(Sender: TObject);
begin
speedbutton1.Enabled:=false;
edit1.text:='';
edit2.Text:='';
end;

procedure TForm14.SpeedButton3Click(Sender: TObject);
begin
speedbutton1.Enabled:=false;
edit1.text:='';
edit2.Text:='';
form14.Close;
end;

procedure TForm14.SpeedButton1Click(Sender: TObject);
begin
if messagedlg('确实要销毁该碟片吗？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin

 datamodule1.ADOTable1.Locate('编号',edit1.Text,[]);
 datamodule1.adotable1.Delete;
 datamodule1.adotable1.close;
 datamodule1.adotable1.Open;
 datamodule1.ADOQuery12.Open;
 datamodule1.ADOQuery12.Insert;
 datamodule1.ADOQuery12['碟片原编号']:=edit1.Text;
 datamodule1.ADOQuery12['片名']:=edit2.text;
 datamodule1.ADOQuery12['报销日期']:=datetimepicker1.date;
 datamodule1.ADOQuery12['原因']:=memo1.Text;
 datamodule1.ADOQuery12.Post;
 datamodule1.ADOQuery12.close;
 datamodule1.ADOQuery12.open;
 datamodule1.ADOTable4.Close;
 datamodule1.ADOTable4.Open;
 speedbutton1.Enabled:=false;
edit1.text:='';
edit2.Text:='';
memo1.Text:='';

 end
 else
 close;
end;

procedure TForm14.Image2Click(Sender: TObject);
begin
speedbutton1.Enabled:=false;
edit1.text:='';
edit2.Text:='';
form14.Close;
end;

procedure TForm14.FormActivate(Sender: TObject);
begin
datamodule1.ADOTable1.Active:=true;
end;

end.