frmwebconfig.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 88 行

unit frmWebConfig;

interface

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

type
  TFormWebConfig = class(TForm)
    LBAppServer: TListBox;
    BtnAdd: TButton;
    BtnDel: TButton;
    BtnOk: TButton;
    BtnCancel: TButton;
    RBSomeIP: TRadioButton;
    RBUseAppServerList: TRadioButton;
    EdtIP: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormWebConfig: TFormWebConfig;

implementation
uses CommonFunc, untConfig;
{$R *.dfm}

procedure TFormWebConfig.FormCreate(Sender: TObject);
var
  Lsl: TStringList;
begin
    Lsl := TStringList.Create;
    GetAppServerList(Lsl);
    LBAppServer.Items.Clear;
    LBAppServer.Items.AddStrings(Lsl);
    Lsl.Free;
    RBUseAppServerList.Checked :=  GetUseAppServerList;
    RBSomeIP.Checked := not RBUseAppServerList.Checked;
    EdtIP.Text := GetSomeIP;

end;

procedure TFormWebConfig.BtnOkClick(Sender: TObject);
var
  Lsl: TStringList;
begin
  Lsl := TStringList.Create;
  Lsl.Clear;
  Lsl.AddStrings(LBAppServer.Items);
  SetAppServerList(Lsl);
  Lsl.Free;
  SetUseAppServerList(RBUseAppServerList.Checked);
  SetSomeIP(Trim(EdtIP.Text));
  Close;
end;

procedure TFormWebConfig.BtnAddClick(Sender: TObject);
var
  LIP: string;
begin
  if InputQuery('输入','请输入IP地址:', LIP) then
    LBAppServer.Items.Append(LIP);
end;

procedure TFormWebConfig.BtnDelClick(Sender: TObject);
begin
  if LCConfirmEx('EditAppServerList', '真的删除此IP？') = mrYes then
  begin
    LBAppServer.Items.Delete(LBAppServer.ItemIndex);
  end;
end;

procedure TFormWebConfig.BtnCancelClick(Sender: TObject);
begin
  Close;
end;

end.