main.pas

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList,registerMember,registerEmployee,
  registerArticle,transaction,queryMember,consumptionInfo,
  consumptionSum,queryBalance,queryDeficiency,queryEmployee,
  queryAchievement,queryArticle,querySale,changePwd,registerCompany,
  authorization,logIn,addBalance;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Help1: TMenuItem;
    HelpAboutItem: TMenuItem;
    OpenDialog: TOpenDialog;
    StatusBar: TStatusBar;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    FileNew1: TAction;
    FileSave1: TAction;
    FileExit1: TAction;
    FileOpen1: TAction;
    FileSaveAs1: TAction;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowArrangeAll1: TWindowArrange;
    WindowMinimizeAll1: TWindowMinimizeAll;
    HelpAbout1: TAction;
    FileClose1: TWindowClose;
    WindowTileVertical1: TWindowTileVertical;
    ToolBar2: TToolBar;
    ImageList1: TImageList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    luru1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    procedure FileNew1Execute(Sender: TObject);
    procedure FileOpen1Execute(Sender: TObject);
    procedure HelpAbout1Execute(Sender: TObject);
    procedure FileExit1Execute(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure luru1Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
    //当前登陆的用户名和密码
    userName,userPwd:string;
    //当前用户权限
    userPower:string;
    //根据当前用户权限设置菜单项和命令按钮
    procedure setPower;
    procedure CreateMDIChild(const Name: string);
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses CHILDWIN, about,addGoods;

procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { create a new MDI child window }
  Child := TMDIChild.Create(Application);
  Child.Caption := Name;
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;

procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
  CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
end;

procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
  if OpenDialog.Execute then
    CreateMDIChild(OpenDialog.FileName);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
   aboutBox:=TAboutBox.Create(self);
  AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
   //创建录入会员信息窗体
   frmRegisterMember:=TFrmRegisterMember.Create(self);
   frmRegisterMember.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
   //创建录入员工信息窗体
   frmRegisterEmployee:=TFrmRegisterEmployee.Create(self);
end;

procedure TMainForm.luru1Click(Sender: TObject);
begin
   //创建录入商品信息窗体
   frmRegisterArticle:=TFrmRegisterArticle.Create(self);
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
   //创建会员购买商品窗体
   frmTransaction:=TFrmTransaction.Create(self);
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
   frmQueryMember:=TFrmQueryMember.Create(self);
   if userPower='3' then                      //没有修改和删除权限
   begin
      frmQueryMember.change.Enabled:=false;
      frmQueryMember.delete.Enabled:=false;
   end;
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
   frmconsumptionSum:=TFrmconsumptionSum.Create(self);
   frmconsumptionSum.ShowModal;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
   frmQueryDeficiency:=TFrmQueryDeficiency.Create(self);
   frmQueryDeficiency.ShowModal;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
   frmQueryEmployee:=TFrmQueryEmployee.Create(self);
   if userPower='3' then                       //没有修改和删除权限
   begin
      frmQueryEmployee.change.Enabled:=false;
      frmQueryEmployee.delete.Enabled:=false;
   end;
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
   frmqueryArticle:=TFrmqueryArticle.Create(self);
   if userPower='3' then                     //没有修改和删除权限
   begin
      frmQueryArticle.change.Enabled:=false;
      frmQueryArticle.delete.Enabled:=false;
   end;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
   frmQuerySale:=TFrmQuerySale.Create(self);
   frmQuerySale.ShowModal;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
   close;                   //关闭住窗体
   application.Terminate;   //结束应用程序
end;

procedure TMainForm.N5Click(Sender: TObject);
var
   rt:integer;
begin
   frmChangePwd:=TFrmChangePwd.Create(self);
   rt:=frmChangePwd.ShowModal;
   if rt=mrOk then                       //修改密码
   begin
      frmChangePwd.changePwd(userName);  //调用修改密码窗体对象的方法
   end;
   frmChangePwd.Destroy;
end;

procedure TMainForm.N6Click(Sender: TObject);
var
   rt:integer;
   f:file;
   s1,s2,s3,s4:string[160];
begin
   frmRegisterCompany:=TFrmRegisterCompany.Create(self);
   if fileExists('info.ini') then              //如果单位配置文件存在
   begin
      assignFile(f,'info.ini');
      reSet(f,1);                             //打开文件读出信息
      blockRead(f,s1,60);
      blockRead(f,s2,100);
      blockRead(f,s3,12);
      blockRead(f,s4,28);
      frmRegisterCompany.edit1.Text:=s1;
      frmRegisterCompany.edit2.Text:=s2;
      frmRegisterCompany.edit3.Text:=s3;
      frmRegisterCompany.edit4.Text:=s4;
      closeFile(f);
   end;
   rt:=frmRegisterCompany.ShowModal;
   if rt=mrOk then                          //录入使用单位信息
   begin
      frmRegisterCompany.registerCompany;   //调用使用单位信息窗体对象的方法
   end;
   frmRegisterCompany.Destroy;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
   frmAuthorization:=TFrmAuthorization.Create(self); //创建窗体对象
   frmAuthorization.ShowModal;                       //以模式对话框形式显示
   frmAuthorization.Destroy;
end;

procedure TMainForm.FormShow(Sender: TObject);
var
   //登录对话框返回值
   rt:integer;
   //失败次数
   n:integer;
begin
   n:=0;
   frmLogIn:=TFrmLogIn.Create(application);
   while n<3 do
   begin
   rt:=frmLogIn.ShowModal;
   if rt=mrCancel then                        //用户按取消
   begin
      close;
      exit;
   end
   else if (rt=mrOk) and frmLogIn.canPass then //登陆成功
   begin
      userName:=frmLogIn.name.Text;
      userPwd:=frmLogIn.pwd.Text;
      userPower:=frmLogIn.power;
      setPower;
      exit;
   end
   else
   begin                                     //失败
      n:=n+1;                                //失败次数增加
      if n>=3 then
      begin
         messageDlg('您已经失败3次，程序将终止',mtWarning,[mbOk],0);
         close;
         application.Terminate;
         exit;
      end
      else                                   //失败次数少于3，则提示重新尝试
         messageDlg('密码错误，请重试',mtWarning,[mbOk],0);
   end;
   end;
end;


procedure TMainForm.setPower;
begin
   if userPower='1' then                     //管理权限
   begin
       //具有所有权限
   end
   else if userPower='2' then                //操作权限
   begin
      n2.Enabled:=false;
      n3.Enabled:=false;
      n8.Enabled:=false;
      n6.Enabled:=false;
   end
   else if userPower='3' then                //访问权限
   begin
   //将每个查询窗体关于修改，添加，删除按钮制成disabled
      n2.Enabled:=false;
      n3.Enabled:=false;
      n8.Enabled:=false;
      n6.Enabled:=false;
      n10.Enabled:=false;
   end;
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
   frmAddBalance:=TFrmAddBalance.Create(self);
   frmAddBalance.ShowModal;                    //以模式对话框形式显示
end;

procedure TMainForm.N30Click(Sender: TObject);
begin
   frmAddGoods:=TFrmAddGoods.Create(self);
   frmAddGoods.ShowModal;                     //以模式对话框形式显示
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
   frmConsumptionInfo:=TFrmConsumptionInfo.Create(self);
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
   frmqueryBalance:=TFrmqueryBalance.Create(self);
   frmqueryBalance.ShowModal;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
   frmQueryArchievement:=TfrmQueryArchievement.Create(self);
   frmQueryArchievement.ShowModal;
end;

end.