zh_xx.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"
Tzh_xx1 *zh_xx1;
//---------------------------------------------------------------------------
__fastcall Tzh_xx1::Tzh_xx1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------






void __fastcall Tzh_xx1::Button4Click(TObject *Sender)
{
zh_xx1->Close();
zh_zlgl1->Close();
}
//---------------------------------------------------------------------------

 ///////查询
void __fastcall Tzh_xx1::Button1Click(TObject *Sender)     ////查询
{
           FILE *fp,*fm;
           char str[20];
           if(!FileExists("zhuhuinfo1.txt"))ShowMessage("没有记录档案");
           else
           {
           fp=fopen("zhuhuinfo1.txt","r");
           fseek(fp,0L,SEEK_SET);
                while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                        {ShowMessage("无此用户"); break ;   }
                   else if(strcmp(str,Edit1->Text.c_str())==0)
                        {ShowMessage("找到");
                        fscanf(fp,"%s",str);
                        ComboBox1->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox2->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox3->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox4->Text=str;
                        fscanf(fp,"%s",str);
                        Edit2->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox8->Text=str;
                        fscanf(fp,"%s",str);
                        Edit6->Text=str;
                        fscanf(fp,"%s",str);
                        Edit5->Text=str;
                        fscanf(fp,"%s",str);
                        Edit4->Text=str;
                        fscanf(fp,"%s",str);
                        Edit3->Text=str;
                        fscanf(fp,"%s",str);
                        Edit8->Text=str;
                        fscanf(fp,"%s",str);
                        Edit7->Text=str;
                        fscanf(fp,"%s",str);
                        Edit9->Text=str;
                        fscanf(fp,"%s",str);
                        Edit15->Text=str;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,280,SEEK_CUR);
                        }
                }
       }fclose(fp);


        if(!FileExists("zhuhuinfo2.txt"))
        fm=fopen("zhuhuinfo2.txt","w+");
        else fm=fopen("zhuhuinfo2.txt","r");
        fseek(fp,0L,SEEK_SET);
                while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                        {break ;   }
                   else if(strcmp(str,Edit1->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fscanf(fp,"%s",str);
                        Edit10->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox5->Text=str;
                        fscanf(fp,"%s",str);
                        Edit11->Text=str;
                        fscanf(fp,"%s",str);
                        Edit12->Text=str;
                        fscanf(fp,"%s",str);
                        Edit13->Text=str;
                        fscanf(fp,"%s",str);
                        Edit23->Text=str;
                        fscanf(fp,"%s",str);
                        Edit24->Text=str;
                        fscanf(fp,"%s",str);
                        Edit25->Text=str;

                        fscanf(fp,"%s",str);
                        Edit14->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox6->Text=str;
                        fscanf(fp,"%s",str);
                        Edit16->Text=str;
                        fscanf(fp,"%s",str);
                        Edit17->Text=str;
                        fscanf(fp,"%s",str);
                        Edit18->Text=str;
                        fscanf(fp,"%s",str);
                        Edit26->Text=str;
                        fscanf(fp,"%s",str);
                        Edit27->Text=str;
                        fscanf(fp,"%s",str);
                        Edit28->Text=str;

                        fscanf(fp,"%s",str);
                        Edit19->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox7->Text=str;
                        fscanf(fp,"%s",str);
                        Edit20->Text=str;
                        fscanf(fp,"%s",str);
                        Edit21->Text=str;
                        fscanf(fp,"%s",str);
                        Edit22->Text=str;
                        fscanf(fp,"%s",str);
                        Edit29->Text=str;
                        fscanf(fp,"%s",str);
                        Edit30->Text=str;
                        fscanf(fp,"%s",str);
                        Edit31->Text=str;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,423,SEEK_CUR);
                        }
                }
                fclose(fm);
}
//---------------------------------------------------------------------------
 /////////修改保存
