about_pas.~pas

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

unit about_pas;

interface

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

type
  Tabout_form = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    Panel2: TPanel;
    RxLabel1: TRxLabel;
    Panel3: TPanel;
    ManuLb: TPanel;
    PhoneLB: TPanel;
    FaxLB: TPanel;
    BitBtn1: TBitBtn;
    Panel4: TPanel;
    SecretPanel1: TSecretPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about_form: Tabout_form;

implementation
uses menu, FileCtrl,IniFiles;
{$R *.DFM}

procedure Tabout_form.FormCreate(Sender: TObject);
var
  pc1:pchar;
  INIFile:string;
begin
{    getmem(pc1,100);
  try
    INIFILE:=ExtractFileDir(Application.ExeName)+'\HdXGXT.INI';
    if  fileexists(INIFile) then
    begin
      getprivateprofilestring('MANUINFO','Manufactory','杭州汉达自动化研究所',pc1,30,pchar(INIFile));
      ManuLb.caption:=pc1;
      getprivateprofilestring('MANUINFO','Phone','[phone];8076404;8838594',pc1,30,pchar(INIFile));
      PhoneLB.caption:='联系电话:'+pc1;
      getprivateprofilestring('MANUINFO','Fax','[phone]',pc1,30,pchar(INIFile));
      FaxLB.Caption:='传真:'+pc1;
    end else  begin
      ManuLb.caption:='杭州汉达自动化有限公司';//  雄伟
      PhoneLB.caption:='联系电话:[phone]';
      FaxLB.Caption:='传真:[phone]';
    end
  finally
    freemem(pc1);
  end; }
end;


procedure Tabout_form.FormActivate(Sender: TObject);
begin
self.top:=90;
self.Height :=230;
self.Width := 290;
self.Left:=round((mainform.Width-self.Width)/2);
end;

procedure Tabout_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
about_form :=nil ;
end;

procedure Tabout_form.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tabout_form.FormPaint(Sender: TObject);
begin
self.top:=90;
self.Height :=230;
self.Width := 290;
self.Left:=round((mainform.Width-self.Width)/2);

end;

procedure Tabout_form.FormResize(Sender: TObject);
begin
self.top:=90;
self.Height :=230;
self.Width := 290;
self.Left:=round((mainform.Width-self.Width)/2);
//showmessage(inttostr(self.left));
end;

procedure Tabout_form.FormShow(Sender: TObject);
var
inif:tinifile;
temp,path,filename,spname,gsmc,dh,cz:string;
begin
getdir(0,path);
filename:=path+'\HdXGXT.ini';
inif:=TInifile.Create(filename);
spname:=inif.readstring('manuinfo','SPLASHNAME',temp);
gsmc:=inif.ReadString('manuinfo','MANUFACTORY',temp);
dh:=inif.readstring('manuinfo','phone',temp);
cz:=inif.readstring('manuinfo','fax',temp);
if spname='' then
  rxLabel1.Caption:='汉达巡检系统'
  else
  rxlabel1.Caption:=spname;
manulb.Caption:=gsmc;
phonelb.Caption:=dh;
faxlb.Caption:=cz;
end;

end.