dlsxx_pas.~pas

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

unit dlsxx_pas;

interface

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

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    RxLabel1: TRxLabel;
    Panel3: TPanel;
    RxLabel2: TRxLabel;
    Panel1: TPanel;
    BitBtn5: TBitBtn;
    RxLabel3: TRxLabel;
    RxLabel4: TRxLabel;
    RxLabel5: TRxLabel;
    ProgramIcon: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  path,filename:string;
implementation
uses FileCtrl,IniFiles;
{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var inif:tinifile;
temp:string;
gsmc,xtmc,dh,cz:string;
begin
//getdir(0,path);
//filename:=path+'\HdXGXT.ini';
filename:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);//+'\hdxgxt.ini';
if not fileexists(filename) then
filename:=ExtractFileDir(APPLICATION.EXENAME)+'hdxgxt.ini'
else filename:=extractfiledir(application.exename)+'\hdxgxt.ini';
inif:=TInifile.Create(filename);
gsmc:=inif.ReadString('manuinfo','MANUFACTORY',temp);
xtmc:=inif.readstring('manuinfo','SPLASHNAME',temp);
dh:=inif.readstring('manuinfo','phone',temp);
cz:=inif.readstring('manuinfo','fax',temp);
edit4.Text:=gsmc;
edit3.Text:=xtmc;
edit2.Text:=dh;
edit1.Text:=cz;
edit4.SetFocus ;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var
 inif:TIniFile;
begin
 inif:=TInifile.Create(filename);
 inif.WriteString('manuinfo','MANUFACTORY',edit4.Text );
 inif.Writestring('manuinfo','SPLASHNAME',edit3.Text );
 inif.Writestring('manuinfo','phone',edit2.Text );
 inif.Writestring('manuinfo','fax',edit1.Text );
 inif.free;
 close;

 end;

end.