snmai.pas

简单的餐饮软件部分源码

unit Snmai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Menus;

type
  Tmainform = class(TForm)
    Sbar: TStatusBar;
    but1: TButton;
    but2: TButton;
    but3: TButton;
    but4: TButton;
    but5: TButton;
    but6: TButton;
    Image1: TImage;
    but9: TButton;
    but7: TButton;
    popubase: TPopupMenu;
    pufile1: TMenuItem;
    pufile2: TMenuItem;
    but8: TButton;
    pufile3: TMenuItem;
    pufile4: TMenuItem;
    pufile5: TMenuItem;
    N1: TMenuItem;
    pufile6: TMenuItem;
    pufile7: TMenuItem;
    pufile8: TMenuItem;
    pufile9: TMenuItem;
    pufile10: TMenuItem;
    but10: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure but9Click(Sender: TObject);
    procedure but7Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure but1Click(Sender: TObject);
    procedure but8Click(Sender: TObject);
    procedure pufile2Click(Sender: TObject);
    procedure pufile4Click(Sender: TObject);
    procedure pufile1Click(Sender: TObject);
    procedure pufile7Click(Sender: TObject);
    procedure pufile8Click(Sender: TObject);
    procedure pufile5Click(Sender: TObject);
    procedure pufile6Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure but3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FLogouser,FLogoid:string;
  end;

var
  mainform: Tmainform;

implementation

uses SnackDM,mealform,manform,cashform,mdlform,mealkey,usermodel,kwform,mealmemo,
     sysform,munincome,chbill;

