unit7.pas

重庆秦妈火锅城管理系统 1.0版

unit Unit7;

interface

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

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

var
  Form7: TForm7;

implementation

uses CMP;

{$R *.dfm}

procedure TForm7.LvNeoButton2Click(Sender: TObject);
begin
LvNeoButton4.Enabled:=false;
table1.Active:=false;
form3.WindowState:=wsnormal;
form7.Close;
end;

procedure TForm7.LvNeoButton3Click(Sender: TObject);
begin
table1.Close;
lvneobutton4.Enabled:=true;
table1.Open;

end;

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

procedure TForm7.FormCreate(Sender: TObject);
begin
lvneobutton4.Enabled:=false;
end;

procedure TForm7.FormShow(Sender: TObject);
begin
form7.Left:=172;
form7.Top:=88;
end;

end.