utxcs.pas

公积金监管系统客户端,是新疆公积金监管系统的客户端软件

unit uTxcs;

interface

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

type
  TTXCX = class(TForm)
    GroupBox1: TGroupBox;
    CB_1: TCheckBox;
    Lab_3: TLabel;
    Ed_3: TEdit;
    Lab_4: TLabel;
    Ed_4: TEdit;
    CB_2: TCheckBox;
    Lab_5: TLabel;
    Ed_5: TEdit;
    Lab_6: TLabel;
    Ed_6: TEdit;
    CB_3: TCheckBox;
    Lab_7: TLabel;
    Ed_7: TEdit;
    Lab_8: TLabel;
    Ed_8: TEdit;
    Lab_1: TLabel;
    Ed_1: TEdit;
    Lab_2: TLabel;
    Ed_2: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CB_3Click(Sender: TObject);
    procedure CB_1Click(Sender: TObject);
    procedure CB_2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Ed_2KeyPress(Sender: TObject; var Key: Char);
    procedure Ed_4KeyPress(Sender: TObject; var Key: Char);
    procedure Ed_6KeyPress(Sender: TObject; var Key: Char);
    procedure Ed_8KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    ToPServ, ToMserv, UseGate: smallint;

  public
    { Public declarations }
  end;

var
  TXCX: TTXCX;

implementation

uses UserFace;

{$R *.dfm}

procedure TTXCX.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TTXCX.FormCreate(Sender: TObject);
begin
  UseGate := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'UseGate');
  if UseGate = 0 then
  begin
    CB_3.Checked := false;
    Lab_7.Enabled := false;
    Ed_7.Enabled := false;
    Lab_8.Enabled := false;
    Ed_8.Enabled := false;
  end
  else
  begin
    CB_3.Checked := true;
    Lab_7.Enabled := true;
    Ed_7.Enabled := true;
    Lab_8.Enabled := true;
    Ed_8.Enabled := true;
  end;

  ToPServ := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'ToPServ');
  if ToPServ = 0 then
  begin
    CB_1.Checked := false;
    Lab_3.Enabled := false;
    Ed_3.Enabled := false;
    Lab_4.Enabled := false;
    Ed_4.Enabled := false;
  end
  else
  begin
    CB_1.Checked := true;
    Lab_3.Enabled := true;
    Ed_3.Enabled := true;
    Lab_4.Enabled := true;
    Ed_4.Enabled := true;
  end;

  ToMserv := ReadIniInt(SystemPath() + INIFILENAME, 'GjjJglr', 'ToMserv');
  if ToMserv = 0 then
  begin
    CB_2.Checked := false;
    Lab_5.Enabled := false;
    Ed_5.Enabled := false;
    Lab_6.Enabled := false;
    Ed_6.Enabled := false;
  end
  else
  begin
    CB_2.Checked := true;
    Lab_5.Enabled := true;
    Ed_5.Enabled := true;
    Lab_6.Enabled := true;
    Ed_6.Enabled := true;
  end;

  Ed_1.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ServerIp');
  Ed_2.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ServerPort');
  Ed_3.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'PServIp');
  Ed_4.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'PServPort');
  Ed_5.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'MServIp');
  Ed_6.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'MServPort');
  Ed_7.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServIp');
  Ed_8.Text := ReadIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServPort');

end;

procedure TTXCX.CB_3Click(Sender: TObject);
begin
  if CB_3.Checked = true then
  begin
    Lab_7.Enabled := true;
    Ed_7.Enabled := true;
    Lab_8.Enabled := true;
    Ed_8.Enabled := true;
  end
  else
  begin
    Lab_7.Enabled := false;
    Ed_7.Enabled := false;
    Lab_8.Enabled := false;
    Ed_8.Enabled := false;
  end;
end;

procedure TTXCX.CB_1Click(Sender: TObject);
begin
  if CB_1.Checked = true then
  begin
    Lab_3.Enabled := true;
    Ed_3.Enabled := true;
    Lab_4.Enabled := true;
    Ed_4.Enabled := true;
  end
  else
  begin
    Lab_3.Enabled := false;
    Ed_3.Enabled := false;
    Lab_4.Enabled := false;
    Ed_4.Enabled := false;
  end;
end;

procedure TTXCX.CB_2Click(Sender: TObject);
begin
  if CB_2.Checked = true then
  begin
    Lab_5.Enabled := true;
    Ed_5.Enabled := true;
    Lab_6.Enabled := true;
    Ed_6.Enabled := true;
  end
  else
  begin
    Lab_5.Enabled := false;
    Ed_5.Enabled := false;
    Lab_6.Enabled := false;
    Ed_6.Enabled := false;
  end;
end;

procedure TTXCX.Button1Click(Sender: TObject);
begin
  if TestIp(Ed_1) = false then
  begin
    showmessage('IP地址错误,请重新设置！');
    Ed_1.SetFocus;
    exit;
  end;
  if Cb_1.Checked then
    if TestIp(Ed_3) = false then
    begin
      showmessage('IP地址错误,请重新设置！');
      Ed_3.SetFocus;
      exit;
    end;
  if cb_2.Checked then
    if TestIp(Ed_5) = false then
    begin
      showmessage('IP地址错误,请重新设置！');
      Ed_5.SetFocus;
      exit;
    end;
  if cb_3.Checked then
    if TestIp(Ed_7) = false then
    begin
      showmessage('IP地址错误,请重新设置！');
      Ed_7.SetFocus;
      exit;
    end;

  if CB_3.Checked = true then
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'UseGate', '1')
  else
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'UseGate', '0');

  if CB_1.Checked = true then
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ToPServ', '1')
  else
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ToPServ', '0');

  if CB_2.Checked = true then
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ToMServ', '1')
  else
    WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ToMServ', '0');

  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ServerIp',
    trim(Ed_1.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'ServerPort',
    trim(Ed_2.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'PServIp',
    trim(Ed_3.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'PServPort',
    trim(Ed_4.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'MServIp',
    trim(Ed_5.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'MServPort',
    trim(Ed_6.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServIp',
    trim(Ed_7.Text));
  WriteIniStr(SystemPath() + INIFILENAME, 'GjjJglr', 'VServPort',
    trim(Ed_8.Text));
  showmessage('保存成功！');
end;

procedure TTXCX.Ed_2KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
  if (length(Ed_2.Text) = 5) and (key <> #8) then
    key:=char(0);
end;

procedure TTXCX.Ed_4KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
  if (length(Ed_4.Text) = 5) and (key <> #8) then
    key:=char(0);
end;

procedure TTXCX.Ed_6KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
  if (length(Ed_6.Text) = 5) and (key <> #8) then
    key:=char(0);
end;

procedure TTXCX.Ed_8KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
  if (length(Ed_6.Text) = 5) and (key <> #8) then
    key:=char(0);
end;

end.