ss_sy.cpp

软件工程

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "gggl.h"
#include "SS_sy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString path =AnsiString("c:\\点此浏览设施\\");
AnsiString path2 = 0;
TSheS_ss *SheS_ss;
//---------------------------------------------------------------------------
__fastcall TSheS_ss::TSheS_ss(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------


void __fastcall TSheS_ss::addClick(TObject *Sender)
{
   SS_sy s;
   if(SheS_ss->SS_name->Text == "" ) ShowMessage("请输入设施名");
   else
   {
   s.SS_name   = SheS_ss->SS_name->Text;
   path2       = SheS_ss->SS_name->Text;
   s.SS_systa  = SheS_ss->SS_systa->Text;
   s.CCS       = SheS_ss->CCS->Text;
   s.Phone     = SheS_ss->Phone->Text;
   s.FZR       = SheS_ss->FZR->Text;
   s.SS_jftim  = SheS_ss->SS_jftime->Text;
   s.SSGL_name = SheS_ss->SSGL_name->Text;
   s.SS_jine   = SheS_ss->SS_jine->Text;
   s.SS_syr    = SheS_ss->SS_syr->Text;
   s.SS_sytim  = SheS_ss->SS_sytim->Text;
   s.SS_synum  = SheS_ss->SS_synum->Text;
   s.SS_syjine = SheS_ss->SS_syjine->Text;
   AnsiString y = path + s.SS_name +AnsiString(".txt");
   int iHandle = FileCreate(y);
 //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_name.c_str(),9);
   FileSeek  (iHandle,0,2);
                                   //添加设施名称
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.CCS.c_str(),9);
   FileSeek  (iHandle,0,2);
                                 //添加承建商
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.Phone.c_str(),12);
   FileSeek  (iHandle,0,2);
                                //添加电话
   //---------------------------------------------------------------------
   FileWrite (iHandle,s.FZR.c_str(),9);
   FileSeek  (iHandle,0,2);
                                //添加负责人
   //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_jftim.c_str(),15);
   FileSeek  (iHandle,0,2);
                               //添加交付日期
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SSGL_name.c_str(),9);
   FileSeek  (iHandle,0,2);
                              //添加设施管理人员
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_jine.c_str(),9);
   FileSeek  (iHandle,0,2);
                             //添加设施金额
   //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_syr.c_str(),9);
   FileSeek  (iHandle,0,2);
                             //添加使用人员
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_sytim.c_str(),15);
   FileSeek  (iHandle,0,2);
                            //添加使用时间
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_synum.c_str(),9);
   FileSeek  (iHandle,0,2);
                            //添加使用人数
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_systa.c_str(),9);
   FileSeek  (iHandle,0,2);
                           //添加使用状态
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_syjine.c_str(),9);
   FileSeek  (iHandle,0,2);
                          //添加使用金额
   //-----------------------------------------------------------------------
   FileClose (iHandle);
   //-------
    Liebiao1->Items->Clear();
    Screen->Cursor = crHourGlass;
    AnsiString Path = path;
    if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
    BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;//列表刷新
    ShowMessage("添加成功");
    }
}
//--------------------------------------------------------------------------



void __fastcall TSheS_ss::Button1Click(TObject *Sender)
{
    CreateDir(path);
    Screen->Cursor = crHourGlass;
    AnsiString Path = path;
    if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
    BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;
}
//---------------------------------------------------------------------------
 void _fastcall TSheS_ss::BrowDir (TTreeNodes *Nodes,AnsiString PathName,
        TTreeNode *Num)
{
 TSearchRec sr;
 TTreeNode* Layel;
 if (FindFirst (PathName+"*.*", faAnyFile, sr) == 0)
    {
    do
      {
       if ((sr.Attr & faDirectory) && sr.Name !="." && sr.Name !="..")
          {
          Layel = Nodes->AddChild (Num,"当前设施：" + sr.Name);
          BrowDir(Nodes, PathName+sr.Name+"\\", Layel);
          }
       }while (FindNext (sr) == 0);
    FindClose (sr);
    }
 if (FindFirst (PathName +"*.*", faAnyFile, sr) == 0)
    {
       do
        {
       if (!(sr.Attr & faDirectory))
         Nodes->AddChild (Num,sr.Name);
        } while (FindNext (sr) ==0);
         FindClose (sr);
     }
}

//--------------------------------------------------------------------------
void __fastcall TSheS_ss::delClick(TObject *Sender)
{
TTreeNode *node;
node = Liebiao1->Selected;
if(node == NULL) ShowMessage("请选择设备");
else
{

AnsiString y = path+node->Text;
DeleteFile(y);
Liebiao1->Items->Clear();
Screen->Cursor = crHourGlass;
AnsiString Path = path;
if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
Screen->Cursor = crDefault;
ShowMessage("删除成功");
   }
}
//---------------------------------------------------------------------------



void __fastcall TSheS_ss::findClick(TObject *Sender)
{
AnsiString str;
str = Chaxun->Text;
char chr[400];
AnsiString path1 = path+str+AnsiString(".txt");
int iHandle = FileOpen(path1,0);
 if(iHandle == -1){ShowMessage("无此设备！"); }
 else
 {
   FileRead(iHandle,chr,9);
   SheS_ss->SS_name->Text = chr;//显示设施名称
    path2 =  SheS_ss->SS_name->Text;//设置当前的文件
   //--------------------------------------------------------------------------
   FileRead(iHandle,chr,9);
   SheS_ss->CCS->Text  =  chr; //显示承建商
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,12);
   SheS_ss->Phone->Text = chr;//显示电话
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->FZR->Text = chr;//显示负责人
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,15);
   SheS_ss->SS_jftime->Text = chr;//显示交付日期
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SSGL_name->Text = chr;//显示管理人员
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_jine->Text = chr;//显示设施金额
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_syr->Text = chr;//显示使用人员名称
   //-------------------------------------------------------------------------