ipdress.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

unit ipdress;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  lmdctrl, lmdstdcS, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  Tipform = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    LMDSimpleLabel1: TLMDSimpleLabel;
    Memo1: TMemo;
    ProgramIcon: TImage;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ipform: Tipform;

implementation

uses Unit1, REMain1, sendUnit;

{$R *.DFM}

procedure Tipform.FormActivate(Sender: TObject);
begin
   {======================================================================================}

mainform.ClientDataSet1.Close;
mainform.ClientDataSet1.LoadFromFile('C:\NewStar\Enterpirse\User\sysuser.dat');
mainform.ClientDataSet1.Open;
mainform.ClientDataSet1.First;
  while not mainform.ClientDataSet1.EOF do
   begin
    if mainform.ClientDataSet1.fieldbyname('local').value=true then
    begin
     edit1.Text:=mainform.ClientDataSet1.fieldbyname('hostsite').Asstring;
    // mainform.ClientDataSet1.close;
    end;
   mainform.ClientDataSet1.Next;
   end;
   mainform.ClientDataSet1.close;
 {======================================================================================}
mainform.enabled:=false;
end;

procedure Tipform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.enabled:=true;
dform.label3.Caption:='false';
end;

procedure Tipform.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tipform.BitBtn1Click(Sender: TObject);
begin



  if trim(edit1.Text)<>'' then
   begin
    {======================================================================================}

mainform.ClientDataSet1.Close;
mainform.ClientDataSet1.LoadFromFile('C:\NewStar\Enterpirse\User\sysuser.dat');
mainform.ClientDataSet1.Open;
mainform.ClientDataSet1.First;
  while not mainform.ClientDataSet1.EOF do
   begin
    if mainform.ClientDataSet1.fieldbyname('local').value=true then
    begin
     mainform.ClientDataSet1.Edit;
     mainform.ClientDataSet1.fieldbyname('hostsite').value:=trim(edit1.Text);
     mainform.ClientDataSet1.SaveToFile('C:\NewStar\Enterpirse\User\sysuser.dat');
    // mainform.ClientDataSet1.close;
     close;
    end;
   mainform.ClientDataSet1.Next;
   end;
   mainform.ClientDataSet1.close;
 {======================================================================================}

   end;

end;


end.