void __fastcall Tzh_xx1::Button2Click(TObject *Sender)       //////修改
{
AnsiString a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15;
a1=ComboBox1->Text; a2=ComboBox2->Text;
a3=ComboBox3->Text; a4=ComboBox4->Text;
a5=Edit2->Text;     a6=ComboBox8->Text;
a7=Edit6->Text;     a8=Edit5->Text;
a9=Edit4->Text;     a10=Edit3->Text;
a11=Edit8->Text;    a12=Edit7->Text;
a13=Edit9->Text;    a14=Edit15->Text;
a15=Edit1->Text;

        FILE *yh2;
        FILE *yhtemp2;
        char str[10];
        yh2=fopen("zhuhuinfo1.txt","r");
        yhtemp2=fopen("yhtemp2.txt","a");
        fseek(yh2,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(yh2,"%s",str)==EOF)
                      {ShowMessage("无此用户,不能操作");
                       break ;
                        }
                   else if(strcmp(str,Edit1->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fseek(yh2,280,SEEK_CUR);
                        continue;
                        }
                   else
                        {//ShowMessage("循环一次查找");
                        //fseek(fp,59,SEEK_CUR);}
                        fprintf(yhtemp2,"%20s",str);//ShowMessage(str);
                        }
                }
            fprintf(yhtemp2,"%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s%20s",a15,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14);
            fcloseall();
           remove("zhuhuinfo1.txt");
           rename("yhtemp2.txt","zhuhuinfo1.txt");
}
//---------------------------------------------------------------------------
//////删除记录
void __fastcall Tzh_xx1::Button3Click(TObject *Sender)        ////删除
{

        FILE *yh;
        FILE *yhtemp;
        char str[10];
        yh=fopen("zhuhuinfo1.txt","r");
        yhtemp=fopen("yhtemp.txt","a");
        fseek(yh,0L,SEEK_SET);
            while(1)
                {
                   if(fscanf(yh,"%s",str)==EOF)
                      {ShowMessage("成功删除 已无此用户");
                       break ;
                        }
                   else if(strcmp(str,Edit1->Text.c_str())==0)
                        {//ShowMessage("找到");
                        fseek(yh,280,SEEK_CUR);
                        continue;
                        }
                   else
                        {//ShowMessage("循环一次查找");
                        //fseek(fp,59,SEEK_CUR);}
                        fprintf(yhtemp,"%20s",str);//ShowMessage(str);
                        }
                }

            fcloseall();
           remove("zhuhuinfo1.txt");
           rename("yhtemp.txt","zhuhuinfo1.txt");
           Edit1->Clear();Edit2->Clear();Edit3->Clear();Edit4->Clear();
           Edit5->Clear();Edit6->Clear();Edit7->Clear();Edit8->Clear();
           Edit9->Clear();Edit15->Clear();
           Edit10->Clear();Edit11->Clear();Edit12->Clear();Edit13->Clear();
           Edit14->Clear();Edit16->Clear();Edit17->Clear();Edit18->Clear();
           Edit19->Clear();Edit20->Clear();
           Edit21->Clear();Edit22->Clear();Edit23->Clear();Edit24->Clear();
           Edit25->Clear();Edit26->Clear();Edit27->Clear();Edit28->Clear();
           Edit29->Clear();Edit30->Clear();Edit31->Clear();
                      //ShowMessage("命名成功");  */
                      //ShowMessage("Delete");
           //if(!remove(("c:\\zhm\\"+Edit1->Text).c_str()))
             //   ShowMessage("ok");

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

void __fastcall Tzh_xx1::exitClick(TObject *Sender)
{
zh_xx1->Button2->Visible = true;
zh_xx1->Button3->Visible = true;
zh_xx1->Button4->Visible = true;
zh_xx1->exit   ->Visible = false;
zh_xx1->Edit1->ReadOnly  = false;
zh_xx1->Close();
}
//---------------------------------------------------------------------------