manage.pas

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

unit MANAGE;

interface

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

type
  TMNGForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Btgai: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    BtAddcai: TBitBtn;
    BtCanc: TBitBtn;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Label10: TLabel;
    Label11: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    Edit9: TEdit;
    Label13: TLabel;
    Edit10: TEdit;
    Label14: TLabel;
    Edit11: TEdit;
    Label15: TLabel;
    Edit12: TEdit;
    BtXG: TBitBtn;
    Label16: TLabel;
    Label17: TLabel;
    Edit13: TEdit;
    Label18: TLabel;
    Edit14: TEdit;
    Label19: TLabel;
    Edit15: TEdit;
    Label20: TLabel;
    Edit16: TEdit;
    Label21: TLabel;
    Edit17: TEdit;
    Label22: TLabel;
    Edit18: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    RvDataSetConnection1: TRvDataSetConnection;
    Table3: TTable;
    RvProject1: TRvProject;
    Label23: TLabel;
    BitBtn4: TBitBtn;
    TabSheet4: TTabSheet;
    Table4: TTable;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    Label24: TLabel;
    Label25: TLabel;
    Edit19: TEdit;
    Label26: TLabel;
    Edit20: TEdit;
    Label27: TLabel;
    Edit21: TEdit;
    BitBtn5: TBitBtn;
    Label28: TLabel;
    Label29: TLabel;
    Edit22: TEdit;
    BitBtn6: TBitBtn;
    procedure BtgaiClick(Sender: TObject);
    procedure BtAddcaiClick(Sender: TObject);
    procedure BtCancClick(Sender: TObject);
    procedure BtXGClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    
private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MNGForm: TMNGForm;
  S_AppTerMinate:boolean;
implementation

{$R *.dfm}



procedure TMNGForm.BtgaiClick(Sender: TObject);
begin
 with Table1 do
 begin
  Edit;
  FieldByName('菜名').AsString:=Edit1.Text;
  FieldByName('价格').AsFloat:=StrToFloat(Edit2.Text);
  FieldByName('折扣').AsFloat:=StrToFloat(Edit3.Text);
  Post;
  Refresh;
  end;
  Edit1.Text:='';
  Edit1.SetFocus;
  Edit2.Text:='';
  Edit2.SetFocus;
  Edit3.Text:='';
  Edit3.SetFocus;
end;

procedure TMNGForm.BtAddcaiClick(Sender: TObject);
begin
  with Table1 do
 begin
  Insert;
  FieldByName('菜号').AsString:=Edit4.Text;
  FieldByName('菜名').AsString:=Edit5.Text;
  FieldByName('价格').AsFloat:=StrToFloat(Edit6.Text);
  FieldByName('折扣').AsFloat:=StrToFloat(Edit7.Text);
  Post;
  Refresh;
  end;
  Edit4.Text:='';
  Edit4.SetFocus;
  Edit5.Text:='';
  Edit5.SetFocus;
  Edit6.Text:='';
  Edit6.SetFocus;
  Edit7.Text:='';
  Edit7.SetFocus;
end;

procedure TMNGForm.BtCancClick(Sender: TObject);
begin
 showmessage('delete this really?');
 Table1.Delete;
end;

procedure TMNGForm.BtXGClick(Sender: TObject);
begin
 with Table2 do
 begin
  Edit;
  FieldByName('Name').AsString:=Edit8.Text;
  FieldByName('Company').AsString:=Edit9.Text;
  FieldByName('Sex').AsString:=Edit10.Text;
  FieldByName('Type').AsString:=Edit11.Text;
  FieldByName('Password').AsString:=Edit12.Text;
  Post;
  Refresh;
  end;
  Edit8.Text:='';
  Edit8.SetFocus;
  Edit9.Text:='';
  Edit9.SetFocus;
  Edit10.Text:='';
  Edit10.SetFocus;
  Edit11.Text:='';
  Edit11.SetFocus;
  Edit12.Text:='';
  Edit12.SetFocus;
end;

procedure TMNGForm.BitBtn1Click(Sender: TObject);
begin
  with Table2 do
 begin
  Insert;
  FieldByName('UserId').AsString:=Edit13.Text;
  FieldByName('Name').AsString:=Edit14.Text;
  FieldByName('Company').AsString:=Edit15.Text;
  FieldByName('Sex').AsString:=Edit16.Text;
  FieldByName('Type').AsString:=Edit17.Text;
  FieldByName('Password').AsString:=Edit18.Text;
  Post;
  Refresh;
  end;
  Edit13.Text:='';
  Edit13.SetFocus;
  Edit14.Text:='';
  Edit14.SetFocus;
  Edit15.Text:='';
  Edit15.SetFocus;
  Edit16.Text:='';
  Edit16.SetFocus;
  Edit17.Text:='';
  Edit17.SetFocus;
  Edit18.Text:='';
  Edit18.SetFocus;
end;

procedure TMNGForm.BitBtn2Click(Sender: TObject);
begin
 showmessage('delete this User really?');
 Table2.Delete;
end;

procedure TMNGForm.FormShow(Sender: TObject);
begin
 S_AppTerminate:=true;
end;

procedure TMNGForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if S_AppTerminate=true then
  Application.Terminate;
end;

procedure TMNGForm.BitBtn3Click(Sender: TObject);
begin
  Table1.Close;
  Table2.Close;

  S_AppTerminate:=False;
  MNGForm.Close;
end;

procedure TMNGForm.BitBtn4Click(Sender: TObject);
begin
 Rvproject1.Execute;
end;



procedure TMNGForm.BitBtn5Click(Sender: TObject);
begin
 with Table4 do
 begin
  Insert;
  FieldByName('TableNo').AsString:=Edit19.Text;
  FieldByName('Position').AsString:=Edit20.Text;
  FieldByName('Status').AsString:=Edit21.Text;
  Post;
  Refresh;
  end;
  Edit19.Text:='';
  Edit19.SetFocus;
  Edit20.Text:='';
  Edit20.SetFocus;
  Edit21.Text:='';
  Edit21.SetFocus;
end;

procedure TMNGForm.BitBtn6Click(Sender: TObject);
begin
  with Table4 do
 begin
  Edit;
  FieldByName('Status').AsString:=Edit22.Text;
  Post;
  Refresh;
  end;
  Edit22.Text:='';
  Edit22.SetFocus;
end;

end.