unit3.pas

东莞小肥羊火锅店收银系统,能实现前台收银记帐管理,快速的点菜系统,和桌号管理系统 是一般餐饮店首选程序

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, SUIDBCtrls, DB, ADODB, StdCtrls, SUIButton,
  Mask, DBCtrls, se_controls, KsSkinForms, KsSkinEngine, SUIEdit,
  SUIImagePanel, SUIGroupBox, ExtCtrls, SUIForm;

type
  TForm3 = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label2: TLabel;
    suiForm1: TsuiForm;
    suiDBGrid1: TsuiDBGrid;
    GroupBox1: TsuiGroupBox;
    suiDBEdit1: TsuiDBEdit;
    Edit1: TsuiEdit;
    procedure FormCreate(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
  uses Unit1;
{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
adotable1.Active:=true;
end;

procedure TForm3.suiButton2Click(Sender: TObject);
begin
if application.messagebox(pchar('你确定要删除'+suiDBEdit1.text+'类名吗'),'删除确认',mb_yesno+mb_iconinformation)=IDYES then
begin
adotable1.Delete;
end;
end;

procedure TForm3.suiButton1Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
adotable1.Open;
adotable1.Append;
adotable1.fields.fieldbyname('菜类').asstring:=edit1.text;
adotable1.Post;
adotable1.Close;
adotable1.Active:=false;
adotable1.Active:=true;
showmessage(edit1.Text+'已经添加成功');
edit1.Text:='';
end
else
begin
showmessage('你好奇怪哦,你不写新类名我怎么添加啊!');
end;

end;

end.