groupinfo.pas

DELPHI 下远程控制源码

unit GroupInfo;

interface

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

type
  TGroupForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    MaskEdit1: TMaskEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    CheckBox1: TCheckBox;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure InsertGroupInfo(UserData:TClientDataSet);
    procedure BitBtn3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GroupForm: TGroupForm;

implementation

uses Unit1;

{$R *.dfm}
procedure TGroupForm.InsertGroupInfo(UserData:TClientDataSet);
var
   AddND: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;
  if ComboBox1.Text='无'  Then
  begin
    UserData.FieldByName('ImageID').AsInteger:=1;
    UserData.FieldByName('StateImageID').AsInteger:=2;
    UserData.FieldByName('SelectImageID').AsInteger:=3;

    AddND:=Form1.TreeView2.Items.Add(nil,MaskEdit1.Text);
    AddND.ImageIndex:=1;AddND.SelectedIndex:=2;AddND.StateIndex:=3;
  end else
  begin
    UserData.FieldByName('ImageID').AsInteger:=4;
    UserData.FieldByName('StateImageID').AsInteger:=5;
    UserData.FieldByName('SelectImageID').AsInteger:=6;
    AddND:=Form1.TreeView2.Items.AddChild(Form1.TreeView2.Selected,MaskEdit1.Text);
    AddND.ImageIndex:=4;AddND.SelectedIndex:=5;AddND.StateIndex:=6;
  end;
  UserData.Post;   
  UserData.Close;
end;
procedure TGroupForm.BitBtn1Click(Sender: TObject);
begin
   InsertGroupInfo(Form1.UserCDS);
   close;
end;

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

procedure TGroupForm.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked then ComboBox1.Text:='无';
end;

end.