main.pas

优美界面制作示意 想做好看的界面吗学学吧

   spb_bastore.Top:=150;
   spb_babelong.Top:=150;
   spb_bawork.Left:=10;
   spb_babus.Left:=spb_bawork.Left+100;
   spb_bacom.Left:=spb_babus.Left+100;
   spb_bajob.Left:=spb_bacom.Left+100;
   spb_bastore.Left:=spb_bajob.Left+100;
   spb_babelong.Left:=spb_bastore.Left+100;
end;

procedure TF_main.spb_comClick(Sender: TObject);
begin
   spb_syslogin.Visible:=false;
   spb_sysmodi.Visible:=false;
   spb_sysgrant.Visible:=false;
   spb_sysquit.Visible:=false;
   spb_bawork.Visible:=false;
   spb_babus.Visible:=false;
   spb_bajob.Visible:=false;
   spb_bacom.Visible:=false;
   spb_bastore.Visible:=false;
   spb_babelong.Visible:=false;
   spb_comin.Visible:=true;
   spb_comout.Visible:=true;
   spb_combad.Visible:=true;
   spb_comrepar.Visible:=true;
   spb_comback.Visible:=true;
   spb_commore.Visible:=true;
   spb_comlost.Visible:=true;
   spb_comgive.Visible:=true;
   spb_delein.Visible:=false;
   spb_deleout.Visible:=false;
   spb_delebad.Visible:=false;
   spb_deleback.Visible:=false;
   spb_delemore.Visible:=false;
   spb_delelost.Visible:=false;
   spb_delegive.Visible:=false;
   spb_delerepar.Visible:=false;
   spb_findin.Visible:=false;
   spb_findout.Visible:=false;
   spb_findbad.Visible:=false;
   spb_findback.Visible:=false;
   spb_findmore.Visible:=false;
   spb_findlost.Visible:=false;
   spb_findgive.Visible:=false;
   spb_findrepar.Visible:=false;
   spb_findstore.Visible:=false;
   spb_comin.Top:=130;
   spb_comout.Top:=130;
   spb_comback.Top:=130;
   spb_combad.Top:=130;
   spb_comrepar.Top:=130;
   spb_commore.Top:=230;
   spb_comlost.Top:=230;
   spb_comgive.Top:=230;
   spb_comin.Left:=50;
   spb_comout.Left:=spb_comin.Left+110;
   spb_comback.Left:=spb_comout.Left+110;
   spb_combad.Left:=spb_comback.Left+110;
   spb_comrepar.Left:=spb_combad.Left+110;
   spb_commore.Left:=130;
   spb_comlost.left:=spb_commore.Left+100;
   spb_comgive.Left:=spb_comlost.Left+100;
end;

procedure TF_main.spb_findClick(Sender: TObject);
begin
   spb_syslogin.Visible:=false;
   spb_sysmodi.Visible:=false;
   spb_sysgrant.Visible:=false;
   spb_sysquit.Visible:=false;
   spb_bawork.Visible:=false;
   spb_babus.Visible:=false;
   spb_bajob.Visible:=false;
   spb_bacom.Visible:=false;
   spb_bastore.Visible:=false;
   spb_babelong.Visible:=false;
   spb_comin.Visible:=false;
   spb_comout.Visible:=false;
   spb_combad.Visible:=false;
   spb_comrepar.Visible:=false;
   spb_comback.Visible:=false;
   spb_commore.Visible:=false;
   spb_comlost.Visible:=false;
   spb_comgive.Visible:=false;
   spb_delein.Visible:=false;
   spb_deleout.Visible:=false;
   spb_delebad.Visible:=false;
   spb_deleback.Visible:=false;
   spb_delemore.Visible:=false;
   spb_delelost.Visible:=false;
   spb_delegive.Visible:=false;
   spb_delerepar.Visible:=false;
   spb_findin.Visible:=true;
   spb_findout.Visible:=true;
   spb_findbad.Visible:=true;
   spb_findback.Visible:=true;
   spb_findmore.Visible:=true;
   spb_findlost.Visible:=true;
   spb_findgive.Visible:=true;
   spb_findrepar.Visible:=true;
   spb_findstore.Visible:=true;
   spb_findin.Top:=130;
   spb_findout.Top:=130;
   spb_findback.Top:=130;
   spb_findbad.Top:=130;
   spb_findrepar.Top:=130;
   spb_findmore.Top:=230;
   spb_findlost.Top:=230;
   spb_findstore.Top:=230;
   spb_findgive.Top:=230;
   spb_findin.Left:=50;
   spb_findout.Left:=spb_findin.Left+110;
   spb_findback.Left:=spb_findout.Left+110;
   spb_findbad.Left:=spb_findback.Left+110;
   spb_findrepar.Left:=spb_findbad.Left+110;
   spb_findmore.Left:=130;
   spb_findlost.left:=spb_findmore.Left+110;
   spb_findstore.left:=spb_findlost.Left+110;
   spb_findgive.Left:=spb_findstore.Left+110;
end;

