rjsmain.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

begin
     zhtjform:=Tzhtjform.Create(Self);
     zhtjform.showmodal;
     zhtjform.Free;
end;

procedure TmainForm.ToolButton4Click(Sender: TObject);
begin
//     userform:=Tuserform.Create(Self);
//     userform.showmodal;
     qtmain.jzbz:='';
     qtmain.twbh:='';
     qtmain.szdd:=szdd;
     qtform.ShowModal;
end;

procedure TmainForm.ToolButton5Click(Sender: TObject);
begin
//     userform:=Tuserform.Create(Self);
//     userform.showmodal;
     qtmain.szdd:=szdd;
     qtkdform:=Tqtkdform.Create(Self);
     qtkdform.showmodal;
     qtkdform.Free;
end;
              
procedure TmainForm.ToolButton6Click(Sender: TObject);
begin
{       cyydform:=Tcyydform.Create(Self);
       cyydform.showmodal;
       cyydform.Free;
}     ctydform:=Tctydform.Create(Self);
     ctydform.showmodal;
     ctydform.Free;
end;

procedure TmainForm.ToolButton10Click(Sender: TObject);
begin
     PostMessage(GetDesktopWindow,WM_SYSCOMMAND,SC_SCREENSAVE,0);
end;

procedure TmainForm.ToolButton9Click(Sender: TObject);
begin
    if poweroff then
    begin
    if messagedlg('退出本程序将自动关闭计算机!'#13+'您真的要退出吗?'+#13+'Yes_退出,No_不退出!',mtwarning,[mbyes,mbno],0)=mryes then
     mainform.Close;
    end
    else mainform.Close;
end;

procedure TmainForm.N1Click(Sender: TObject);
begin
     skyForm:=TskyForm.Create(self);
     skyForm.showmodal;
     skyForm.Free;
end;

procedure TmainForm.N2Click(Sender: TObject);
begin
     wjdjform:=Twjdjform.Create(Self);
     wjdjform.showmodal;
     wjdjform.Free;
end;

procedure TmainForm.N6Click(Sender: TObject);
begin
     hyform:=Thyform.Create(Self);
     hyform.showmodal;
     hyform.Free;
end;

procedure TmainForm.N3Click(Sender: TObject);
begin
     ssxsform:=Tssxsform.Create(self);
     ssxsform.showmodal;
     ssxsform.Free;
end;

procedure TmainForm.N4Click(Sender: TObject);
begin
     zhtjform:=Tzhtjform.Create(Self);
     zhtjform.ShowModal;
     zhtjform.Free;
end;

procedure TmainForm.N9Click(Sender: TObject);
begin
     thwhForm:=TthwhForm.Create(self);
     thwhForm.showmodal;
     thwhForm.Free;
end;

procedure TmainForm.N10Click(Sender: TObject);
begin
     rywhForm:=TrywhForm.Create(Self);
     rywhForm.showmodal;
     rywhForm.Free;
end;

procedure TmainForm.N11Click(Sender: TObject);
begin
     clwhform:=Tclwhform.Create(Self);
     clwhForm.showmodal;
     clwhform.Free;
end;

procedure TmainForm.N12Click(Sender: TObject);
begin
    gjsswhForm:=TgjsswhForm.Create(Self);
    gjsswhForm.showmodal; //modal;
    gjsswhForm.Free;
end;

procedure TmainForm.N13Click(Sender: TObject);
begin
//    gnszform:=Tgnszform.Create(Self);
    gnszform.showmodal;
//    gnszform.Free;
end;

procedure TmainForm.N14Click(Sender: TObject);
begin
     yhfaform:=Tyhfaform.Create(Self);
     yhfaform.showmodal;
     yhfaform.Free;
end;

procedure TmainForm.N15Click(Sender: TObject);
begin
     jsfswhForm:=TjsfswhForm.Create(Self);
     jsfswhForm.showmodal;
     jsfswhForm.Free;
end;

procedure TmainForm.N16Click(Sender: TObject);
begin
     tcyywhForm:=TtcyywhForm.Create(self);
     tcyywhForm.showmodal;
     tcyywhForm.Free;
end;

procedure TmainForm.N17Click(Sender: TObject);
begin
    jgmswhForm:=TjgmswhForm.Create(Self);
    jgmswhForm.showmodal;
    jgmswhForm.Free;
end;

procedure TmainForm.N18Click(Sender: TObject);
begin
     ctctform:=Tctctform.Create(Self);
     ctctform.showmodal;
     ctctform.Free;
end;

procedure TmainForm.N19Click(Sender: TObject);
begin
     ctwhform:=Tctwhform.Create(Self);
     ctwhform.showmodal;
     ctwhform.Free;
end;

procedure TmainForm.N20Click(Sender: TObject);
begin
     djszform:=Tdjszform.Create(Self);
     djszform.showmodal;
     djszform.Free;
end;

procedure TmainForm.ToolButton2Click(Sender: TObject);
begin
     checkform:=Tcheckform.Create(Self);
     checkform.Caption:='员工签到处理';
     checkform.showmodal;
     checkform.Free;
end;

procedure TmainForm.ToolButton3Click(Sender: TObject);
begin
     checkform:=Tcheckform.Create(Self);
     checkform.Caption:='员工签退处理';
     checkform.showmodal;
     checkform.Free;
end;

procedure TmainForm.N5Click(Sender: TObject);
begin
     cwflform:=Tcwflform.Create(Self);
     cwflform.showmodal;
     cwflform.Free;
end;

procedure TmainForm.N7Click(Sender: TObject);
begin
     hyxfform:=Thyxfform.Create(Self);
     hyxfform.showmodal;
     hyxfform.Free;
end;

procedure TmainForm.N21Click(Sender: TObject);
begin
     hyglform:=Thyglform.Create(Self);
     hyglform.ShowModal;
     hyglform.Free;
end;

procedure TmainForm.N22Click(Sender: TObject);
begin
     zgsForm:=TzgsForm.Create(self);
     zgsForm.showmodal;
     zgsForm.Free;
end;

procedure TmainForm.N23Click(Sender: TObject);
begin
     dayform:=Tdayform.Create(self);
     dayform.ShowModal;
     dayform.Free;
end;

procedure TmainForm.N32Click(Sender: TObject);
begin
     bestslform:=Tbestslform.Create(self);
     bestslform.ShowModal;
     bestslform.Free;
end;

procedure TmainForm.N33Click(Sender: TObject);
begin
     bestjeform:=Tbestjeform.Create(self);
     bestjeform.ShowModal;
     bestjeform.Free;
end;

procedure TmainForm.N34Click(Sender: TObject);
begin
     xykform:=Txykform.Create(self);
     xykform.ShowModal;
     xykform.Free;
end;

procedure TmainForm.N35Click(Sender: TObject);
begin
     yhzrform:=Tyhzrform.Create(self);
     yhzrform.ShowModal;
     yhzrform.Free;
end;

procedure TmainForm.N38Click(Sender: TObject);
begin
     ygwhform:=Tygwhform.Create(self);
     ygwhform.ShowModal;
     ygwhform.Free;
end;

procedure TmainForm.N36Click(Sender: TObject);
begin
     N7Click(sender);
end;

procedure TmainForm.N29Click(Sender: TObject);
begin
     ygsxbform:=Tygsxbform.Create(self);
     ygsxbform.ShowModal;
     ygsxbform.Free;
end;

procedure TmainForm.N25Click(Sender: TObject);
begin
     xmflfrm:=Txmflfrm.Create(self);
     xmflfrm.ShowModal;
     xmflfrm.Free;
end;

procedure TmainForm.N27Click(Sender: TObject);
begin
     xmcbfxForm:=TxmcbfxForm.Create(self);
     xmcbfxForm.ShowModal;
     xmcbfxForm.Free;
end;

procedure TmainForm.N30Click(Sender: TObject);
begin
     weekForm:=TweekForm.Create(self);
     weekForm.ShowModal;
     weekForm.Free;
end;

procedure TmainForm.N39Click(Sender: TObject);
begin
    monthForm:=TmonthForm.Create(self);
    monthForm.ShowModal;
    monthForm.Free;
end;

procedure TmainForm.N28Click(Sender: TObject);
begin
     zdxsform:=Tzdxsform.Create(self);
     zdxsform.ShowModal;
     zdxsform.Free;
end;

procedure TmainForm.N26Click(Sender: TObject);
begin
     dayform:=Tdayform.Create(self);
     dayform.ShowModal;
     dayform.Free;
end;

procedure TmainForm.cookmodeClick(Sender: TObject);
begin
{  Forminscook:=TForminscook.Create(Self);
     Forminscook.showmodal;
     Forminscook.Free;}
end;

procedure TmainForm.N40Click(Sender: TObject);
begin
     prtForm:=TprtForm.Create(self);
     prtForm.showmodal;
     prtForm.Free;
end;

procedure TmainForm.N41Click(Sender: TObject);
begin
    zc:=Tzc.Create(Self);
    zc.showmodal;
    zc.Free;
end;

procedure TmainForm.N42Click(Sender: TObject);
begin
     setform:=Tsetform.Create(Self);
     setform.showmodal;
     setform.Free;
end;

procedure TmainForm.N44Click(Sender: TObject);
begin
     pffxf1:=Tpffxf1.Create(Self);
     pffxf1.showmodal;
     pffxf1.Free;
end;

procedure TmainForm.N43Click(Sender: TObject);
begin
     pflrf:=Tpflrf.Create(Self);
     pflrf.showmodal;
     pflrf.Free;
end;

procedure TmainForm.N45Click(Sender: TObject);
begin
     form16.showmodal;
end;

procedure TmainForm.N46Click(Sender: TObject);
begin
     form3.showmodal;
end;

procedure TmainForm.N47Click(Sender: TObject);
begin
     skyForm1:=TskyForm1.Create(self);
     skyForm1.showmodal;
     skyForm1.Free;
end;

procedure TmainForm.N48Click(Sender: TObject);
begin
     skyForm2:=TskyForm2.Create(self);
     skyForm2.showmodal;
     skyForm2.Free;
end;

procedure TmainForm.N49Click(Sender: TObject);
begin
     jmdForm:=TjmdForm.Create(self);
     jmdForm.showmodal;
     jmdForm.Free;
end;

end.