cx_baojin.cpp

软件工程

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

#include <vcl.h>
#pragma hdrstop
#include"stdio.h"
#include"io.h"

#include"add_baojin.h"
#include"add_bj.h"
#include"add_zh.h"
#include"cx_baojin.h"
#include"cxbj.h"
#include"zh_bj.h"
#include"zh_gl.h"
#include"zh_jfgl.h"
#include"zh_jl.h"
#include"zh_liulan.h"
#include"zh_xx.h"
#include"zh_zlgl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tcx_baojin1 *cx_baojin1;
//---------------------------------------------------------------------------
__fastcall Tcx_baojin1::Tcx_baojin1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//////////根据用户的编号进行报警
void __fastcall Tcx_baojin1::Button6Click(TObject *Sender)
{
        FILE *fp;
        char str[20];
        if(!FileExists("zhuhubaojing.txt"))
        {
        fp=fopen("zhuhubaojing.txt","w+");
        ShowMessage("尚无记录");
        }
        else
        {
        fp=fopen("zhuhubaojing.txt","r");
        fseek(fp,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                        {ShowMessage("无此用户记录,请重新查找");
                        break ;
                        }
                   else if(strcmp(str,Edit7->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fscanf(fp,"%s",str);
                        Edit1->Text=str;
                        fscanf(fp,"%s",str);
                        Edit2->Text=str;
                        fscanf(fp,"%s",str);
                        Edit3->Text=str;
                        fscanf(fp,"%s",str);
                        Edit4->Text=str;
                        fscanf(fp,"%s",str);
                        Edit5->Text=str;
                        fscanf(fp,"%s",str);
                        Edit6->Text=str;
                        Button3->Enabled=true;
                        Button2->Enabled=true;
                        Button4->Enabled=true;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,49,SEEK_CUR);}
                }
            }

}
//---------------------------------------------------------------------------
//////////退出

void __fastcall Tcx_baojin1::Button5Click(TObject *Sender)
{
cx_baojin1->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tcx_baojin1::Button2Click(TObject *Sender)
{
add_baojin1->Show();

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



void __fastcall Tcx_baojin1::Button4Click(TObject *Sender)
{
zh_jl1->Show();        
}
//---------------------------------------------------------------------------

//////////修改设备信息
void __fastcall Tcx_baojin1::Button3Click(TObject *Sender)
{
        AnsiString a1,a2,a3,a4,a5,a6,a7;
        FILE *fp;
        FILE *temp;
        char str[10];
        a1=Edit7->Text.c_str();
        a2=Edit1->Text.c_str();
        a3=Edit2->Text.c_str();
        a4=Edit3->Text.c_str();
        a5=Edit4->Text.c_str();
        a6=Edit5->Text.c_str();
        a7=Edit6->Text.c_str();
        if (FileExists("zhuhubaojing.txt"))
        {
        fp=fopen("zhuhubaojing.txt","r");
        temp=fopen("temp.txt","a");
        fseek(fp,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                      {//ShowMessage("无此用户,不能修改");
                       break ;
                        }
                   else if(strcmp(str,Edit7->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fseek(fp,48,SEEK_CUR);
                        continue;
                        }
                   else
                        {//ShowMessage("循环一次查找");fseek(fp,59,SEEK_CUR);}
                        fprintf(temp,"%8s",str);//ShowMessage(str);
                        }
                }
          //  fprintf(temp,"%10s %8s %8s %8s %8s %10s %10s",Edit7->Text.c_str(),Edit1->Text.c_str(),Edit2->Text.c_str(),Edit3->Text.c_str(),Edit4->Text.c_str(),Edit5->Text.c_str(),Edit6->Text.c_str());
        }
fprintf(temp,"%8s%8s%8s%8s%8s%8s%8s",a1,a2,a3,a4,a5,a6,a7);
            fcloseall();
           remove("zhuhubaojing.txt");
           rename("temp.txt","zhuhubaojing.txt");
                      //ShowMessage("命名成功");
}
//---------------------------------------------------------------------------