newspecially.pas

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

unit NewSpecially;

interface

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

type
  TfrmNewSpecially = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    qryTemp: TADOQuery;
    dlgOpenHtm: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmNewSpecially: TfrmNewSpecially;

implementation

uses datalink, mainpas;

{$R *.dfm}

procedure TfrmNewSpecially.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 TfrmNewSpecially.BitBtn2Click(Sender: TObject);
begin
Self.Close;
end;

procedure TfrmNewSpecially.ComboBox1Change(Sender: TObject);
begin
//根据用户的选择添加节点列表
Screen.Cursor:=crHourGlass;
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from title where title='+chr(39)+ComboBox1.Text+chr(39));
qryTemp.Open;
ComboBox2.Items.Clear;
while not qryTemp.Recordset.EOF do
 begin
 ComboBox2.Items.Append(Trim(qryTemp.Recordset.Fields['desce'].Value));
 qryTemp.Recordset.MoveNext;
 end;
Screen.Cursor:=crDefault;
end;

procedure TfrmNewSpecially.BitBtn1Click(Sender: TObject);
var StrID:String;
var i:Integer;
begin
if (ComboBox1.Text ='') or (ComboBox2.Text ='') or (Edit1.Text ='') then
 begin
 Application.MessageBox('信息输入不完整!请确认你的输入!','提示',MB_ICONEXCLAMATION+MB_OK);
 Exit;
 end;
if (Memo1.Text='') then
begin
Application.MessageBox('特效内容不能为空!请确认你的操作','提示',MB_ICONEXCLAMATION+MB_OK);
Screen.Cursor:=crDefault;
Exit;
end;
 //判断特效名称是否存在
 i:=Application.MessageBox('确定要添加特效吗?','提示',MB_ICONQUESTION+MB_OKCANCEL);
 if i=1 then
  begin
 Screen.Cursor:=crHourGlass;
 qryTemp.Close;
 qryTemp.SQL.Clear;
 qryTemp.SQL.Add('select * from title where title='+chr(39)+ComboBox1.Text +chr(39));
 qryTemp.SQL.Add('  and  desce='+chr(39)+ComboBox2.Text +chr(39));
 qryTemp.Open;
 StrID:=IntToStr(qryTemp.Recordset.Fields['ID'].Value);
 qryTemp.Close;
 qryTemp.SQL.Clear;
 qryTemp.SQL.Add('select * from code where title='+StrID);
 qryTemp.SQL.Add('  and desce='+chr(39)+Edit1.Text +chr(39));
 qryTemp.Open;
 if qryTemp.Recordset.RecordCount >0 then
  begin
  Application.MessageBox('该特效名称已经存在!请确认你的输入!','提示',MB_ICONEXCLAMATION+MB_OK);
  Edit1.SetFocus;
  Screen.Cursor:=crDefault;
  Exit;
  end;
//开始添加特效
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from code ');
qryTemp.Open;
qryTemp.Append;
qryTemp.FieldByName('title').AsInteger:=StrToInt(StrID);
qryTemp.FieldByName('desce').AsString:=ComboBox2.Text;
qryTemp.FieldByName('code').AsString:=Memo1.Text;
qryTemp.Post;
frmain.ToolButton5.Click;
Screen.Cursor:=crDefault;
Application.MessageBox('记录添加成功!','提示',MB_ICONINFORMATION+MB_OK);
end;
end;

procedure TfrmNewSpecially.BitBtn3Click(Sender: TObject);
begin
if dlgOpenHtm.Execute then
 begin
 Memo1.Lines.LoadFromFile(dlgOpenHtm.FileName);
 end;
end;

end.