c_vcdmgn.pas

《delphi数据库设计与实例开发》随书光盘

unit c_vcdmgn;

interface

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

type
  Tcfrm_vcdmge = class(TForm)
    Panel1: TPanel;
    DBGrid: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    BitBtn4: TBitBtn;
    procedure DBGridTitleClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_vcdmge: Tcfrm_vcdmge;

implementation

uses datam,c_vcdedit, c_vcdlocate;

{$R *.dfm}

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

procedure Tcfrm_vcdmge.BitBtn1Click(Sender: TObject);
begin
  dm.ADO_vcd.Append;
  cfrm_vcdedit:=tcfrm_vcdedit.create(application);
  cfrm_vcdedit.BitBtn1.tag:=0;
  cfrm_vcdedit.showmodal;
end;

procedure Tcfrm_vcdmge.BitBtn2Click(Sender: TObject);
begin
  cfrm_vcdedit:=tcfrm_vcdedit.create(application);
  cfrm_vcdedit.BitBtn1.tag:=1;
  cfrm_vcdedit.showmodal;
end;

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

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

procedure Tcfrm_vcdmge.BitBtn3Click(Sender: TObject);
var
 mes,mesdel:string;
begin
  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 Tcfrm_vcdmge.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm.ADOQ_cx.Close;
  dm.ADOQ_cx.SQL.Clear;
  release;
end;

procedure Tcfrm_vcdmge.BitBtn4Click(Sender: TObject);
begin
  cfrm_vcdlocate:=tcfrm_vcdlocate.create(application);
  cfrm_vcdlocate.showmodal;
end;

end.