serverip.pas

三层ERP系统 (SQL)

unit Serverip;

interface

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

type
  TfrmServerip = class(TfrmBase_C)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServerip: TfrmServerip;

implementation

uses Global, dm_Client;

{$R *.dfm}

procedure TfrmServerip.FormCreate(Sender: TObject);
var
  s:string;
  ini:Tinifile;
begin
  inherited;
  s:=GetLogDir('Log')+'Login.ini';
  try
    ini:=Tinifile.Create(s);
    SServerIP:=ini.ReadString('Login','SServerIP','');
    edit1.Text:=Sserverip;
  finally
    ini.Free;
  end;
end;

procedure TfrmServerip.Button1Click(Sender: TObject);
begin
  inherited;
  isScoketconnectionopen:=False;
  ModalResult:=mrCancel;
end;

procedure TfrmServerip.Button2Click(Sender: TObject);
var
  s:string;
  ini:Tinifile;
begin
  inherited;
  Screen.Cursor:=crSQLwait;

  main_ini();
  SServerip:=Trim(edit1.Text);
  f_writeclientini('Login','SServerip',SServerip);

  if not assigned(dmClient) then
    dmClient:=TdmClient.Create(application);

  with dmClient do
    begin
      Csocket.Address:=SServerip;
      Csocket.Open;
    end;
  
  Screen.Cursor:=crDefault;
  ModalResult:=mrok;
end;

end.