modisf.cpp

管理光盘的程序

//---------------------------------------------------------------------------
// 学韬电子光盘册   版本: 1.0.2
// 作者：颜承     时间:2000.1.17
// 主要构件: TListView ,TTreeView ,TClientDataSet ,TList等
// API函数: GetVolumeInformation,ShellExecute,GetDriveType,GetLogicDriveStrings
// 自定义类: TSerchDisk 递归方法搜索整个磁盘目录文件结构
// 此为修改软件属性实现文件
//---------------------------------------------------------------------------
// 版权所有（C）2000 颜 承
// 这一程序是自由软件，
// 你可以遵照自由软件基金会出版的GNU通用公共许可证条款来修改和重新发布这一程序。
// 发布这一程序的目的是希望它有用，但没有任何担保。甚至没有适合特定目的的隐含的担保。
// 更详细的情况请参阅GNU通用公共许可证。
// 你应该已经和程序一起收到一份GNU通用公共许可证的副本。
// 我的联系方式：桂林集琦药业股份有限公司技术部(541004)
// E-Mail: [e-mail]
//-------------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ModiSF.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//初始化窗口
void __fastcall TForm2::FormShow(TObject *Sender)
{
 Edit1->Text=Form1->ListView1->Selected->Caption;
 Edit2->Text=Form1->ListView1->Selected->SubItems->Strings[0];
 Edit3->Text=Form1->ListView1->Selected->SubItems->Strings[1];

}
//---------------------------------------------------------------------------
//关闭不保存
void __fastcall TForm2::btCancelClick(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------
//关闭保存结果
void __fastcall TForm2::btOKClick(TObject *Sender)
{
    Form1->ClientDataSet2->First();
    TLocateOptions op;
    op.Clear();
    op<<loCaseInsensitive;
    //定位在此软件上
    Form1->ClientDataSet2->Locate("SWName",Form1->ListView1->Selected->Caption,op);

    Form1->ClientDataSet2->Edit(); //修改数据库记录
    Form1->ClientDataSet2->FieldByName("SWName")->AsString=Edit1->Text;
    Form1->ClientDataSet2->FieldByName("SWDirFile")->AsString=Edit2->Text;
    Form1->ClientDataSet2->FieldByName("SWDescription")->AsString=Edit3->Text;
    Form1->ClientDataSet2->Post();
    Form1->ClientDataSet2->MergeChangeLog();
    //修改ListView项目
    Form1->ListView1->Selected->Caption=Edit1->Text;
    Form1->ListView1->Selected->SubItems->Strings[0]=Edit2->Text;
    Form1->ListView1->Selected->SubItems->Strings[1]=Edit3->Text;

    Close();
}
//---------------------------------------------------------------------------
//不允许没有文件名
void __fastcall TForm2::Edit2Change(TObject *Sender)
{
 if(Edit2->Text=="") btOK->Enabled=false;
 else btOK->Enabled=true;
}
//---------------------------------------------------------------------------