newroot.pas

网页特效生成工具！VCLSKIN的操作！

unit newRoot;

interface

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

type
  Tfrmnewroot = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    qryTemp: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmnewroot: Tfrmnewroot;

implementation

uses datalink, mainpas;

{$R *.dfm}

procedure Tfrmnewroot.FormCreate(Sender: TObject);
begin
Self.Left:=(Screen.DesktopWidth -Self.Width) div 2;
Self.Top:=(Screen.DesktopHeight -Self.Height) div 2;
end;

procedure Tfrmnewroot.BitBtn2Click(Sender: TObject);
begin
Self.Close;
end;

procedure Tfrmnewroot.BitBtn1Click(Sender: TObject);
var i:Integer;

begin
 if Edit1.Text ='' then
 begin
 Application.MessageBox('根节点不能为空!请确认你的操作!','提示',MB_ICONEXCLAMATION+MB_OK);
 Edit1.SetFocus;
 Exit;
 end;
//判断根节点是否存在
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from title where title='+chr(39)+Edit1.Text +chr(39));
qryTemp.Open;
if qryTemp.Recordset.RecordCount >0 then
 begin
 Application.MessageBox('已存在该根节点!请确认你的输入','提示',MB_ICONEXCLAMATION+MB_OK);
 Edit1.SetFocus;
 Exit;
 end;
//开始添加根节点
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('insert into title (title,desce) values('+chr(39)+Edit1.Text +chr(39));
qryTemp.SQL.Add(','+chr(39)+'无'+chr(39)+')');
qryTemp.ExecSQL;
frmain.ToolButton5.Click;
Edit1.Text:='';
Application.MessageBox('节点添加成功!','提示',MB_ICONINFORMATION+MB_OK);
end;

end.