{$R *.dfm}
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
 messagebeep(0);
 if messagebox(0,Pchar(''+DataM.SPLanguage.ReadString('msgbox','0006','')+''),Pchar(''+DataM.SPLanguage.ReadString('msgbox','0007','')+''),MB_ICONQUESTION or MB_YESNO)=IDNO then
    Abort
 else
  begin
   with DataM.recado do
     begin
      Close;
      SQL.Clear;
      SQL.Add('insert snrecorder(userid,username,recdate,rectime,hostname,recmodel) values('''+Flogoid+''','''+Flogouser+''','''+DateToStr(Date)+''','''+TimeToStr(time)+''','''+DataM.ComputerName+''','''+DataM.SPLanguage.ReadString('msgbox','0007','')+''')');
      ExecSQL;
     end;
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
  Application.Terminate;
 end;
end;
procedure Tmainform.FormCreate(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
 StrPCopy(@wndClass[0], 'Shell_TrayWnd');
 wndHandle := FindWindow(@wndClass[0], nil);
 ShowWindow(wndHandle, SW_HIDE);
 self.Width:=screen.Width;
 self.Height:=screen.Height;    
 self.Caption:=DataM.SPLanguage.ReadString('captions','00008','');
 sbar.Panels.Items[0].Text:=DataM.SPLanguage.ReadString('captions','00009','')+DateToStr(Date)+'/'+TimeToStr(time);
 sbar.Panels.Items[2].Text:=DataM.SPLanguage.ReadString('captions','00011','');
 but1.Top:=10;
 but2.Top:=but1.Top+but1.Height+10;
 but3.Top:=but2.Top+but2.Height+10;
 but4.Top:=but3.Top+but3.Height+10;
 but5.Top:=but4.Top+but4.Height+10;
 but6.Top:=but5.Top+but5.Height+10;
 but7.Top:=but6.Top+but6.Height+10;
 but8.Top:=but7.Top+but7.Height+10;
 but9.Top:=but8.Top+but8.Height+10;
 but10.Left:=280;
 but10.Top:=but1.Top;
 but1.Caption:=DataM.SPLanguage.ReadString('captions','00012','');
 but2.Caption:=DataM.SPLanguage.ReadString('captions','00013','');
 but3.Caption:=DataM.SPLanguage.ReadString('captions','00014','');
 but4.Caption:=DataM.SPLanguage.ReadString('captions','00015','');
 but5.Caption:=DataM.SPLanguage.ReadString('captions','00016','');
 but6.Caption:=DataM.SPLanguage.ReadString('captions','00017','');
 but7.Caption:=DataM.SPLanguage.ReadString('captions','00018','');
 but8.Caption:=DataM.SPLanguage.ReadString('captions','00035','');
 but9.Caption:=DataM.SPLanguage.ReadString('captions','00019','');
 but10.Caption:=DataM.SPLanguage.ReadString('captions','00116','');

 popubase.Items[0].Caption:=datam.SPLanguage.ReadString('files','0001','');
 popubase.Items[1].Caption:=datam.SPLanguage.ReadString('files','0002','');
 popubase.Items[2].Caption:=datam.SPLanguage.ReadString('files','0003','');
 popubase.Items[3].Caption:=datam.SPLanguage.ReadString('files','0004','');
 popubase.Items[4].Caption:=datam.SPLanguage.ReadString('files','0005','');
 popubase.Items[6].Caption:=datam.SPLanguage.ReadString('files','0006','');
 popubase.Items[7].Caption:=datam.SPLanguage.ReadString('files','0007','');
 popubase.Items[8].Caption:=datam.SPLanguage.ReadString('files','0008','');
 popubase.Items[9].Caption:=datam.SPLanguage.ReadString('files','0009','');
 popubase.Items[10].Caption:=datam.SPLanguage.ReadString('files','0010','');

end;
procedure Tmainform.FormShow(Sender: TObject);
begin
 with datam.modelado  do
  begin
   Close;
   SQL.Clear;
   SQL.Add('select model1,model2,model3,model4,model5,model6,model7,model8,model9 from snmodel where userid='''+Flogoid+'''');
   Open;
   if Trim(Fields[0].Value)='En' then but1.Enabled:=True else but1.Enabled:=False;
   if Trim(Fields[1].Value)='En' then but2.Enabled:=True else but2.Enabled:=False;
   if Trim(Fields[2].Value)='En' then but3.Enabled:=True else but3.Enabled:=False;
   if Trim(Fields[3].Value)='En' then but4.Enabled:=True else but4.Enabled:=False;
   if Trim(Fields[4].Value)='En' then but5.Enabled:=True else but5.Enabled:=False;
   if Trim(Fields[5].Value)='En' then but6.Enabled:=True else but6.Enabled:=False;
   if Trim(Fields[6].Value)='En' then but7.Enabled:=True else but7.Enabled:=False;
   if Trim(Fields[7].Value)='En' then but8.Enabled:=True else but8.Enabled:=False;
   if Trim(Fields[8].Value)='En' then but10.Enabled:=True else but10.Enabled:=False;
 end;
 sbar.Panels.Items[1].Text:=DataM.SPLanguage.ReadString('captions','00010','')+FLogoid+'\'+FLogouser;
end;
procedure Tmainform.but9Click(Sender: TObject);
begin
  self.Close;
end;
procedure Tmainform.but7Click(Sender: TObject);
begin
 LockWorkStation;
end;
procedure Tmainform.but5Click(Sender: TObject);
begin
 popubase.Popup(but5.Left+but5.Width,but5.Top+but5.Height);
end;
procedure Tmainform.FormResize(Sender: TObject);
begin
 if self.Width<>screen.Width then self.Width:=screen.Width;
 if self.Height<>screen.Height then self.Height:=screen.Height;
end;
procedure Tmainform.but1Click(Sender: TObject);
begin
 cmform:=Tcmform.Create(nil);
 cmform.ShowModal;
end;
procedure Tmainform.but8Click(Sender: TObject);
begin
 fcash:=Tfcash.Create(nil);
 fcash.ShowModal;
end;
procedure Tmainform.pufile2Click(Sender: TObject);
begin
 fdlmeal:=Tfdlmeal.Create(nil);
 fdlmeal.ShowModal;
end;
procedure Tmainform.pufile4Click(Sender: TObject);
begin
 fmealkey:=Tfmealkey.Create(nil);
 fmealkey.ShowModal;
end;
procedure Tmainform.pufile1Click(Sender: TObject);
begin
 fusermodel:=Tfusermodel.Create(nil);
 fusermodel.ShowModal;
end;
procedure Tmainform.pufile7Click(Sender: TObject);
begin
 fkw:=Tfkw.Create(nil);
 fkw.Formflag:='kwform';
 fkw.ShowModal;   
end;

procedure Tmainform.pufile8Click(Sender: TObject);
begin
 fkw:=Tfkw.Create(nil);
 fkw.Formflag:='kwmemoform';
 fkw.ShowModal;   
end;

procedure Tmainform.pufile5Click(Sender: TObject);
begin
 fmealmemo:=Tfmealmemo.Create(nil);
 fmealmemo.ShowModal;  
end;

procedure Tmainform.pufile6Click(Sender: TObject);
begin
 fsysetup:=Tfsysetup.Create(nil);
 fsysetup.ShowModal;  
end;

procedure Tmainform.but6Click(Sender: TObject);
begin
 funbu:=Tfunbu.Create(nil);
 funbu.ShowModal;  
end;

procedure Tmainform.but3Click(Sender: TObject);
begin
 fchbill:=Tfchbill.Create(nil);
 fchbill.ShowModal;  
end;

end.