rjsmain.pas

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

unit rjsmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Buttons, DBActns, ActnList, StdCtrls, Menus, DBTables,
  DB, ExtCtrls, ADODB, ImgList, ToolWin, jpeg;

type
  TmainForm = class(TForm)
    Database1: TDatabase;
    RJSADO: TADOConnection;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton11: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton12: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton15: TToolButton;
    ToolButton14: TToolButton;
    ToolButton10: TToolButton;
    ToolButton13: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    PopupMenu3: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    Label3: TLabel;
    N40: TMenuItem;
    ADOQuery1: TADOQuery;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure TabSheet9Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet13Show(Sender: TObject);
    procedure TabSheet14Show(Sender: TObject);
    procedure TabSheet16Show(Sender: TObject);
    procedure TabSheet12Show(Sender: TObject);
    procedure TabSheet10Show(Sender: TObject);
    procedure TabSheet11Show(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TabSheet15Show(Sender: TObject);
    procedure TabSheet17Show(Sender: TObject);
    procedure TabSheet18Show(Sender: TObject);
    procedure TabSheet19Show(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet21Show(Sender: TObject);
    procedure TabSheet22Show(Sender: TObject);
    procedure TabSheet20Show(Sender: TObject);
    procedure TabSheet23Show(Sender: TObject);
    procedure TabSheet31Show(Sender: TObject);
    procedure TabSheet33Show(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure cookmodeClick(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
  private
    xx:string;
    poweroff:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;
  szdd,dwmc,computer_name,spbt:string;
implementation

uses gnsz, cdwh, qtmain,jsfsdmwh, cldmwh, thdmwh, rydmwh, yhfawh,
  tcyydmwh, jgmsdmwh, ctdmwh, djszwh, ctydsz, ctctwh, pass, qtkdsz, hygl,
  skycwbb, ssxsbb, zhtjbb, wjdjbb, checkinout, cwflbb, hykxfgl, hycxgl,
  zgscwbb, dayrep, bestslrep, bestjerep, xykrep, yhzrrep, ygdmwh, ygsxbrep,
  xmcbfxrep, xmflbgrep, Weekxsbgrep, Monthxsbgrep, zdxsrep, cookmode,
  inscookmode, cyyd, prtszwh, zcpass, syssetU, pffx1, pflr, sbsz, chanpin,
  skycwbb1, skycwbb2, jmddmwh;

{$R *.dfm}

procedure TmainForm.FormCreate(Sender: TObject);
var flnm:string;
    lpBuffer: array[0..MAX_PATH] of char;
    dwSize: DWORD;
begin
     mainform.Top:=0;
     mainform.Left:=0;
     mainform.Height:=600;
     mainform.Width:=800;
//     mainform.AutoSize:=true;
     database1.Connected:=true;
     flnm:=ExtractFilePath(Application.ExeName)+'rjscygl.udl';
     rjsado.ConnectionString:='FILE NAME='+flnm;
     rjsado.Provider:=flnm;
     RJSADO.Connected:=true;
//     if fileexists(flnm+'Pprinter.exe') then ExecProgram(flnm+'Pprinter.exe',2);
     if fileexists(ExtractFilePath(Application.ExeName)+'主画面.jpg') then image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'主画面.jpg');
     userform:=Tuserform.Create(Self);
     userform.showmodal;
     dwSize:= MAX_PATH;
//     first_prt:='true';
     if not GetComputerName(lpBuffer, dwSize) then
        raise Exception.Create(SysErrorMessage(GetLastError()));
      computer_name:= StrPas(lpBuffer);
end;

procedure TmainForm.TabSheet9Show(Sender: TObject);
begin
     mainform.Close;
end;

procedure TmainForm.TabSheet4Show(Sender: TObject);
begin
     qtmain.jzbz:='';
     qtmain.twbh:='';
     qtform.show;
end;

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

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

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

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

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

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

procedure TmainForm.FormActivate(Sender: TObject);
var    ss:Tsystemtime;
       tt:string;
       kk:_OSVERSIONINFO;
begin
     if not database1.Connected then database1.Connected:=true;
     if not rjsado.Connected then rjsado.Connected:=true;
     xx:='';
     if pass.yhbh='' then application.Terminate;
     if pos(toolbutton1.Caption,pass.yhqx)>0 then toolbutton1.Visible:=true else toolbutton1.Visible:=false;
     if pos(toolbutton2.Caption,pass.yhqx)>0 then toolbutton2.Visible:=true else toolbutton2.Visible:=false;
     if pos(toolbutton3.Caption,pass.yhqx)>0 then toolbutton3.Visible:=true else toolbutton3.Visible:=false;
     if pos(toolbutton4.Caption,pass.yhqx)>0 then toolbutton4.Visible:=true else toolbutton4.Visible:=false;
     if pos(toolbutton5.Caption,pass.yhqx)>0 then toolbutton5.Visible:=true else toolbutton5.Visible:=false;
     if pos(toolbutton6.Caption,pass.yhqx)>0 then toolbutton6.Visible:=true else toolbutton6.Visible:=false;
     if pos(toolbutton7.Caption,pass.yhqx)>0 then toolbutton7.Visible:=true else toolbutton7.Visible:=false;
     if pos(toolbutton8.Caption,pass.yhqx)>0 then toolbutton8.Visible:=true else toolbutton8.Visible:=false;
     if pos(toolbutton15.Caption,pass.yhqx)>0 then toolbutton15.Visible:=true else toolbutton15.Visible:=false;
     if pos('强制关机',pass.yhqx)>0 then poweroff:=true else poweroff:=false;
     label1.Caption:=dwmc;
//
     kk.dwOSVersionInfoSize:=sizeof(kk);
     getversionEx(_osversioninfo(kk));
     adoquery1.Open;
     getsystemtime(ss);
     ss.wYear:=strtoint(formatdatetime('yy',adoquery1.FieldByName('rq').AsDateTime));
     ss.wMonth:=strtoint(formatdatetime('mm',adoquery1.FieldByName('rq').AsDateTime));
     ss.wDay:=strtoint(formatdatetime('dd',adoquery1.FieldByName('rq').AsDateTime));
     tt:=formatdatetime('hh:mm:ss',adoquery1.FieldByName('rq').AsDateTime);
     ss.wHour:=strtoint(copy(tt,1,2));
     ss.wMinute:=strtoint(copy(tt,4,2));
     ss.wSecond:=strtoint(copy(tt,7,2));
    if kk.dwPlatformId = VER_PLATFORM_WIN32_NT then setlocaltime(_systemtime(ss))
    else setsystemtime(_systemtime(ss));
     adoquery1.Close;
//
     xx:='xx';
end;

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

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

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

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

procedure TmainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
   hToken:THandle;
   tkp : TOKEN_PRIVILEGES;
   ReturnLength : DWord;
begin
     RJSADO.Connected:=false;
     database1.Connected:=false;
    if poweroff then
    begin
     if (not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken))then   //获取优先权
      application.Terminate;
     LookupPrivilegeValuew(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
     tkp.PrivilegeCount := 1;
     tkp.Privileges[0].Attributes :=SE_PRIVILEGE_ENABLED;
     ReturnLength :=50;
     AdjustTokenPrivileges(hToken, FALSE, tkp, 0,nil,ReturnLength);
     exitwindowsex(ewx_poweroff,1);
    end;  
end;

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

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

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

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

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

procedure TmainForm.TabSheet33Show(Sender: TObject);