mainpas.pas

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

unit mainpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ToolWin, ComCtrls, ImgList, StdCtrls, OleCtrls, SHDocVw,
  ExtCtrls, DB, ADODB, WinSkinData,ShellAPI,IniFiles, jpeg;

type
  Tfrmain = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    b1: TMenuItem;
    s1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    t1: TMenuItem;
    b2: TMenuItem;
    g1: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    TreeView1: TTreeView;
    ImageList2: TImageList;
    Splitter1: TSplitter;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Memo1: TMemo;
    TabSheet2: TTabSheet;
    WebBrowser1: TWebBrowser;
    ADOQuery1: TADOQuery;
    ImageList3: TImageList;
    N6: TMenuItem;
    N7: TMenuItem;
    SkinData1: TSkinData;
    Panel1: TPanel;
    QrySkinName: TADOQuery;
    Panel2: TPanel;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    x1: TMenuItem;
    x2: TMenuItem;
    x3: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure g1Click(Sender: TObject);
    procedure b1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure s1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure x2Click(Sender: TObject);
    procedure x3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  procedure AddteSpecially;//添加特效的过程
  procedure readiniSkin;//定义读取INI文件的过程
  public
    { Public declarations }
  end;

var
  frmain: Tfrmain;

implementation

uses datalink, skinpas, edittx, newRoot, editscesend, NewSpecially;

{$R *.dfm}

procedure Tfrmain.FormClose(Sender: TObject; var Action: TCloseAction);
var i:Integer;
begin
 i:=Application.MessageBox('确定要退出吗?','询问',MB_ICONQUESTION+MB_OKCANCEL);
 if i=2 then
 Abort;
end;

procedure Tfrmain.ToolButton6Click(Sender: TObject);
begin
Self.Close;
end;
//*****************************************************************************
//*******************功能说明:添加网页特效列表*********************************
//*****************************************************************************
procedure Tfrmain.AddteSpecially;
var QryNode:TADOQuery;//定义父节点
var QryChindNode:TADOQuery;//定义第一子节点
var QryLastNode:TADOQuery;//定义第二节点
var Node,Cnode,lNode:TTreeNode;
begin
//创建数据连接
QryNode:=TADOQuery.Create(QryNode);
QryNode.Connection:=DataConnection.con;
QryNode.Close;
QryNode.SQL.Clear;
QryNode.SQL.Add('select title as 名称  from title group by title');
QryNode.Open;
QryChindNode:=TADOQuery.Create(QryChindNode);
QryChindNode.Connection:=DataConnection.con;
QryLastNode:=TADOQuery.Create(QryLastNode);
QryLastNode.Connection:=DataConnection.con;
TreeView1.Items.Clear;
 while not QryNode.Recordset.EOF do
  begin
  //添加第一根节点
  Node:=TreeView1.Items.AddChild(nil,QryNode.Recordset.Fields['名称'].Value);
  Node.ImageIndex:=1;
  //开始添加第二个子节点
  QryChindNode.Close;
  QryChindNode.SQL.Clear;
  QryChindNode.SQL.Add('select * from title where title='+chr(39)+Trim(QryNode.Recordset.Fields['名称'].Value)+chr(39) );
  QryChindNode.Open;
     while not QryChindNode.Recordset.EOF do
     begin
     Cnode:=TreeView1.Items.AddChild(Node,Trim(QryChindNode.Recordset.Fields['desce'].Value));
     Cnode.ImageIndex:=0;
     //添加第三节点
     QryLastNode.Close;
     QryLastNode.SQL.Clear;
     QryLastNode.SQL.Add('select * from Code where title='+Trim(QryChindNode.Recordset.Fields['ID'].Value));
     QryLastNode.Open;
       while not QryLastNode.Recordset.EOF do
        begin
        lNode:=TreeView1.Items.AddChild(Cnode,Trim(QryLastNode.Recordset.Fields['Desce'].Value));
        lNode.ImageIndex:=0;
        lNode.StateIndex:=QryLastNode.Recordset.Fields['ID'].Value;
        QryLastNode.Recordset.MoveNext; 
        end;
     QryChindNode.Recordset.MoveNext;
     end;
   
  QryNode.Recordset.MoveNext;
  end;
end;
procedure Tfrmain.FormCreate(Sender: TObject);
begin
Self.Left:=(Screen.DesktopWidth -Self.Width ) div 2;
Self.Top:=(Screen.DesktopHeight -Self.Height) div 2;
//readiniSkin;
end;
procedure Tfrmain.FormShow(Sender: TObject);
begin
AddteSpecially;
readiniSkin;
end;

