adddtu.~pas

GPRS/CDMA DTU数据中心源代码,基于DataCenterX控件开发.

unit adddtu;

interface

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

type
  TfrmAddDTU = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAddDTU: TfrmAddDTU;

implementation

uses main;

{$R *.dfm}

procedure TfrmAddDTU.suiButton1Click(Sender: TObject);
begin
  if (length(edit1.text)<>8) then
  begin
    showmessage('DTUID必须为8位');
    exit;
  end;
  if (length(edit2.text)<>6) then
  begin
    showmessage('DTU登录密码必须为6位');
    exit;
  end;
  if form1.ListView1.FindCaption(0,edit1.text,false,false,false)<>nil then
  begin
    showmessage('DTUID重复！');
    exit;
  end;

  form1.datacenterx1.adddtu(edit1.text,edit2.Text);
  edit1.text:='';edit2.text:='';
  showdtus;
end;

procedure TfrmAddDTU.suiButton2Click(Sender: TObject);
begin
  frmadddtu.ModalResult:=mrcancel; 
end;

end.