cxbj.cpp

软件工程

//---------------------------------------------------------------------------
#include"stdio.h"
#include"io.h"

#include <vcl.h>
#pragma hdrstop

#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_bj1 *cx_bj1;
//---------------------------------------------------------------------------
__fastcall Tcx_bj1::Tcx_bj1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
///////退出
void __fastcall Tcx_bj1::Button3Click(TObject *Sender)
{
cx_bj1->Close();
}
//---------------------------------------------------------------------------



////////////进行表具的查询
void __fastcall Tcx_bj1::Button4Click(TObject *Sender)
{
        FILE *fp;
        char str[20];
        if(!(FileExists("zhuhubiaoju.txt")))
        ShowMessage("还没有记录");
        else{
        fp=fopen("zhuhubiaoju.txt","r");
        fseek(fp,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                        {ShowMessage("无此用户,请重新查找");
                        break ;
                        }
                   else if(strcmp(str,Edit8->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fscanf(fp,"%s",str);
                        Edit2->Text=str;
                        fscanf(fp,"%s",str);
                        Edit1->Text=str;
                        fscanf(fp,"%s",str);
                        Edit5->Text=str;
                        fscanf(fp,"%s",str);
                        Edit6->Text=str;
                        fscanf(fp,"%s",str);
                        Edit4->Text=str;
                        fscanf(fp,"%s",str);
                        Edit3->Text=str;
                        Button2->Enabled=true;
                        Button5->Enabled=true;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,67,SEEK_CUR);}
                }
                }
}
//---------------------------------------------------------------------------

void __fastcall Tcx_bj1::Button5Click(TObject *Sender)
{
add_bj1->Show();
}
//---------------------------------------------------------------------------

/////////////进行表具的删除
void __fastcall Tcx_bj1::Button2Click(TObject *Sender)
{
        AnsiString a1,a2,a3,a4,a5,a6,a7;
        FILE *bj;
        FILE *bjtemp;
        char str[10];
        a1=Edit8->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("zhuhubiaoju.txt"))
        {
        bj=fopen("zhuhubiaoju.txt","r");
        bjtemp=fopen("bjtemp.txt","a");
        fseek(bj,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(bj,"%s",str)==EOF)
                      {//ShowMessage("无此用户,不能修改");
                       break ;
                        }
                   else if(strcmp(str,Edit8->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fseek(bj,67,SEEK_CUR);
                        continue;
                        }
                   else
                        {//ShowMessage("循环一次查找");fseek(fp,59,SEEK_CUR);}
                        fprintf(bjtemp,"%10s",str);//ShowMessage(str);
                        }
                }
        }
            fcloseall();
           remove("zhuhubiaoju.txt");
           rename("bjtemp.txt","zhuhubiaoju.txt");
                      //ShowMessage("命名成功");   
}
//---------------------------------------------------------------------------

////////////退出返回
void __fastcall Tcx_bj1::exitClick(TObject *Sender)
{
  cx_bj1->Button5->Visible = true;
  cx_bj1->Button2->Visible = true;
  cx_bj1->Button3->Visible = true;
  cx_bj1->exit->Visible    = false;
  cx_bj1->Edit8->ReadOnly  = false;
  cx_bj1->Close();      
}
//---------------------------------------------------------------------------