delcard.pas

来自「一个基本的数据库开发示例」· PAS 代码 · 共 63 行

unit Delcard;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Grids, DBGrids, DBLookup, Buttons;

type
  TDelCardForm = class(TForm)
    SelDelCardLabel: TLabel;
    SelDelCardDBGrid: TDBGrid;
    DelCardBitBtn: TBitBtn;
    ReturnBitBtn: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DelCardBitBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
      { Public declarations }
  end;

var
  DelCardForm: TDelCardForm;

implementation

Uses
    Card;

{$R *.DFM}

procedure TDelCardForm.FormCreate(Sender: TObject);
begin
     SelDelCardDBGrid.DataSource := CardForm.CardDataSource;
     DelCardBitBtn.Enabled := True;
end;

procedure TDelCardForm.DelCardBitBtnClick(Sender: TObject);
begin
     if CardForm.CardDataSource.DataSet.RecordCount > 0 then
        begin
             CardForm.CardDataSource.DataSet.Delete;
             if CardForm.CardDataSource.DataSet.RecordCount < 1 then
                begin
                   DelCardBitBtn.Enabled := False;

                   CardForm.Save.Enabled := False;
                   CardForm.SaveAs.Enabled := False;
                   CardForm.Print.Enabled := False;
                   CardForm.Delete.Enabled := False;
                   CardForm.Find.Enabled := False;

                   CardForm.SpeedBtnSave.Enabled := False;
                   CardForm.SpeedBtnPrint.Enabled := False;
                   CardForm.SpeedBtnDelete.Enabled := False;
                   CardForm.SpeedBtnFind.Enabled := False;
                end;
        end;
end;

end.