vcdgl.pas

图书影碟租赁管理系统

unit vcdgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBActns, ActnList, StdCtrls, Buttons, DB, Grids, DBGrids;

type
  TF_vcdgl = class(TForm)
    DataSource1: TDataSource;
    ActionList1: TActionList;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DBGrid: TDBGrid;
    b_locate: TBitBtn;
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DBGridTitleClick(Column: TColumn);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure b_locateClick(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_vcdgl: TF_vcdgl;

implementation

uses datam, vcdedit, vcdlocate, vcdprt;

{$R *.dfm}

procedure TF_vcdgl.DataSetInsert1Execute(Sender: TObject);
begin
  dm.ADO_vcd.Append;
  F_vcdedit:=TF_vcdedit.create(application);
  F_vcdedit.b_ok.tag:=0;
  F_vcdedit.showmodal;
end;

procedure TF_vcdgl.DBGridTitleClick(Column: TColumn);
begin
 dm.ADO_vcd.Sort:=Column.FieldName;
end;

procedure TF_vcdgl.DataSetEdit1Execute(Sender: TObject);
begin
  F_vcdedit:=TF_vcdedit.create(application);
  F_vcdedit.b_ok.tag:=1;
  F_vcdedit.showmodal;
end;

procedure TF_vcdgl.FormCreate(Sender: TObject);
begin
  dm.ADO_vcd.open;
  dm.ADO_vcd.Sort:='编号';
end;

procedure TF_vcdgl.FormShow(Sender: TObject);
begin
 dbgrid.SetFocus();
end;

procedure TF_vcdgl.DataSetDelete1Execute(Sender: TObject);
var
 mes,mesdel:string;
begin
  inherited;
  if dm.ADO_vcd.FieldByName('状态').AsString='已租' then
   begin
    mes:='图书(影碟)<'+dm.ADO_vcd.FieldByName('编号').AsString
        +' '+dm.ADO_vcd.FieldByName('名称').AsString
        +'>已租出，不可删除！';
    application.MessageBox(pchar(mes),pchar('提示'),MB_ICONEXCLAMATION);
    exit;
   end;
   mesdel:='是否要删除图书(影碟)<'+dm.ADO_vcd.FieldByName('编号').AsString
        +' '+dm.ADO_vcd.FieldByName('名称').AsString+'>？';
   if application.MessageBox(pchar(mesdel),pchar('等待确认')
     ,MB_ICONQUESTION+mb_okcancel+MB_DEFBUTTON2)=idok then
      dm.ADO_vcd.delete;
end;

procedure TF_vcdgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADOQ_cx.Close;
  dm.ADOQ_cx.SQL.Clear;
  release;
end;

procedure TF_vcdgl.b_locateClick(Sender: TObject);
begin
  F_locate:=TF_locate.create(application);
  F_locate.showmodal;
end;

procedure TF_vcdgl.BitBtn8Click(Sender: TObject);
begin
    dm.ADOQ_prt.Open;
    F_vcdprt:=TF_vcdprt.Create(Application);
    F_vcdprt.QuickRep1.Preview;
end;

end.