unit11.pas

来自「酒店管理系统」· PAS 代码 · 共 71 行

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, LvNeoButton, Grids, DBGrids, ExtCtrls, LvNeoForm;

type
  TForm11 = class(TForm)
    LvNeoForm1: TLvNeoForm;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    LvNeoButton4: TLvNeoButton;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure LvNeoButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure LvNeoButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses wineform;

{$R *.dfm}

procedure TForm11.LvNeoButton3Click(Sender: TObject);
begin
table1.Open;
LvNeoButton4.Enabled:=true;
end;

procedure TForm11.FormCreate(Sender: TObject);
begin
table1.Close;
LvNeoButton4.Enabled:=false;
end;

procedure TForm11.LvNeoButton4Click(Sender: TObject);
begin
if messagebox(handle,'你确定要删除此条记录吗？','删除',mb_yesno+mb_iconquestion)=mryes then
begin
with table1 do
begin
table1.Delete;
end;
end;
end;

procedure TForm11.LvNeoButton2Click(Sender: TObject);
begin
LvNeoButton4.Enabled:=false;
table1.Active:=false;
form8.WindowState:=wsnormal;
form11.Close;
end;

end.