menu.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

child.show;
end;

procedure Tmainform.N_setpencodeClick(Sender: TObject);
var child:txjyhsdform;
begin
child:=txjyhsdform.Create(application);
child.show;

//  xjyhsdform:=txjyhsdform.create(self);
 // xjyhsdform.showmodal;
 // xjyhsdform.free;
end;

procedure Tmainform.N_StatuSetClick(Sender: TObject);
begin
  keysetform:=tkeysetform.create(self);
  keysetform.showmodal;
  keysetform.free;

end;

procedure Tmainform.N_penmodeClick(Sender: TObject);
var child:tsetmodeform;
begin
child:=tsetmodeform.Create(application);
child.show;
end;

procedure Tmainform.FormCreate(Sender: TObject);
var
 filename:string;
begin
  filename:=ExtractFileDir(APPLICATION.EXENAME)+'\Background.bmp' ;
  if fileexists(filename) then
    Image1.Picture.LoadFromFile(filename);

  FClientInstance := MakeObjectInstance(ClientWndProc);
  FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
  SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
  if not assigned(DM_sjbf) then
  Application.CreateForm(TDm_sjbf, DM_sjbf);

   end;

procedure Tmainform.FormShow(Sender: TObject);
var
  i:integer;
  pass_string:string;
  filename:string;
  f1,f2:real;
  capss:string;
  w,h,t,l:integer;
  cl1:tcolor;
  lx1,lx2,ly1,ly2:integer;
  inif:tinifile;
  path,filename1,ss,temp,temp1,temp2:string;
begin
 with DM_user.T_user do
begin
  close;
  open;
  pass_string:=password.edit1.text;
  //pass_string:=user.encrypt(pass_string);
  //查找用户
  if Locate('username;password', VarArrayOf([password.combobox1.text,
     pass_string ]), [loCaseInsensitive]) then
    begin
    pass_string:=fieldbyname('right').asstring ;
    pass_string:=user.decrypt(pass_string);
    poten(pass_string);
          end;
      end;
filename1:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
if not fileexists(filename1) then
filename1:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
else filename1:=extractfiledir(application.exename)+'\hdxgxt.ini';
inif:=TInifile.Create(filename1);
temp:=inif.ReadString('penmode','mode',ss);
temp1:=inif.readstring('MANUINFO','SPLASHNAME',ss);
temp2:=inif.ReadString('com_baud','type',temp2);
inif.Free;
if temp2='' then
   combaud:=0 //2400
   else
   combaud:=strtoint(temp2);//19200
if temp1='' then
temp1:='RayLine Electronic Patrol System';
mainform.Caption:=temp1;
application.Title:=temp1;
end;
procedure Tmainform.FormResize(Sender: TObject);
var
  filename:string;
  f1,f2:real;
  w,h,t,l:integer;
begin
 { filename:=ExtractFileDir(APPLICATION.EXENAME)+'\pen.bmp';
  if fileexists(filename) then
  begin
//    image1.Picture.LoadFromFile(filename);
    drawgroud;
  end;}
  mainform.WindowState:=wsMaximized;
end;

