ss_sy.cpp

软件工程

    FileRead(iHandle,chr,15);
   SheS_ss->SS_sytim->Text = chr;//显示使用时间
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_synum->Text = chr;//显示使用人数
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_systa->Text = chr;//显示使用状态
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_syjine->Text = chr;//显示使用金额
   //--------------------------------------------------------------------------
  }
 FileClose(iHandle);
}
//---------------------------------------------------------------------------






void __fastcall TSheS_ss::chakanClick(TObject *Sender)
{
TTreeNode *node;
node = Liebiao1->Selected;
if(node == NULL) ShowMessage("请选择设备");
 else
{
AnsiString path1 = path+node->Text;
char chr[100];
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;//显示使用人员名称
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,15);
   SheS_ss->SS_sytim->Text = chr;//显示使用时间
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_synum->Text = chr;//显示使用人数
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_systa->Text = chr;//显示使用状态
   //-------------------------------------------------------------------------
    FileRead(iHandle,chr,9);
   SheS_ss->SS_syjine->Text = chr;//显示使用金额
   //--------------------------------------------------------------------------
  }
 FileClose(iHandle);
 }
}
//---------------------------------------------------------------------------




void __fastcall TSheS_ss::fixedClick(TObject *Sender)
{
   SS_sy s;
   AnsiString path3 = path + path2+AnsiString(".txt");
   if(SheS_ss->SS_name->Text == "" ) ShowMessage("请输入设施名");
   else
   {
   DeleteFile(path3);
   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::Button2Click(TObject *Sender)
{
Liebiao1->Items->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TSheS_ss::exitClick(TObject *Sender)
{
SheS_ss->Hide();
gggl1->Show();
}
//---------------------------------------------------------------------------

void __fastcall TSheS_ss::yh_exitClick(TObject *Sender)
{
SheS_ss->add->Visible = true;
SheS_ss->fixed->Visible = true;
SheS_ss->del->Visible = true;
SheS_ss->print->Visible = true;
SheS_ss->exit->Visible = true;
SheS_ss->yh_exit->Visible = false;
SheS_ss->Close();
}
//---------------------------------------------------------------------------

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