editscesend.pas

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

unit editscesend;

interface

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

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

var
  frmsecesend: Tfrmsecesend;

implementation

uses datalink, mainpas;

{$R *.dfm}

procedure Tfrmsecesend.FormCreate(Sender: TObject);
begin
Self.Left:=(Screen.DesktopWidth -Self.Width) div 2;
Self.Top:=(Screen.DesktopHeight -Self.Height) div 2;
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select title as 名称  from title group by title');
qryTemp.Open;
while not qryTemp.Recordset.EOF do
 begin
 ComboBox1.Items.Append(Trim(qryTemp.Recordset.Fields['名称'].Value));
 qryTemp.Recordset.MoveNext;
 end;
end;

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

procedure Tfrmsecesend.BitBtn1Click(Sender: TObject);
begin
if ComboBox1.Text ='' then
 begin
 Application.MessageBox('请选择你要添加分类的父节点!','提示',MB_ICONEXCLAMATION+MB_OK);
 Exit;
 end;
if Edit1.Text ='' then
 begin
 Application.MessageBox('请输入分类名称!','提示',MB_ICONEXCLAMATION+MB_OK);
 Edit1.SetFocus;
 Exit; 
 end;
BitBtn1.Cursor:=crHourGlass;
//开始添加
{1:判断分类中是否包含无节点内容}
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from title where title='+chr(39)+ComboBox1.Text +chr(39));
qryTemp.Open;
  {如果存在第一个节点则编辑}
  if (qryTemp.Recordset.RecordCount =1) and (qryTemp.Recordset.Fields['desce'].Value ='无') then
   begin
   qryTemp.Edit;
   qryTemp.FieldByName('desce').AsString:=Edit1.Text;
   qryTemp.Post; 
   end
     else
      begin
      qryTemp.Append;
      qryTemp.FieldByName('title').AsString:=Trim(ComboBox1.Text);
      qryTemp.FieldByName('desce').AsString:=Trim(Edit1.Text);
      qryTemp.Post;  
      end;
Edit1.Text:='';
ComboBox1.Text:='';
frmain.ToolButton5.Click;
BitBtn1.Cursor:=crDefault;
Application.MessageBox('记录添加成功!','提示',MB_ICONINFORMATION+MB_OK);
end;

procedure Tfrmsecesend.ComboBox1Click(Sender: TObject);
begin
Edit1.SetFocus;
end;

end.