procedure TF_main.spb_deleClick(Sender: TObject);
begin
   spb_syslogin.Visible:=false;
   spb_sysmodi.Visible:=false;
   spb_sysgrant.Visible:=false;
   spb_sysquit.Visible:=false;
   spb_bawork.Visible:=false;
   spb_babus.Visible:=false;
   spb_bajob.Visible:=false;
   spb_bacom.Visible:=false;
   spb_bastore.Visible:=false;
   spb_babelong.Visible:=false;
   spb_comin.Visible:=false;
   spb_comout.Visible:=false;
   spb_combad.Visible:=false;
   spb_comrepar.Visible:=false;
   spb_comback.Visible:=false;
   spb_commore.Visible:=false;
   spb_comlost.Visible:=false;
   spb_comgive.Visible:=false;
   spb_delein.Visible:=true;
   spb_deleout.Visible:=true;
   spb_delebad.Visible:=true;
   spb_deleback.Visible:=true;
   spb_delemore.Visible:=true;
   spb_delelost.Visible:=true;
   spb_delegive.Visible:=true;
   spb_delerepar.Visible:=true;
   spb_findin.Visible:=false;
   spb_findout.Visible:=false;
   spb_findbad.Visible:=false;
   spb_findback.Visible:=false;
   spb_findmore.Visible:=false;
   spb_findlost.Visible:=false;
   spb_findgive.Visible:=false;
   spb_findrepar.Visible:=false;
   spb_findstore.Visible:=false;
   spb_delein.Top:=150;
   spb_deleout.Top:=150;
   spb_deleback.Top:=150;
   spb_delerepar.Top:=150;
   spb_delebad.Top:=150;
   spb_delemore.Top:=250;
   spb_delelost.Top:=250;
   spb_delegive.Top:=250;
   spb_delein.Left:=30;
   spb_deleout.Left:=spb_delein.Left+110;
   spb_deleback.Left:=spb_deleout.Left+110;
   spb_delerepar.Left:=spb_deleback.Left+110;
   spb_delebad.Left:=spb_delerepar.Left+110;
   spb_delemore.Left:=130;
   spb_delelost.Left:=spb_delemore.Left+110;
   spb_delegive.Left:=spb_delelost.Left+110;
end;

procedure TF_main.Spb_sysloginClick(Sender: TObject);
begin
  N_login.Click;
end;

procedure TF_main.spb_sysmodiClick(Sender: TObject);
begin
  N_modipass.Click;
end;

procedure TF_main.spb_sysgrantClick(Sender: TObject);
begin
  N_syst.Click;
end;

procedure TF_main.spb_sysquitClick(Sender: TObject);
begin
  N_quit.Click;
end;

procedure TF_main.spb_baworkClick(Sender: TObject);
begin
  N_bawork.Click;
end;

procedure TF_main.spb_babusClick(Sender: TObject);
begin
  N_babus.Click;
end;

procedure TF_main.spb_bajobClick(Sender: TObject);
begin
  N_bajob.Click;
  
end;

procedure TF_main.spb_bastoreClick(Sender: TObject);
begin
  N_bastore.Click;
end;

procedure TF_main.spb_babelongClick(Sender: TObject);
begin
  N_babelong.Click;
end;

procedure TF_main.spb_cominClick(Sender: TObject);
begin
  N_comin.click;
end;

procedure TF_main.spb_combackClick(Sender: TObject);
begin
  N_comback.Click;
end;

procedure TF_main.spb_comlostClick(Sender: TObject);
begin
  N_comlost.Click;
end;

procedure TF_main.spb_comoutClick(Sender: TObject);
begin
  N_comout.Click;
end;

procedure TF_main.spb_commoreClick(Sender: TObject);
begin
  N_commore.Click;
end;

procedure TF_main.spb_comgiveClick(Sender: TObject);
begin
  N_comgive.Click;
end;

procedure TF_main.spb_findinClick(Sender: TObject);
begin
  N_findin.Click;
end;

procedure TF_main.spb_findoutClick(Sender: TObject);
begin
  N_findout.Click;
end;

procedure TF_main.spb_findbackClick(Sender: TObject);
begin
  N_findback.Click;
end;

procedure TF_main.spb_findlostClick(Sender: TObject);
begin
  N_findlost.Click;
end;

procedure TF_main.spb_findreparClick(Sender: TObject);
begin
  N_findrepar.Click;
end;

procedure TF_main.spb_findgiveClick(Sender: TObject);
begin
  N_findgive.Click;
end;

procedure TF_main.spb_baMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sender is Tspeedbutton then
     StaBar_sys.Panels[4].Text:=Tspeedbutton(Sender).caption;
end;

procedure TF_main.Tb_loginMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if Sender is Ttoolbutton then
     StaBar_sys.Panels[4].Text:=Ttoolbutton(Sender).caption;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  r_longin:=0;
end;

procedure TF_main.N8Click(Sender: TObject);
begin
  Application.HelpFile:='DNBJ.HLP';
  Application.HelpCommand(HELP_FINDER,0);
end;

procedure TF_main.set_ini(s_n, k_n, v_n: string);
begin

end;

procedure TF_main.N13Click(Sender: TObject);
begin
  ShellExecute(handle,'open','notepad.exe',nil,nil,sw_shownormal);
end;

procedure TF_main.N12Click(Sender: TObject);
begin
  ShellExecute(handle,'open','calc.exe',nil,nil,sw_shownormal);
end;

procedure TF_main.TB_mainCustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
begin
  sender.Canvas.Draw(0,0,image1.Picture.Bitmap);
end;

end.