sswh.cpp

软件工程

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

#include <vcl.h>
#pragma hdrstop
#include "gggl.h"
#include "SSwh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString whpath =AnsiString("c:\\点此浏览维护情况\\");
AnsiString whpath2 = 0;
AnsiString imagepath = ("c:\\工程平面图\\"); 
TSS_whgl *SS_whgl;
//---------------------------------------------------------------------------
__fastcall TSS_whgl::TSS_whgl(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void _fastcall TSS_whgl::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 TSS_whgl::Button1Click(TObject *Sender)
{
if(SS_pmt1->Execute())
 {SS_pmt->Picture->LoadFromFile(SS_pmt1->FileName); }        
}
//---------------------------------------------------------------------------
void __fastcall TSS_whgl::addClick(TObject *Sender)
{
    SS_wh s;
    if(SS_whgl ->SS_whnam->Text == "" ) ShowMessage("请输入设施名");
   else
   {
   s.SS_whnam  = SS_whgl-> SS_whnam ->Text;
   whpath2       = SS_whgl-> SS_whnam  ->Text;
   s.SS_whr    = SS_whgl-> SS_whr  ->Text;
   s.Phone     = SS_whgl-> Phone ->Text;
   s.SS_whtim  = SS_whgl-> SS_whtim ->Text;
   s.SS_whjine = SS_whgl-> SS_whjine  ->Text;
   s.SS_whglr  = SS_whgl-> SS_whglr ->Text;
   s.SS_whsm   = SS_whgl-> SS_whsm  ->Text;
   AnsiString y = whpath + s.SS_whnam +AnsiString(".txt");
   int iHandle = FileCreate(y);
 //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whnam.c_str(),9);
   FileSeek  (iHandle,0,2);
                                   //添加设施名称
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whr.c_str(),9);
   FileSeek  (iHandle,0,2);
                                 //添加维护人员
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.Phone.c_str(),12);
   FileSeek  (iHandle,0,2);
                                //添加电话
   //---------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whtim.c_str(),15);
   FileSeek  (iHandle,0,2);
                                //添加维护时间
   //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whjine.c_str(),9);
   FileSeek  (iHandle,0,2);
                               //添加维护费用
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whglr.c_str(),9);
   FileSeek  (iHandle,0,2);
                              //添加维护管理人员
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whsm.c_str(),100);
   FileSeek  (iHandle,0,2);
                             //添加维护说明
   //----------------------------------------------------------------------

   FileClose (iHandle);
   //-------
    Liebiao1->Items->Clear();
    Screen->Cursor = crHourGlass;
    AnsiString Path = whpath;
    if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
    BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;//列表刷新
    ShowMessage("添加成功");
    AnsiString t = imagepath + SS_whgl ->SS_whnam->Text+AnsiString(".bmp");
    SS_pmt->Picture->SaveToFile(t);
    }
}
//---------------------------------------------------------------------------
void __fastcall TSS_whgl::Button2Click(TObject *Sender)
{
CreateDir(whpath);
CreateDir(imagepath);
Liebiao1->Items->Clear();
    Screen->Cursor = crHourGlass;
    AnsiString Path = whpath;
    if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
    BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;//列表刷新        
}
//---------------------------------------------------------------------------



void __fastcall TSS_whgl::chakanClick(TObject *Sender)
{
TTreeNode *node;
node = Liebiao1->Selected;
if(node == NULL) ShowMessage("请选择设备");
 else
{
AnsiString path1 = whpath+node->Text;//处理文件路径

AnsiString i1 = node -> Text;
int First = i1.Length()-3;
int Length = 4;
AnsiString i2 = i1.Delete(First,Length);//处理图片路径


char chr[100];
int iHandle = FileOpen(path1,0);
 if(iHandle == -1){ShowMessage("请选择设备"); }
 else
 {
   FileRead(iHandle,chr,9);
   SS_whgl-> SS_whnam ->Text = chr; //显示设施名称
   whpath2 = SS_whgl-> SS_whnam ->Text;//设置当前的文件
   //--------------------------------------------------------------------------
   FileRead(iHandle,chr,9);
   SS_whgl-> SS_whr  ->Text  =  chr; //显示维护人员
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,12);
   SS_whgl-> Phone ->Text = chr;//显示电话
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,15);
   SS_whgl-> SS_whtim ->Text = chr;//显示维护时间
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SS_whgl-> SS_whjine  ->Text = chr;//显示维护费用
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SS_whgl-> SS_whglr ->Text = chr;//显示管理人员
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,100);
   SS_whgl-> SS_whsm  ->Text = chr;//显示维护说明
   //-------------------------------------------------------------------------
  AnsiString i3 = imagepath + i2 +AnsiString(".bmp");
  SS_pmt->Picture->LoadFromFile(i3);
  }
 FileClose(iHandle);
 }
}
//---------------------------------------------------------------------------




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

