order.~pas

一个不错的酒店管理系统 用delphi7实现

unit ORDER;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables, ComCtrls;

type
  TORDERForm = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BtAdd: TBitBtn;
    BtCanc: TBitBtn;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    BtOver: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    Table3: TTable;
    procedure BtAddClick(Sender: TObject);
    procedure BtCancClick(Sender: TObject);
    procedure BtOverClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ORDERForm: TORDERForm;
  D_AppTerMinate:boolean;

implementation

{$R *.dfm}

procedure TORDERForm.BtAddClick(Sender: TObject);
var
 Bookmark:TBookmark;
begin
 Bookmark:=Table1.GetBookmark;
 Table3.Open;
 if Table3.FindKey([Trim(Edit1.Text)])=False then
  begin
   showmessage('please input correct UserId ! again');
   Edit1.Text:='';
   Edit1.SetFocus;
   Exit;
  end;
 try
  with Table2 do
   begin
    Insert;
    //FieldByName('OrderNo').AsInteger:=StrToInt(Edit1.Text);
    FieldByName('UserId').AsString:=Edit1.Text;
    FieldByName('菜名').AsString:=Table1.FieldByName('菜名').AsString;
    FieldByName('时间').AsDateTime:=DateTimePicker1.Date;
    FieldByName('价钱').AsFloat:=Table1.FieldByName('价格').AsFloat*Table1.FieldByName('折扣').AsFloat;
    Post;
    Refresh;
    end;
   finally
  Edit1.Text:='';
  Edit1.SetFocus;
  Table1.GotoBookmark(Bookmark);
  Table1.FreeBookmark(Bookmark);
  end;
end;

procedure TORDERForm.BtCancClick(Sender: TObject);
begin
 if Table3.FieldValues['UserId']<>Trim(Edit1.Text) then
 begin
  showmessage('sorry!you cannot delete this order!');
  Edit1.Text:='';
  Edit1.SetFocus;
  Exit;
 end;
 Table2.Delete;
 Edit1.Text:='';
 Edit1.SetFocus;
end;

procedure TORDERForm.BtOverClick(Sender: TObject);
begin
 showmessage('okey');
 Table1.Close;
 Table2.Close;
 ORDERForm.Close;
 D_AppTerMinate:=false;
 Exit;
end;

procedure TORDERForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if D_AppTerminate=true then
 begin
  Table1.Close;
  Table2.Close;
  ORDERForm.Close;
  end;
end;

procedure TORDERForm.FormShow(Sender: TObject);
begin
  Table1.Open;
  Table2.Open;
  D_AppTerMinate:=true;
end;

end.