unit4.pas

来自「东莞小肥羊火锅店收银系统,能实现前台收银记帐管理,快速的点菜系统,和桌号管理系统」· PAS 代码 · 共 96 行

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
    suiButton2: TsuiButton;
    Label2: TLabel;
    suiButton1: TsuiButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ADOTable2: TADOTable;
    suiForm1: TsuiForm;
    GroupBox1: TsuiGroupBox;
    suiDBEdit1: TsuiDBEdit;
    Edit1: TsuiEdit;
    suiDBGrid1: TsuiDBGrid;
    Edit2: TsuiEdit;
    ComboBox1: TsuiComboBox;
    suiDBEdit2: TsuiDBEdit;
    suiDBEdit3: TsuiDBEdit;
    procedure suiButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
   uses Unit1;
{$R *.dfm}

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

procedure TForm4.FormShow(Sender: TObject);
begin
ComboBox1.Items.Clear;
adotable1.Active:=true;
adotable2.Active:=true;
adotable2.first;
while not adotable2.eof do
begin
ComboBox1.Items.Add(adotable2.fields.fieldbyname('菜类').asstring);
adotable2.Next;
end;
adotable2.Active:=false;
end;

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


end.