userinfo.~pas

DELPHI 下远程控制源码

unit UserInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Mask,DBClient, DB,ComCtrls;

type
  TUserForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    Label5: TLabel;
    MaskEdit3: TMaskEdit;
    Label7: TLabel;
    MaskEdit4: TMaskEdit;
    Image1: TImage;
    procedure InsertUserInfo(UserData:TClientDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserForm: TUserForm;

implementation

uses Unit1;

{$R *.dfm}

procedure TUserForm.InsertUserInfo(UserData:TClientDataSet);
var
   AddND,AddND1:TTreeNode;
begin
  UserData.Open;
  UserData.Edit;
  UserData.Append;
  UserData.FieldByName('ParentName').AsString:=ComboBox1.Text;
  UserData.FieldByName('MyName').AsString:=MaskEdit1.Text;
  UserData.FieldByName('MyID').AsInteger:=1;
  UserData.FieldByName('ImageID').AsInteger:=7;
  UserData.FieldByName('StateImageID').AsInteger:=8;
  UserData.FieldByName('SelectImageID').AsInteger:=9;
  UserData.FieldByName('HostName').AsString:=MaskEdit2.Text;
  UserData.FieldByName('Port').AsString:=MaskEdit3.Text;
  case RadioGroup1.ItemIndex of
       0: UserData.FieldByName('UserName').AsString:='超级用户';
       1: UserData.FieldByName('UserName').AsString:='授权用户';
       2: UserData.FieldByName('UserName').AsString:='访客用户';
  end;
  UserData.FieldByName('Password').AsString:=MaskEdit4.Text;
  UserData.Post; 
  UserData.Close;

  AddND:=Form1.TreeView2.Items.AddChild(Form1.TreeView2.Selected,MaskEdit1.Text);
  AddND.ImageIndex:=7;AddND.SelectedIndex:=8;AddND.StateIndex:=9;

  AddND1:=Form1.TreeView2.Items.AddChild(AddND,MaskEdit2.Text);
  AddND1.ImageIndex:=10;AddND1.SelectedIndex:=10;AddND1.StateIndex:=10;
  AddND1:=Form1.TreeView2.Items.AddChild(AddND,MaskEdit3.Text);
  AddND1.ImageIndex:=11;AddND1.SelectedIndex:=11;AddND1.StateIndex:=11;
end;
procedure TUserForm.BitBtn1Click(Sender: TObject);
begin
   InsertUserInfo(Form1.UserCDS);
   close;
end;

procedure TUserForm.BitBtn3Click(Sender: TObject);
begin
   Close;
end;

end.