{procedure Tmainform.drawgroud;
var
  f1,f2:real;
  capss:string;
  w,h,t,l:integer;
  cl1:tcolor;
  lx1,lx2,ly1,ly2:integer;
  b1:tbrush;
  pen1:tpen;
begin
    f1:=image1.Picture.Width/image1.picture.Height;
    f2:=(panel2.Width-2)/(panel2.Height-2);
    if f1>f2 then
    begin
      w:=panel2.Width-2;
      h:=round((panel2.Width-2)/f1);
      t:=(panel2.height-2-h) div 2;
      image1.top:=t;
      image1.left:=0;
      image1.width:=w;
      image1.Height:=h;
      cl1:=image1.Canvas.Pixels[10,10];

      lx1:=0;
      lx2:=w;
      ly1:=0;
      ly2:=(panel2.height-2-h) div 4;
      with image2 do
      begin
        b1:=image2.Canvas.Brush;
        pen1:=image2.canvas.pen;
        image2.Canvas.brush.color:=$00ffffff-cl1;
        image2.Canvas.pen.Color:=$00ffffff-cl1;
        image2.Canvas.FillRect(rect(0,0,image2.width,image2.height));
        image2.Canvas.Pen.Width:=1;
        image2.Canvas.pen.Color:=cl1;
        image2.canvas.Brush.color:=cl1;
//        image2.canvas.Brush.style:=bsDiagCross;
        image2.canvas.Rectangle(lx1,ly1,lx2,ly2);
        ly1:=panel2.height-2-ly2;
        ly2:=panel2.height-2;
        image2.canvas.Rectangle(lx1,ly1,lx2,ly2);
        image2.Canvas.Brush:=b1;
        image2.canvas.pen:=pen1;
      end
    end else
    begin
      h:=panel2.height-2;
      w:=round((panel2.height-2)*f1);
      l:=(panel2.Width-2-w) div 2;
      image1.left:=l;
      image1.top:=0;
      image1.Height:=h;
      image1.width:=w;
      cl1:=image1.Canvas.Pixels[10,10];

      lx1:=0;
      lx2:=(panel2.Width-2-w) div 4;
      ly1:=0;
      ly2:=h;
      with image2 do
      begin
        b1:=image2.Canvas.Brush;
        pen1:=image2.canvas.pen;
        image2.Canvas.brush.color:=$00ffffff-cl1;
        image2.Canvas.pen.Color:=$00ffffff-cl1;
        image2.Canvas.FillRect(rect(0,0,image2.width,image2.height));
        image2.Canvas.Pen.Width:=1;
        image2.Canvas.pen.Color:=cl1;
        image2.canvas.Brush.color:=cl1;
//        image2.canvas.Brush.style:=bsDiagCross;
        image2.canvas.Rectangle(0,0,lx2,ly2);
        lx1:=panel2.width-2-lx2;
        lx2:=panel2.width-2;
        image2.canvas.Rectangle(lx1,ly1,lx2,ly2);
        image2.Canvas.Brush:=b1;
        image2.canvas.pen:=pen1;
      end;
    end;
end;}
procedure Tmainform.N12Click(Sender: TObject);
var child:tkeysetform;
begin
child:=tkeysetform.Create(application);
child.show;
 //keysetform:=tkeysetform.create(self);
  //keysetform.showmodal;
  //keysetform.free;
end;

procedure Tmainform.FormActivate(Sender: TObject);
begin
statusbar.Panels[0].text:=password.ComboBox1.Text;
end;