AnsiString y = whpath+node->Text;

AnsiString i1 = node -> Text;
int First = i1.Length()-3;
int Length = 4;
AnsiString i2 = i1.Delete(First,Length);//处理图片路径


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

void __fastcall TSS_whgl::findClick(TObject *Sender)
{
AnsiString str;
str = Chaxun->Text;
char chr[400];
AnsiString path1 = whpath+str+AnsiString(".txt");
int iHandle = FileOpen(path1,0);
 if(iHandle == -1){ShowMessage("无此设备！"); }
 else
 {
   FileRead(iHandle,chr,9);
   SS_whgl-> SS_whnam ->Text = chr; //显示设施名称
   whpath2 = SS_whgl-> SS_whnam ->Text;//设置当前的文件
   //--------------------------------------------------------------------------
   FileRead(iHandle,chr,9);
   SS_whgl-> SS_whr  ->Text  =  chr; //显示维护人员
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,12);
   SS_whgl-> Phone ->Text = chr;//显示电话
   //--------------------------------------------------------------------------
    FileRead(iHandle,chr,15);
   SS_whgl-> SS_whtim ->Text = chr;//显示维护时间
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SS_whgl-> SS_whjine  ->Text = chr;//显示维护费用
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SS_whgl-> SS_whglr ->Text = chr;//显示管理人员
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,100);
   SS_whgl-> SS_whsm  ->Text = chr;//显示维护说明
   //-------------------------------------------------------------------------
   AnsiString t = imagepath + str + AnsiString(".bmp");
   SS_pmt->Picture->LoadFromFile(t);
  }
 FileClose(iHandle);
}
//---------------------------------------------------------------------------



void __fastcall TSS_whgl::fixClick(TObject *Sender)
{
    SS_wh s;
    AnsiString path3 = whpath + whpath2+AnsiString(".txt");
    AnsiString i3    = imagepath  + whpath2+AnsiString(".bmp");
    if(SS_whgl ->SS_whnam->Text == "" ) ShowMessage("请输入设施名");
   else
   {
   DeleteFile(path3);
   DeleteFile(i3);
   s.SS_whnam  = SS_whgl-> SS_whnam ->Text;
   whpath2       = SS_whgl-> SS_whnam  ->Text;
   s.SS_whr    = SS_whgl-> SS_whr  ->Text;
   s.Phone     = SS_whgl-> Phone ->Text;
   s.SS_whtim  = SS_whgl-> SS_whtim ->Text;
   s.SS_whjine = SS_whgl-> SS_whjine  ->Text;
   s.SS_whglr  = SS_whgl-> SS_whglr ->Text;
   s.SS_whsm   = SS_whgl-> SS_whsm  ->Text;
   AnsiString y = whpath + s.SS_whnam +AnsiString(".txt");
   AnsiString i4 = imagepath +s.SS_whnam + AnsiString(".bmp");
   int iHandle = FileCreate(y);
 //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whnam.c_str(),9);
   FileSeek  (iHandle,0,2);
                                   //添加设施名称
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whr.c_str(),9);
   FileSeek  (iHandle,0,2);
                                 //添加维护人员
   //--------------------------------------------------------------------
   FileWrite (iHandle,s.Phone.c_str(),12);
   FileSeek  (iHandle,0,2);
                                //添加电话
   //---------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whtim.c_str(),15);
   FileSeek  (iHandle,0,2);
                                //添加维护时间
   //----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whjine.c_str(),9);
   FileSeek  (iHandle,0,2);
                               //添加维护费用
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whglr.c_str(),9);
   FileSeek  (iHandle,0,2);
                              //添加维护管理人员
   //-----------------------------------------------------------------------
   FileWrite (iHandle,s.SS_whsm.c_str(),100);
   FileSeek  (iHandle,0,2);
                             //添加维护说明
   //----------------------------------------------------------------------

    FileClose (iHandle);
   //-------
    Liebiao1->Items->Clear();
    Screen->Cursor = crHourGlass;
    AnsiString Path = whpath;
    if (Path.SubString (Path.Length (), 1) != "\\" )  Path += "\\";
    BrowDir (Liebiao1->Items, Path, Liebiao1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;//列表刷新
    ShowMessage("修改成功");
    SS_pmt->Picture->SaveToFile(i4);
    }
}
//---------------------------------------------------------------------------







void __fastcall TSS_whgl::Button3Click(TObject *Sender)
{
Liebiao1->Items->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TSS_whgl::Button4Click(TObject *Sender)
{
SS_whgl->Hide();
gggl1->Show();
}
//---------------------------------------------------------------------------

void __fastcall TSS_whgl::printClick(TObject *Sender)
{
ShowMessage("未找到设备");        
}
//---------------------------------------------------------------------------