frmeditappserverlist.pas

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

unit frmEditAppServerList;

interface

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

type
  TFormEditAppServerList = class(TForm)
    LBAppServer: TListBox;
    BtnAdd: TButton;
    BtnDel: TButton;
    BtnOk: TButton;
    BtnCancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormEditAppServerList: TFormEditAppServerList;

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

procedure TFormEditAppServerList.FormCreate(Sender: TObject);
var
  f: string;
begin
  f := GetApplicationPath + APPSERVERLISTFILENAME;
  if FileExists(f) then
    LBAppServer.Items.LoadFromFile(f);
end;

procedure TFormEditAppServerList.BtnOkClick(Sender: TObject);
begin
  LBAppServer.Items.SaveToFile(GetApplicationPath + APPSERVERLISTFILENAME);
end;

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

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

end.