procedure Tmainform.N9Click(Sender: TObject);
begin
  if Application.MessageBox('確實要更改操作員嗎?','消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
   begin
     self.hide;
     password.show;
     password.combobox1.setfocus;
   end;
end;

procedure Tmainform.N8Click(Sender: TObject);
begin
 application.Terminate;
 Close;
end;

procedure Tmainform.FormPaint(Sender: TObject);
begin
mainform.WindowState:=wsMaximized;
end;

procedure Tmainform.ToolButton9Click(Sender: TObject);
var
  Child: Tuser;
begin
  //mainform.toolbutton26.enabled:=false;
  //mainform.n7.enabled:=false;
  user:=tuser.Create(self);
  user.ShowModal ;
  user.free;
end;

procedure Tmainform.ToolButton2Click(Sender: TObject);
var child:tpass;
begin
//child:=tpass.Create(Application);
//child.show;
pass:=Tpass.create(self);
pass.ShowModal;
pass.free;
end;

procedure Tmainform.ToolButton22Click(Sender: TObject);
begin
 application.Terminate;
 Close;
end;

procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
  if Application.MessageBox('轉換操作員時請先存檔，否則資料將丟失！','消息', MB_ICONINFORMATION+MB_OKCANCEL) = IDOK then
   begin
     self.hide;
     password.show;
     password.combobox1.setfocus;
   end;
end;

procedure Tmainform.ToolButton28Click(Sender: TObject);
var
child:tpoint;
begin
   point:=tpoint.Create(self);
 point.ShowModal ;
 point.free;
// nameform:=tnameform.create(self);
  //nameform.showmodal;
  //nameform.free;
end;


procedure Tmainform.ToolButton30Click(Sender: TObject);
var child:tworker;
begin
//child:=tworker.Create(application);
//child.show;
worker:=tworker.Create(self);
worker.ShowModal ;
worker.free;
//  workcodeform:=tworkcodeform.create(self);
 // workcodeform.showmodal;
  //workcodeform.free;
end;

procedure Tmainform.ToolButton27Click(Sender: TObject);
var
child:tclass_form;
begin
     //	ShiftsSetForm:=TShiftsSetForm.Create(SELF);
  //WITH	ShiftsSetForm	DO
 // BEGIN
  //	SHOWMODAL;
   // FREE;
  //END
 //child:=tclass_form.Create(application);
 //child.show;
 class_form:=tclass_form.Create(self);
 class_form.ShowModal;
 class_form.Free;
 end;

procedure Tmainform.ToolButton32Click(Sender: TObject);
VAR child:tfpxl;
begin
//child:=tfpxl.create(application);
//child.show;
 fpxl:=tfpxl.create(self);
  fpxl.ShowModal ;
  fpxl.free;
  end;

procedure Tmainform.ToolButton10Click(Sender: TObject);
var
child:tsjysxx;
begin
//child:=tsjysxx.create(application);
//child.show;
sjysxx:=tsjysxx.Create(self);
sjysxx.ShowModal ;
sjysxx.free;
end;

procedure Tmainform.ToolButton34Click(Sender: TObject);
var child:tsetcommform;
begin
//child:=Tsetcommform.Create(application);
//child.show;
settestform:=tsettestform.Create(self);
settestform.ShowModal;
settestform.free;
end;

procedure Tmainform.ToolButton35Click(Sender: TObject);
var child:tinitframeform;
begin
child:=tinitframeform.Create(application);
child.show;

end;

procedure Tmainform.ToolButton38Click(Sender: TObject);
var child:ttestpenform;
begin
testpenform:=ttestpenform.Create(self);
testpenform.ShowModal ;
testpenform.free;
end;

procedure Tmainform.ToolButton39Click(Sender: TObject);
var child:txjyhsdform;
begin
child:=txjyhsdform.Create(application);
child.show;
end;

procedure Tmainform.ToolButton40Click(Sender: TObject);
var child:ttimeform;
begin
child:=ttimeform.Create(application);
child.show;

end;

procedure Tmainform.ToolButton5Click(Sender: TObject);
var child:tsetmodeform;
begin
child:=tsetmodeform.Create(application);
child.show;

end;

procedure Tmainform.ToolButton6Click(Sender: TObject);
var child:tkeysetform;
begin
child:=tkeysetform.Create(application);
child.show;

end;

procedure Tmainform.ToolButton13Click(Sender: TObject);
var child:treceform;
begin
//child:=treceform.Create(application);
//child.ShowModal ;
receform:=treceform.Create(self);
receform.ShowModal ;
receform.free;
end;

procedure Tmainform.ToolButton14Click(Sender: TObject);
begin
  Application.HelpFile :=ExtractFileDir(Application.ExeName)+'\xxcl.hlp';
  Application.HelpCommand(HELP_CONTENTS, 0);
end;

procedure Tmainform.ToolButton12Click(Sender: TObject);
var child:Taboutform;
begin
child:=Taboutform.Create(application);
//a1.Enabled :=false;
//ToolButton12.Enabled:=false;
child.ShowModal ;
child.free;
end;

procedure Tmainform.N18Click(Sender: TObject);
begin
arrangeicons;
end;

procedure Tmainform.N19Click(Sender: TObject);
begin
mainform.TileMode:=tbhorizontal;
tile;
end;

procedure Tmainform.N10Click(Sender: TObject);
begin
mainform.TileMode:=tbvertical;
tile;
end;

procedure Tmainform.N13Click(Sender: TObject);
begin
cascade;
end;

procedure Tmainform.N38Click(Sender: TObject);
var