unit1.pas

来自「从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦」· PAS 代码 · 共 58 行

unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClick(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
  public
   function GetExePath: String;
    { Public declarations }
    end;

var
  Form1: TForm1;
  username,unright,filename:string;


implementation

uses Unit2, Unit3;



{$R *.dfm}

function Tform1.GetExePath: String;
//该函数用于取得当前应用程序所在的路径
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+'\';
end;


procedure TForm1.FormClick(Sender: TObject);
begin
 login.Show;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
login.ShowModal;
end;

end.