procedure Tfrmain.TreeView1Click(Sender: TObject);
var StrUSerID:String;
begin
if TreeView1.Selected.getFirstChild <>nil then
 begin
 Abort;
 end
  else
   begin
   Panel1.Visible:=True;
   Panel2.Visible:=False;
   Panel1.Caption:='页面打开中请等待. . . . . ';
   Self.Refresh;
   StrUSerID:=IntToStr(TreeView1.Selected.StateIndex);
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from Code where ID='+StrUSerID);
   ADOQuery1.Open;
   if not ADOQuery1.Recordset.EOF then
   begin
   Memo1.Text:=ADOQuery1.Recordset.Fields['code'].Value;
   Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+'temp.htm');
   WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'temp.htm');
   StatusBar1.Panels[0].Text:='当前特效:'+TreeView1.Selected.Text;
   ADOQuery1.Close;
   end;
   Panel1.Visible:=False;
   end;
end;

procedure Tfrmain.N6Click(Sender: TObject);
begin
frmskin:=Tfrmskin.Create(Self);
frmskin.Show;
end;

procedure Tfrmain.g1Click(Sender: TObject);
begin
ShellAbout(0,'[网页特效集锦]','3600工作室',Application.Icon.Handle);
end;

procedure Tfrmain.b1Click(Sender: TObject);
begin
if TreeView1.Selected.getFirstChild<>nil then
 begin
 Abort;
 Exit;
end;
if TreeView1.Selected =nil then
 begin
 Abort;
 Exit;
 end;
 Screen.Cursor:=crHourGlass;
 frmedittx:=Tfrmedittx.Create(Self);
with frmedittx do
 begin
 qryEdit.Close;
 qryEdit.SQL.Clear;
 qryEdit.SQL.Add('select * from code where ID='+IntToStr(TreeView1.Selected.StateIndex));
 qryEdit.Open;
 Memo1.Text:=qryEdit.Recordset.Fields['code'].Value;
 end;
frmedittx.Show;
Screen.Cursor:=crDefault;
end;

procedure Tfrmain.ToolButton2Click(Sender: TObject);
begin
b1.Click;
end;
//******************************************************************************
//******************功能说明:根据读取的ini文件并根据配置装载皮肤****************
//******************************************************************************
procedure Tfrmain.readiniSkin;
 var SkininiFile:TIniFile;
 var StrSkInname:String;//存放皮肤名称
 var SrmSkin:TStream;//定义流变量
 begin
 //创建ini文件
 SkininiFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'skinconfig.ini');
 StrSkInname:=SkininiFile.ReadString('skin','name','[系统默认]');
 QrySkinName.Close;
 QrySkinName.SQL.Clear;
 QrySkinName.SQL.Add('select * from softskin where 名称='+chr(39)+StrSkInname+chr(39));
 QrySkinName.Open;
 //判断时候需要加载皮肤
 if QrySkinName.Recordset.RecordCount>0 then
 begin
 SrmSkin:=qrySkinName.CreateBlobStream(qrySkinName.FieldByName('文件'),bmRead);
 SkinData1.LoadFromStream(SrmSkin);
 SkinData1.Active:=True;
 end;
//------------------------------------------------------------------------------
end;
procedure Tfrmain.s1Click(Sender: TObject);
var i:Integer;
begin
i:=Application.MessageBox('确定要删除当前特效吗?特效删除后将无法恢复确认操作吗?','询问',MB_ICONQUESTION+MB_OKCANCEL);
if i=1 then
 begin
 //删除特效的过程
 if TreeView1.Selected.getFirstChild <>nil then
  begin
  Application.MessageBox('选定的节点不是特效节点!请确认你的操作!','提示',MB_ICONEXCLAMATION+MB_OK);
  Exit;
  end;
 if TreeView1.Selected =nil then
  begin
  Application.MessageBox('请选定你要删除的特效!','提示',MB_ICONEXCLAMATION+MB_OK);
  Exit;
  end;
//删除操作
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete from code where ID='+IntToStr(TreeView1.Selected.StateIndex));
  ADOQuery1.ExecSQL;
  TreeView1.Selected.Delete;
  Application.MessageBox('记录删除成功!','提示',MB_ICONINFORMATION+MB_OK);

 end;
end;

procedure Tfrmain.ToolButton3Click(Sender: TObject);
begin
s1.Click;
end;

procedure Tfrmain.x1Click(Sender: TObject);
begin
frmnewroot:=Tfrmnewroot.Create(Self);
frmnewroot.Show;
end;

procedure Tfrmain.x2Click(Sender: TObject);
begin
frmsecesend:=Tfrmsecesend.Create(Self);
frmsecesend.Show;
end;

procedure Tfrmain.x3Click(Sender: TObject);
begin
 frmNewSpecially:=TfrmNewSpecially.Create(Self);
 frmNewSpecially.Show; 
end;

procedure Tfrmain.N4Click(Sender: TObject);
begin
AddteSpecially;
end;

procedure Tfrmain.ToolButton5Click(Sender: TObject);
begin
AddteSpecially;
end;

end.