main.pas

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

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus, Buttons, ToolWin, ExtCtrls, ImgList,
  jpeg,IniFiles,ShellApi;

type
  TF_main = class(TForm)
    StaBar_sys: TStatusBar;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N_ba: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N_login: TMenuItem;
    N_modipass: TMenuItem;
    N_syst: TMenuItem;
    N_bawork: TMenuItem;
    N_bajob: TMenuItem;
    N_babus: TMenuItem;
    N_bacom: TMenuItem;
    N_bastore: TMenuItem;
    N_quit: TMenuItem;
    N_comin: TMenuItem;
    N_comout: TMenuItem;
    Conb_main: TControlBar;
    TB_main: TToolBar;
    Tb_login: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    N_babelong: TMenuItem;
    N_comgive: TMenuItem;
    N_findin: TMenuItem;
    N_findout: TMenuItem;
    N_findgive: TMenuItem;
    N_findstore: TMenuItem;
    N_comrepar: TMenuItem;
    N_combad: TMenuItem;
    N_comback: TMenuItem;
    N_comlost: TMenuItem;
    N_commore: TMenuItem;
    N_findbad: TMenuItem;
    N_findlost: TMenuItem;
    N_findmore: TMenuItem;
    N_findback: TMenuItem;
    N_delein: TMenuItem;
    N_deleout: TMenuItem;
    N_deleback: TMenuItem;
    N_delerepar: TMenuItem;
    N_delebad: TMenuItem;
    N_delelost: TMenuItem;
    N_delemore: TMenuItem;
    N_delegive: TMenuItem;
    N_findrepar: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    imlist_tool: TImageList;
    Spl_main: TSplitter;
    Pa_left: TPanel;
    pa_right: TPanel;
    Im_left: TImage;
    spb_sys: TSpeedButton;
    spb_ba: TSpeedButton;
    spb_com: TSpeedButton;
    spb_find: TSpeedButton;
    spb_dele: TSpeedButton;
    im_right: TImage;
    Spb_syslogin: TSpeedButton;
    spb_sysmodi: TSpeedButton;
    spb_sysgrant: TSpeedButton;
    spb_sysquit: TSpeedButton;
    spb_bawork: TSpeedButton;
    spb_babus: TSpeedButton;
    spb_bacom: TSpeedButton;
    spb_comin: TSpeedButton;
    spb_babelong: TSpeedButton;
    spb_bastore: TSpeedButton;
    spb_commore: TSpeedButton;
    spb_comout: TSpeedButton;
    spb_comback: TSpeedButton;
    spb_comrepar: TSpeedButton;
    spb_findin: TSpeedButton;
    spb_combad: TSpeedButton;
    spb_comlost: TSpeedButton;
    spb_findlost: TSpeedButton;
    spb_comgive: TSpeedButton;
    spb_findback: TSpeedButton;
    spb_findbad: TSpeedButton;
    spb_findmore: TSpeedButton;
    spb_deleout: TSpeedButton;
    spb_findrepar: TSpeedButton;
    spb_findgive: TSpeedButton;
    spb_findout: TSpeedButton;
    spb_findstore: TSpeedButton;
    spb_bajob: TSpeedButton;
    spb_delelost: TSpeedButton;
    spb_delerepar: TSpeedButton;
    spb_delebad: TSpeedButton;
    spb_delein: TSpeedButton;
    spb_deleback: TSpeedButton;
    spb_delemore: TSpeedButton;
    spb_delegive: TSpeedButton;
    Imlist_menu: TImageList;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N2: TMenuItem;
    N11: TMenuItem;
    SaveDialog1: TSaveDialog;
    N12: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    procedure N_quitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure spb_sysClick(Sender: TObject);
    procedure spb_baClick(Sender: TObject);
    procedure spb_comClick(Sender: TObject);
    procedure spb_findClick(Sender: TObject);
    procedure spb_deleClick(Sender: TObject);
    procedure Spb_sysloginClick(Sender: TObject);
    procedure spb_sysmodiClick(Sender: TObject);
    procedure spb_sysgrantClick(Sender: TObject);
    procedure spb_sysquitClick(Sender: TObject);
    procedure spb_baworkClick(Sender: TObject);
    procedure spb_babusClick(Sender: TObject);
    procedure spb_bajobClick(Sender: TObject);
    procedure spb_bastoreClick(Sender: TObject);
    procedure spb_babelongClick(Sender: TObject);
    procedure spb_cominClick(Sender: TObject);
    procedure spb_combackClick(Sender: TObject);
    procedure spb_comlostClick(Sender: TObject);
    procedure spb_comoutClick(Sender: TObject);
    procedure spb_commoreClick(Sender: TObject);
    procedure spb_comgiveClick(Sender: TObject);
    procedure spb_findinClick(Sender: TObject);
    procedure spb_findoutClick(Sender: TObject);
    procedure spb_findbackClick(Sender: TObject);
    procedure spb_findlostClick(Sender: TObject);
    procedure spb_findreparClick(Sender: TObject);
    procedure spb_findgiveClick(Sender: TObject);
    procedure spb_baMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Tb_loginMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure TB_mainCustomDraw(Sender: TToolBar; const ARect: TRect;
      var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    main_user,grant:string;
    r_longin:integer;
    ini_file:Tinifile;
    procedure set_ini(s_n:string;k_n:string;v_n:string);
  end;

var
  F_main: TF_main;
implementation

{$R *.dfm}
procedure TF_main.FormShow(Sender: TObject);
begin
  grant:='0';
  Conb_main.Width:=f_main.Width-1;
  TB_main.Width:=Conb_main.Width-1;
  staBar_sys.Panels[3].Text:='提示';
end;
procedure TF_main.N_quitClick(Sender: TObject);
begin
 if application.MessageBox('你是否要离开系统！','提示',mb_yesno)=mryes then
   begin
     f_main.Close;
   end;

end;

procedure TF_main.ToolButton2Click(Sender: TObject);
begin
  N_comin.Click;
end;

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

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

procedure TF_main.ToolButton5Click(Sender: TObject);
begin
  N_comrepar.Click;
end;

procedure TF_main.ToolButton6Click(Sender: TObject);
begin
  N_combad.Click;
end;

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

procedure TF_main.ToolButton9Click(Sender: TObject);
begin
  N_commore.Click;
end;
procedure TF_main.spb_sysClick(Sender: TObject);
begin
   if grant='0'then
      spb_sysgrant.Visible:=true;
   spb_syslogin.Visible:=true;
   spb_sysmodi.Visible:=true;
   spb_sysquit.Visible:=true;
   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:=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_syslogin.Top:=150;
   spb_sysmodi.Top:=150;
   spb_sysgrant.Top:=250;
   spb_sysquit.Top:=150;
   if grant='0' then
     begin
       spb_syslogin.Left:=100;
       spb_sysmodi.Left:=spb_syslogin.Left+150;
       spb_sysquit.Left:=spb_sysmodi.Left+150;
       spb_sysgrant.Left:=spb_sysmodi.Left;
    end
  else
      begin
        spb_syslogin.Left:=100;
        spb_sysmodi.Left:=spb_syslogin.Left+150;
        spb_sysquit.Left:=spb_sysmodi.Left+150;
      end;
end;

procedure TF_main.spb_baClick(Sender: TObject);
begin
   spb_syslogin.Visible:=false;
   spb_sysmodi.Visible:=false;
   spb_sysgrant.Visible:=false;
   spb_sysquit.Visible:=false;
   spb_bawork.Visible:=true;
   spb_babus.Visible:=true;
   spb_bajob.Visible:=true;
   spb_bacom.Visible:=true;
   spb_bastore.Visible:=true;
   spb_babelong.Visible:=true;
   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:=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_bawork.Top:=150;
   spb_babus.Top:=150;
   spb_bacom.Top:=150;
   spb_bajob.Top:=150;