开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
main.cpp
资源名称：cd_man.zip　[点击查看]
上传用户：deyixm
上传日期：2007-01-06
资源大小：43k
文件大小：24k
源码类别：

行业应用

开发平台：

Visual C++

main.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. // 学韬电子光盘册   版本: 1.0.2
  3. // 作者：颜承     时间:2000.1.17
  4. // 主要构件: TListView ,TTreeView ,TClientDataSet ,TList等
  5. // API函数: GetVolumeInformation,ShellExecute  GetDriveType GetLogicDriveStrings
  6. // 自定义类: TSerchDisk 递归方法搜索整个磁盘目录文件结构
  7. // 此为主窗口实现文件
  8. // 版本更新：v1.1.0  修改界面,支持右键,支持双击打开文件.
  9. //           v1.2.0  增加选项功能,增加输出html文件功能.
  10. //           v1.2.1  调整输出html方式,允许设置是否建立链接.
  11. //---------------------------------------------------------------------------
  12. // 版权所有（C）2000 颜 承
  13. // 这一程序是自由软件，
  14. // 你可以遵照自由软件基金会出版的GNU通用公共许可证条款来修改和重新发布这一程序。
  15. // 发布这一程序的目的是希望它有用，但没有任何担保。甚至没有适合特定目的的隐含的担保。
  16. // 更详细的情况请参阅GNU通用公共许可证。
  17. // 你应该已经和程序一起收到一份GNU通用公共许可证的副本。
  18. // 我的联系方式：桂林集琦药业股份有限公司技术部(541004)
  19. // E-Mail: ycshowtop@sohu.com
  20. //-------------------------------------------------------------------------------
  21. #include <vcl.h>
  22. #include <stdio.h>
  23. #include <winuser.h>
  24. #include <shellapi.h>
  25. #include <vclregistry.hpp>
  26. #pragma hdrstop
  28. #include "main.h"
  29. #include "about.h"
  30. #include "CDAdd.h"
  31. #include "SFAdd.h"
  32. #include "CDFind.h"
  33. #include "ModiSF.h"
  34. #include "config.h"
  35. #include "Progressbar.h"
  36. //---------------------------------------------------------------------------
  37. #pragma package(smart_init)
  38. #pragma resource "*.dfm"
  40. TForm1 *Form1;
  41. extern AnsiString TheCDSeriNo; //光盘序列号
  42. AnsiString TheSoft;      //查找的软件名
  44. typedef struct AList {    //查找软件结果列表
  45.     AnsiString cdName;
  46.     AnsiString swName;
  47.  }TAList;
  48. typedef TAList* PAList;
  50. int curNum;   //已找到的软件个数
  51. extern AnsiString cdbname;
  53. //---------------------------------------------------------------------------
  54. __fastcall TForm1::TForm1(TComponent* Owner)
  55.         : TForm(Owner)
  56. {
  57. TheSoft="";
  58. curNum=0;
  59. pList=new TList();
  60. }
  61. //---------------------------------------------------------------------------
  62. //显示关于窗口
  63. void __fastcall TForm1::itemAboutExecute(TObject *Sender)
  64. {
  65.  AboutBox = new TAboutBox(this);
  66.  AboutBox->ShowModal();
  67.  delete AboutBox;
  68. }
  69. //---------------------------------------------------------------------------
  70. //关闭程序
  71. void __fastcall TForm1::itemExtExecute(TObject *Sender)
  72. {
  73.  Close();
  74. }
  75. //---------------------------------------------------------------------------
  76. //添加光盘记录
  77. void __fastcall TForm1::itemAddCDExecute(TObject *Sender)
  78. {
  79.  Form3->Show();
  80. }
  81. //---------------------------------------------------------------------------
  82. //添加软件记录
  83. void __fastcall TForm1::itemAddSoftExecute(TObject *Sender)
  84. {
  85.  Form4->Show();
  86. }
  87. //---------------------------------------------------------------------------
  88. //创建窗口
  89. void __fastcall TForm1::FormCreate(TObject *Sender)
  90. {
  91. //打开程序的提示功能,使之指向ShowHint函数
  92.  Application->OnHint=&ShowHint;
  94.  //在本程序目录中是否存在ini文件,如无则建立.
  95.  AnsiString tmp;
  97.  tmp=ExtractFileDir(Application->ExeName); //取应用程序所在目录
  98.  tmp=tmp+AnsiString("\cdpack.ini");
  100.  if(!FileExists(tmp)) {
  101.     TMemIniFile * Reg=new TMemIniFile(tmp);
  102.     Reg->WriteInteger("Common","FilterCount",3);
  103.     Reg->WriteBool("Common","FileBind",false);
  104.     Reg->WriteBool("Common","HtmlLink",false);
  105.     Reg->WriteString("Filter","item0","exe");
  106.     Reg->WriteString("Filter","item1","zip");
  107.     Reg->WriteString("Filter","item2","rar");
  108.     Reg->UpdateFile();
  109.     delete Reg;
  110.  }
  112. }
  113. //---------------------------------------------------------------------------
  114. //在状态栏上显示提示
  115. void __fastcall TForm1::ShowHint(TObject * Sender)
  116. {
  117.  StatusBar1->Panels->Items[0]->Text=Application->Hint;
  118. }
  119. //--------------------------------------------------------------------------
  120. //检索光盘
  121. void __fastcall TForm1::itemFindCDExecute(TObject *Sender)
  122. {
  123.  Form5->Show();
  124. }
  125. //---------------------------------------------------------------------------
  126. //查找软件
  127. void __fastcall TForm1::itemFindSoftExecute(TObject *Sender)
  128. {
  129.  TheSoft=InputBox("查找软件","请输入要查找的软件名称:","");
  130.  if(TheSoft==""){ //如果没给出软件名,则返回
  131.   itemFindNext->Enabled=false;
  132.   return;
  133.  }
  134.  //关闭软件数据库的过滤器
  135.  ClientDataSet2->Filtered=false;
  137.  PAList pItem;
  138.  TheSoft=TheSoft.LowerCase(); //处理软件名为小写
  139.  ClientDataSet2->First();
  140.  pList->Clear();
  141.  curNum=0;
  143.  while(!ClientDataSet2->Eof) {
  144.        //查找,如果找到把CDSeriNo,SWName 加入pList中
  145.        if(ClientDataSet2->FieldByName("SWName")->AsString.LowerCase().AnsiPos(TheSoft)!=0) {
  146.           pItem = new TAList;
  147.           pItem->swName=ClientDataSet2->FieldValues["SWName"];
  148.           pItem->cdName=ClientDataSet2->FieldValues["CDSeriNo"];
  149.           pList->Add(pItem);
  150.        }
  151.        ClientDataSet2->Next();   //下一条
  152.   }
  154.  int m=pList->Count;
  155.  if(m==0) {          //如果没有找到任何一个软件
  156.    Application->MessageBox("没有相匹配的软件!","提示",MB_OK);
  157.    itemFindNext->Enabled=false;
  158.    return;
  159.  }
  161.  int i;
  162.  PAList temp;
  163.  ClientDataSet1->First();
  164.  while(!ClientDataSet1->Eof) {
  165.     //把pList中的CDSeriNo值换成 CDName
  166.     for(i=0;i<m;i++) {
  167.        temp=(PAList)pList->Items[i];
  168.        if(temp->cdName == ClientDataSet1->FieldByName("CDSeriNo")->AsString ) {
  169.           temp->cdName = ClientDataSet1->FieldByName("CDName")->AsString;
  170.           break;
  171.        }
  172.     }
  173.     ClientDataSet1->Next();
  174.  }
  176.  //在TreeView 中找到相应的光盘名,将其选择,允许查找下一个
  177.  TTreeNode * myNode=TreeView1->Items->Item[1];
  178.  while(myNode!=NULL) {
  179.    temp=(PAList)pList->Items[0];
  180.    if(myNode->Text==temp->cdName ) break;
  181.    myNode=myNode->GetNext();
  182.  }
  183.  if(myNode!=NULL) TreeView1->Selected=myNode;
  184.  if(m>1) itemFindNext->Enabled=true;
  186.  //在ListView中找到相应的软件名,将其选择,
  187.  ListView1->SetFocus();
  188.  ListView1->Selected=NULL;
  189.  for(i=0;i<ListView1->Items->Count;i++) {
  190.    temp=(PAList)pList->Items[0];
  191.    if(ListView1->Items->Item[i]->Caption==temp->swName){
  192.       ListView1->Selected=ListView1->Items->Item[i];
  193.       break;
  194.    }
  195.  }
  196.  //以下几句保证选择项一定在窗口中显示.
  197.  i=ListView1->Items->IndexOf(ListView1->Selected);
  198.  int j=i-ListView1->Items->IndexOf(ListView1->TopItem);
  199.  i=ListView1->ClientHeight/ListView1->VisibleRowCount;
  200.  if(j>ListView1->VisibleRowCount) ListView1->Scroll(0,i*j);
  202. }
  203. //---------------------------------------------------------------------------
  204. //新建数据库
  205. void __fastcall TForm1::itemNewExecute(TObject *Sender)
  206. {
  207.  OpenDialog1->Title="新建";
  208.  AnsiString temp;
  209.  if(OpenDialog1->Execute()) {
  210.      if(ClientDataSet1->Active==true) {
  211.          ClientDataSet1->SaveToFile(ClientDataSet1->FileName);
  212.          ClientDataSet2->SaveToFile(ClientDataSet2->FileName);
  213.      }
  214.      //处理文件名, 确保先关闭ClientDataSet
  215.      temp=OpenDialog1->FileName;
  216.      if(temp.AnsiPos(".cdb")==0) temp=temp+AnsiString(".cdb");
  217.      ClientDataSet1->Active=false;
  218.      ClientDataSet1->FileName=temp;
  219.      int k=temp.Length()-4;
  220.      temp=temp.SubString(1,k)+AnsiString(".dat");
  221.      ClientDataSet2->Active=false;
  222.      ClientDataSet2->FileName=temp;
  224.      ClientDataSet1->FieldDefs->Clear();      //建立数据库结构
  225.      ClientDataSet1->FieldDefs->Add("CDName",ftString,64,true);
  226.      ClientDataSet1->FieldDefs->Add("CDNumber",ftString,8,true);
  227.      ClientDataSet1->FieldDefs->Add("CDSeriNo",ftString,32,true);
  228.      ClientDataSet1->CreateDataSet();   //建立新表
  230.      ClientDataSet2->FieldDefs->Clear();      //建立数据库结构
  231.      ClientDataSet2->FieldDefs->Add("CDSeriNo",ftString,32,true);
  232.      ClientDataSet2->FieldDefs->Add("SWName",ftString,64,true);
  233.      ClientDataSet2->FieldDefs->Add("SWDirFile",ftString,128,true);
  234.      ClientDataSet2->FieldDefs->Add("SWDescription",ftString,256,true);
  235.      ClientDataSet2->CreateDataSet();   //建立新表
  237.      ClientDataSet1->Active=true;      //打开数据库
  238.      ClientDataSet2->Active=true;
  240.      //清空TreeView ,ListView
  241.      TreeView1->Items->Item[0]->DeleteChildren();
  242.      ListView1->Items->BeginUpdate();
  243.      ListView1->Items->Clear();
  244.      ListView1->Items->EndUpdate();
  245.      StatusBar1->Panels->Items[2]->Text="";
  247.      //打开一些相关按钮
  248.      itemAddCD->Enabled=true;
  249.      itemSave->Enabled=true;
  250.      itemOutput->Enabled=true;
  251.      itemDelCD->Enabled=false;
  252.      itemAddSoft->Enabled=false;
  253.      itemDelSoft->Enabled=false;
  254.      itemFindCD->Enabled=false;
  255.      itemFindSoft->Enabled=false;
  256.      Form1->Caption=AnsiString("学韬电子光盘册 - ")+ OpenDialog1->FileName;
  257.  }
  258. }
  259. //---------------------------------------------------------------------------
  260. //打开数据库
  261. void __fastcall TForm1::itemOpenExecute(TObject *Sender)
  262. {
  263.  OpenDialog1->Title="打开";
  264.  if(OpenDialog1->Execute())
  265.      OpenCDBFile(OpenDialog1->FileName);
  266. }
  267. //---------------------------------------------------------------------------
  268. //重画窗口时改变状态条中光盘编号项的位置
  269. void __fastcall TForm1::FormPaint(TObject *Sender)
  270. {
  271.  StatusBar1->Panels->Items[0]->Width=Form1->Width-192;
  272.  StatusBar1->Panels->Items[1]->Width=64;
  273.  StatusBar1->Panels->Items[2]->Width=128;
  274. }
  275. //---------------------------------------------------------------------------
  276. //TreeView改变
  277. void __fastcall TForm1::TreeView1Change(TObject *Sender, TTreeNode *Node)
  278. {
  279.  ListView1->Items->BeginUpdate(); // 清空ListView
  280.  ListView1->Items->Clear();
  281.  ListView1->Items->EndUpdate();
  283.  //如果不是选择根结点,才进行以下操作
  284.  if(TreeView1->Selected!=TreeView1->Items->Item[0]) {
  285.     itemAddSoft->Enabled=true;      //打开两个按钮
  286.     itemDelCD->Enabled=true;
  288.     //定位在所选光盘的记录上,显示光盘编号
  289.     TLocateOptions op;
  290.     op.Clear();
  291.     op<<loCaseInsensitive;
  292.     ClientDataSet1->Locate("CDName",Node->Text,op);
  293.     TheCDSeriNo=ClientDataSet1->FieldValues["CDSeriNo"];
  294.     StatusBar1->Panels->Items[2]->Text=ClientDataSet1->FieldValues["CDNumber"];
  296.     //根据所选光盘序列号,在软件库设置过滤器
  297.     if(ClientDataSet2->Filtered==true) ClientDataSet2->Filtered=false;
  298.     ClientDataSet2->Filter="CDSeriNo="+TheCDSeriNo;
  299.     ClientDataSet2->Filtered=true;
  300.     ClientDataSet2->First();
  301.     TListItem * ListItem;
  302.     //把相应此光盘的软件加入ListView中
  303.     while(!ClientDataSet2->Eof) {
  304.       ListItem = ListView1->Items->Add();
  305.       ListItem->Caption=ClientDataSet2->FieldByName("SWName")->AsString;
  306.       ListItem->SubItems->Add(ClientDataSet2->FieldByName("SWDirFile")->AsString);
  307.       ListItem->SubItems->Add(ClientDataSet2->FieldByName("SWDescription")->AsString);
  308.       ClientDataSet2->Next();
  309.     }
  310.  }
  311.  else { //如果选择是根结点项,关闭相关按钮,不显示编号
  312.     itemAddSoft->Enabled=false;
  313.     itemDelCD->Enabled=false;
  314.     StatusBar1->Panels->Items[2]->Text="";
  316.  }
  317. }
  318. //---------------------------------------------------------------------------
  319. //删除光盘
  320. void __fastcall TForm1::itemDelCDExecute(TObject *Sender)
  321. {
  322.  ClientDataSet1->First();
  324.  TLocateOptions op;
  325.  op.Clear();
  326.  op<<loCaseInsensitive;
  327.  //定位在所选择的光盘上
  328.  ClientDataSet1->Locate("CDName",TreeView1->Selected->Text,op);
  329.  TheCDSeriNo=ClientDataSet1->FieldValues["CDSeriNo"];
  330.  //确认是否删除
  331.  AnsiString temp= ClientDataSet1->FieldValues["CDName"];
  332.  temp=AnsiString("是否删除光盘 ")+temp+AnsiString(" 及它所包括的所有软件记录？");
  333.  int res = MessageDlg(temp,mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0);
  335.  if(res==mrYes) { //删除此光盘记录及软件库中与其相关的软件
  336.    if(ClientDataSet2->Filtered==true) ClientDataSet2->Filtered=false;
  337.    ClientDataSet2->Filter="CDSeriNo="+TheCDSeriNo;
  338.    ClientDataSet2->Filtered=true;                 //设置过滤器
  339.    ClientDataSet2->First();
  340.    while(!ClientDataSet2->Eof) ClientDataSet2->Delete(); //全是与光盘有关的记录
  341.    ClientDataSet1->Delete();
  343.    TreeView1->Selected->Delete();    //在TreeView中删除相应项
  344.    TreeView1->Selected=TreeView1->Items->Item[0];
  345.  }
  347.  if(ClientDataSet1->RecordCount==0) {
  348.     itemFindCD->Enabled=false;
  349.     itemFindSoft->Enabled=false;
  350.  }
  352. }
  353. //---------------------------------------------------------------------------
  354. //删除软件
  355. void __fastcall TForm1::itemDelSoftExecute(TObject *Sender)
  356. {
  357.     ClientDataSet2->First();
  358.     TLocateOptions op;
  359.     op.Clear();
  360.     op<<loCaseInsensitive;
  362.     int i;
  363.     ListView1->Items->BeginUpdate();
  364.     //只要选择的项目数不为空,一个个删除数据库中的相应软件和ListView中相应项目
  365.     while(ListView1->Selected!=NULL) {
  366.        ClientDataSet2->Locate("SWName",ListView1->Selected->Caption,op);
  367.        ClientDataSet2->Delete();
  368.        i=ListView1->Items->IndexOf(ListView1->Selected);
  369.        ListView1->Items->Delete(i);
  370.     }
  371.     ListView1->Items->EndUpdate();
  372.     ListView1->Selected=ListView1->ItemFocused;
  373.     if(ClientDataSet2->RecordCount==0) itemFindSoft->Enabled=false;
  374. }
  375. //---------------------------------------------------------------------------
  376. //ListView改变选择项目时,同时改变两个按钮状态
  377. void __fastcall TForm1::ListView1Change(TObject *Sender, TListItem *Item,
  378.       TItemChange Change)
  379. {
  380.  if(ListView1->Selected!=NULL){
  381.    itemDelSoft->Enabled=true;
  382.    pmModiSF->Enabled=true;
  383.  }
  384.  else{
  385.    itemDelSoft->Enabled=false;
  386.    pmModiSF->Enabled=false;
  387.  }
  389. }
  390. //---------------------------------------------------------------------------
  391. //以下两个函数对Del按键产生反应.
  392. void __fastcall TForm1::TreeView1KeyDown(TObject *Sender, WORD &Key,
  393.       TShiftState Shift)
  394. {
  395.     if( Key==VK_DELETE && itemDelCD->Enabled==true && !(TreeView1->IsEditing()) )
  396.     itemDelCDExecute(Sender);
  398. }
  399. //---------------------------------------------------------------------------
  400. void __fastcall TForm1::ListView1KeyDown(TObject *Sender, WORD &Key,
  401.       TShiftState Shift)
  402. {
  403.     if( Key==VK_DELETE && itemDelSoft->Enabled==true  )
  404.        itemDelSoftExecute(Sender);
  405.     if( Key==VK_RETURN && ListView1->Selected!=NULL)
  406.        ListView1DblClick(Sender);
  407. }
  408. //---------------------------------------------------------------------------
  409. //光盘改名,如果为空则取消改变
  410. void __fastcall TForm1::TreeView1Edited(TObject *Sender, TTreeNode *Node,
  411.       AnsiString &S)
  412. {
  413.  if(S=="") S=Node->Text;
  414.  else {
  415.    ClientDataSet1->Edit();
  416.    ClientDataSet1->FieldByName("CDName")->AsString=S;
  417.    ClientDataSet1->Post();
  418.    ClientDataSet1->MergeChangeLog();
  419.  }
  420. }
  421. //---------------------------------------------------------------------------
  422. //不允许改变根结点项的名字
  423. void __fastcall TForm1::TreeView1Editing(TObject *Sender, TTreeNode *Node,
  424.       bool &AllowEdit)
  425. {
  426.  if(Node->Level==0) AllowEdit=false;
  427. }
  428. //---------------------------------------------------------------------------
  429. //查找下一个软件
  430. void __fastcall TForm1::itemFindNextExecute(TObject *Sender)
  431. {
  432.  curNum++; //已找到的软件数加一,如果找完则关闭下一个按钮
  433.  if(curNum >= pList->Count) {
  434.    itemFindNext->Enabled=false;
  435.    curNum=0;
  436.    return;
  437.  }
  438.  //在TreeView中找到要查找软件对应光盘,选择
  439.  PAList temp;
  440.  TTreeNode * myNode=TreeView1->Items->Item[1];
  441.  while(myNode!=NULL) {
  442.    temp=(PAList)pList->Items[curNum];
  443.    if(myNode->Text==temp->cdName ) break;
  444.    myNode=myNode->GetNext();
  445.  }
  446.  if(myNode!=NULL) TreeView1->Selected=myNode;
  448.  int i;
  449.  ListView1->SetFocus();
  450.  ListView1->Selected=NULL; //取消前一个选择
  452.  for(i=0;i<ListView1->Items->Count;i++) {  //找到下一个相应软件,选择
  453.    temp=(PAList)pList->Items[curNum];
  454.    if(ListView1->Items->Item[i]->Caption==temp->swName){
  455.       ListView1->Selected=ListView1->Items->Item[i];
  456.       break;
  457.    }
  458.  }
  459.  //以下确保选择项被显示
  460.  i=ListView1->Items->IndexOf(ListView1->Selected);
  461.  int j=i-ListView1->Items->IndexOf(ListView1->TopItem);
  462.  i=ListView1->ClientHeight/ListView1->VisibleRowCount;
  463.  if(j>ListView1->VisibleRowCount) ListView1->Scroll(0,i*j);
  465. }
  466. //---------------------------------------------------------------------------
  467. //修改软件名称属性
  468. void __fastcall TForm1::pmModiSFClick(TObject *Sender)
  469. {
  470.  Form2->Show();
  471. }
  472. //---------------------------------------------------------------------------
  473. //执行软件
  474. void __fastcall TForm1::ListView1DblClick(TObject *Sender)
  475. {
  476.  if(ListView1->Selected!=NULL) {
  477.    int k= ListView1->Selected->SubItems->Strings[1].AnsiPos("!");
  478.    if(k!=0) {
  479.      AnsiString temp=ListView1->Selected->SubItems->Strings[1];
  480.      temp=temp.SubString(k,temp.Length()-k+1);
  481.      int res=MessageDlg(temp+"  是否继续执行?",mtWarning,TMsgDlgButtons()<<mbYes<<mbNo,0);
  482.      if(res==mrNo) return;
  483.    }
  484.    ShellExecute(Form1->Handle,"open",ListView1->Selected->SubItems->Strings[0].c_str(),NULL,NULL,SW_SHOWNORMAL);
  485.  }
  486. }
  487. //---------------------------------------------------------------------------
  488. //修改光盘编号
  489. void __fastcall TForm1::StatusBar1DblClick(TObject *Sender)
  490. {
  491.  if(StatusBar1->Panels->Items[2]->Text=="") return;
  492.  AnsiString temp1 = ClientDataSet1->FieldByName("CDNumber")->AsString;
  493.  AnsiString temp2 =InputBox("修改光盘编号","请输入新的光盘编号:",temp1);
  494.  if(temp2!=temp1) {
  495.    ClientDataSet1->Edit();
  496.    ClientDataSet1->FieldByName("CDNumber")->AsString=temp2;
  497.    ClientDataSet1->Post();
  498.    ClientDataSet1->MergeChangeLog();
  499.  }
  500.  StatusBar1->Panels->Items[2]->Text=ClientDataSet1->FieldValues["CDNumber"];
  501. }
  502. //---------------------------------------------------------------------------
  503. //关闭程序,保存文件消除对象
  504. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  505. {
  506.  pList->Clear();
  507.  delete pList;
  508.  if(ClientDataSet1->Active==true) {
  509.     ClientDataSet1->SaveToFile(ClientDataSet1->FileName);
  510.     ClientDataSet2->SaveToFile(ClientDataSet2->FileName);
  511.     ClientDataSet1->Active=false;
  512.     ClientDataSet2->Active=false;
  513.  }
  514. }
  515. //---------------------------------------------------------------------------
  516. //打开数据库文件
  517. void __fastcall TForm1::OpenCDBFile(AnsiString filename)
  518. {
  519.      AnsiString temp=filename;
  520.        //处理文件名,确保关闭了ClientDataSet
  521.      if(ClientDataSet1->Active==true) {
  522.          ClientDataSet1->SaveToFile(ClientDataSet1->FileName);
  523.          ClientDataSet2->SaveToFile(ClientDataSet2->FileName);
  524.      }
  525.      if(temp.AnsiPos(".cdb")==0) temp=temp+AnsiString(".cdb");
  526.      ClientDataSet1->Active=false;
  527.      ClientDataSet1->FileName=temp;
  528.      int k=temp.Length()-4;
  529.      temp=temp.SubString(1,k)+AnsiString(".dat");
  530.      ClientDataSet2->Active=false;
  531.      ClientDataSet2->FileName=temp;
  533.      ClientDataSet1->Active=true;   //打开
  534.      ClientDataSet2->Active=true;
  536.      //清空ListView TreeView
  537.      TreeView1->Items->Item[0]->DeleteChildren();
  538.      ListView1->Items->BeginUpdate();
  539.      ListView1->Items->Clear();
  540.      ListView1->Items->EndUpdate();
  541.      StatusBar1->Panels->Items[2]->Text="";
  543.      //将数据库中记录加入TreeView中
  544.      k=ClientDataSet1->RecordCount;
  545.      int i;
  546.      ClientDataSet1->First();
  547.      TTreeNode * tmpNode = TreeView1->Items->Item[0];
  549.      for(i=0;i<k;i++) {
  550.         TreeView1->Items->AddChild(tmpNode,ClientDataSet1->FieldByName("CDName")->AsString);
  551.         TreeView1->Items->Item[i+1]->ImageIndex=1;
  552.         TreeView1->Items->Item[i+1]->SelectedIndex=0;
  553.         ClientDataSet1->Next();
  554.      }
  555.      //打开一些相关按钮
  556.      itemAddCD->Enabled=true;
  557.      itemSave->Enabled=true;
  558.      itemOutput->Enabled=true;
  559.      itemDelCD->Enabled=false;
  560.      itemAddSoft->Enabled=false;
  561.      itemDelSoft->Enabled=false;
  562.      if(ClientDataSet1->RecordCount!=0) itemFindCD->Enabled=true;
  563.      else itemFindCD->Enabled=false;
  564.      if(ClientDataSet2->RecordCount!=0)itemFindSoft->Enabled=true;
  565.      else itemFindSoft->Enabled=false;
  566.      Form1->Caption=AnsiString("学韬电子光盘册 - ")+filename;
  568. }
  569. //--------------------------------------------------------------------------
  570. //以命令行参数打开数据库
  571. void __fastcall TForm1::FormShow(TObject *Sender)
  572. {
  573.  if(cdbname!="")
  574.     OpenCDBFile(cdbname);
  575. }
  576. //---------------------------------------------------------------------------
  577. //保存文件
  578. void __fastcall TForm1::itemSaveExecute(TObject *Sender)
  579. {
  580.  if(ClientDataSet1->Active==true) {
  581.     ClientDataSet1->SaveToFile(ClientDataSet1->FileName);
  582.     ClientDataSet2->SaveToFile(ClientDataSet2->FileName);
  583.  }
  584. }
  585. //---------------------------------------------------------------------------
  586. //设置参数
  587. void __fastcall TForm1::itemConfigExecute(TObject *Sender)
  588. {
  589.  Form6->Show();
  590. }
  591. //---------------------------------------------------------------------------
  592. //输出HTML
  593. void __fastcall TForm1::itemOutputExecute(TObject *Sender)
  594. {
  595.  AnsiString tmp;
  597.  tmp=ExtractFileDir(Application->ExeName); //取应用程序所在目录
  598.  tmp=tmp+AnsiString("\cdpack.ini");
  600.  TMemIniFile * Reg=new TMemIniFile(tmp);
  601.  bool bLink=Reg->ReadBool("Common","HtmlLink",false); //是否要在HTML文件中设置链接
  602.  Form7->Show();
  603.  OutputHTML(Sender,bLink);
  604.  Form7->Close();
  605.  delete Reg;
  606. }
  607. //---------------------------------------------------------------------------
  608. //写HTML文件
  609. void __fastcall TForm1::OutputHTML(TObject * Sender, bool isLink)
  610. {
  611.  int i,k;
  613.  AnsiString tmp,temp,tempNo;
  615.  tmp=ExtractFileName(ClientDataSet1->FileName);
  616.  k=tmp.Length()-4;
  617.  tmp=tmp.SubString(1,k);
  619.  FILE * fp;
  620.  temp=tmp+AnsiString(".htm");
  621.  fp=fopen(temp.c_str(),"w");
  622.  if(fp==NULL){
  623.    Application->MessageBox("不能创建文件！","错误",MB_OK);
  624.    return;
  625.  }
  627.  fprintf(fp,"<html>");
  628.  fprintf(fp,"<head>");
  629.  fprintf(fp,"<meta http-equiv="Content-Type" content="text/html; charset=gb2312">");
  630.  temp= AnsiString("<title>")+tmp+AnsiString("</title>");
  631.  fprintf(fp,"%s",temp.c_str());
  632.  fprintf(fp,"</head>");
  633.  fprintf(fp,"<body>");
  634.  fprintf(fp,"<p align="center"><strong><font face="幼圆" size="3" color="#FF8000">索引</font> </strong></p>");
  635.  fprintf(fp,"<table border="1" width="80%">");
  636.  fprintf(fp,"<tr><th width="20%">编号</th><th width="80%">光盘名称</th></tr>");
  638.  ClientDataSet1->First();
  640.  k=ClientDataSet1->RecordCount;
  641.  Form7->ProgressBar1->Max=2*k;
  642.  Form7->ProgressBar1->Position=1;
  644.  for(i=0;i<k;i++) {
  645.     fprintf(fp,"<tr>");
  647.     temp=AnsiString("<td width="20%">") +
  648.          ClientDataSet1->FieldByName("CDNumber")->AsString +
  649.          AnsiString("</td>");
  650.     fprintf(fp,"%s",temp.c_str());
  651.     temp=AnsiString("<td width="80%"><a href="./Content/") +
  652.          ClientDataSet1->FieldByName("CDName")->AsString +
  653.          AnsiString(".htm">") + ClientDataSet1->FieldByName("CDName")->AsString +
  654.          AnsiString("</a></td>");
  655.     fprintf(fp,"%s",temp.c_str());
  656.     fprintf(fp,"</tr>");
  657.     Form7->ProgressBar1->StepIt();
  658.     ClientDataSet1->Next();
  659.  }
  660.  fprintf(fp,"</table>");
  661.  fprintf(fp,"</body>");
  662.  fprintf(fp,"</html>");
  664.  fclose(fp);
  665.  fp=NULL;
  667.  CreateDir("Content");
  668.  Form7->ProgressBar1->Position=k;
  670.  ClientDataSet1->First();
  671.  for(i=0;i<k;i++) {
  672.    tmp=ClientDataSet1->FieldByName("CDName")->AsString;
  673.    temp=GetCurrentDir()+AnsiString("\Content\")+tmp+AnsiString(".htm");
  674.    fp=fopen(temp.c_str(),"w");
  675.    if(fp==NULL) {
  676.      Application->MessageBox("不能创建文件！","错误",MB_OK);
  677.      return;
  678.    }
  679.    fprintf(fp,"<html>");
  680.    fprintf(fp,"<head>");
  681.    fprintf(fp,"<meta http-equiv="Content-Type" content="text/html; charset=gb2312">");
  682.    temp= AnsiString("<title>")+tmp+AnsiString("</title>");
  683.    fprintf(fp,"%s",temp.c_str());
  684.    fprintf(fp,"</head>");
  685.    fprintf(fp,"<body>");
  686.    temp=AnsiString("<p align="center"><strong><font face="幼圆" size="3" color="#FF8000">") +
  687.        tmp + AnsiString("</font> </strong></p>");
  688.    fprintf(fp,"%s",temp.c_str());
  689.    fprintf(fp,"<p></p>");
  691.    //根据所选光盘序列号,在软件库设置过滤器
  692.    tempNo=ClientDataSet1->FieldByName("CDSeriNo")->AsString;
  693.    if(ClientDataSet2->Filtered==true) ClientDataSet2->Filtered=false;
  694.    ClientDataSet2->Filter="CDSeriNo="+tempNo;
  695.    ClientDataSet2->Filtered=true;
  696.    ClientDataSet2->First();
  698.    while(!ClientDataSet2->Eof) {
  699.      if(isLink==true)
  700.           temp=AnsiString("<p><strong>软件名称：</strong><a href="") +
  701.                ClientDataSet2->FieldByName("SWDirFile")->AsString +
  702.                AnsiString("">")+ ClientDataSet2->FieldByName("SWName")->AsString +
  703.                AnsiString("</a><br>");
  704.      else temp=AnsiString("<p><strong>软件名称：</strong>") +
  705.                ClientDataSet2->FieldByName("SWName")->AsString +
  706.                AnsiString("<br>");
  707.      fprintf(fp,"%s",temp.c_str());
  708.      temp=AnsiString("<strong>软件说明：</strong>") +
  709.           ClientDataSet2->FieldByName("SWDescription")->AsString +
  710.           AnsiString("</p>");
  711.      fprintf(fp,"%s",temp.c_str());
  712.      fprintf(fp,"<hr>");
  714.      ClientDataSet2->Next();
  715.     }
  716.     fprintf(fp,"</body>");
  717.     fprintf(fp,"</html>");
  719.     Form7->ProgressBar1->StepIt();
  720.     fclose(fp);
  721.     fp=NULL;
  722.     ClientDataSet1->Next();
  723.  }
  724. }