zh_jfgl.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_jfgl1 *zh_jfgl1;
//---------------------------------------------------------------------------
__fastcall Tzh_jfgl1::Tzh_jfgl1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall Tzh_jfgl1::Button3Click(TObject *Sender)
{
zh_gl1->Show();
zh_jfgl1->Close();
}
//---------------------------------------------------------------------------
/////////查询用户费用记录
void __fastcall Tzh_jfgl1::Button1Click(TObject *Sender)
{
FILE *fp;
char str[10];
if(!FileExists("zhuhufeiyong1.txt"))
        ShowMessage("尚无用户费用信息记录");
else
    {    fp=fopen("zhuhufeiyong1.txt","r");
         //fseek(fp,0L,SEEK_SET);
                while(1)
                {
                   if(fscanf(fp,"%s",str)==EOF)
                        {ShowMessage("没有找到"); break ;   }
                   else if(strcmp(str,Edit38->Text.c_str())==0)
                        {ShowMessage("找到");
                        fscanf(fp,"%s",str);
                        Edit36->Text=str;
                        fscanf(fp,"%s",str);
                        Edit35->Text=str;
                        fscanf(fp,"%s",str);
                        Edit34->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox1->Text=str;
                        fscanf(fp,"%s",str);
                        Edit33->Text=str;
                        fscanf(fp,"%s",str);
                        Edit32->Text=str;
                        fscanf(fp,"%s",str);
                        Edit31->Text=str;

                        fscanf(fp,"%s",str);
                        Edit30->Text=str;
                        fscanf(fp,"%s",str);
                        Edit29->Text=str;
                        fscanf(fp,"%s",str);
                        Edit28->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox2->Text=str;
                        fscanf(fp,"%s",str);
                        Edit27->Text=str;
                        fscanf(fp,"%s",str);
                        Edit26->Text=str;
                        fscanf(fp,"%s",str);
                        Edit25->Text=str;

                        fscanf(fp,"%s",str);
                        Edit24->Text=str;
                        fscanf(fp,"%s",str);
                        Edit23->Text=str;
                        fscanf(fp,"%s",str);
                        Edit22->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox3->Text=str;
                        fscanf(fp,"%s",str);
                        Edit21->Text=str;
                        fscanf(fp,"%s",str);
                        Edit20->Text=str;
                        fscanf(fp,"%s",str);
                        Edit19->Text=str;

                        fscanf(fp,"%s",str);
                        Edit18->Text=str;
                        fscanf(fp,"%s",str);
                        Edit17->Text=str;
                        fscanf(fp,"%s",str);
                        Edit16->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox4->Text=str;
                        fscanf(fp,"%s",str);
                        Edit15->Text=str;
                        fscanf(fp,"%s",str);
                        Edit14->Text=str;
                        fscanf(fp,"%s",str);
                        Edit13->Text=str;
                        fscanf(fp,"%s",str);
                        Edit12->Text=str;

                        fscanf(fp,"%s",str);
                        Edit11->Text=str;
                        fscanf(fp,"%s",str);
                        Edit10->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox5->Text=str;
                        fscanf(fp,"%s",str);
                        Edit9->Text=str;

                        fscanf(fp,"%s",str);
                        Edit2->Text=str;
                        fscanf(fp,"%s",str);
                        Edit1->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);
                        ComboBox6->Text=str;
                        fscanf(fp,"%s",str);
                        Edit6->Text=str;

                        fscanf(fp,"%s",str);
                        Edit7->Text=str;
                        fscanf(fp,"%s",str);
                        Edit8->Text=str;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,408,SEEK_CUR);}
                }
         // return 1;
     }
}
//---------------------------------------------------------------------------


void __fastcall Tzh_jfgl1::Button2Click(TObject *Sender)
{
//if(
SaveDialog1->Execute();//)
//{
//RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);

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


void __fastcall Tzh_jfgl1::exitClick(TObject *Sender)
{
zh_jfgl1->Edit38->ReadOnly = false;
zh_jfgl1->Button2->Visible = true;
zh_jfgl1->Button3->Visible = true;
zh_jfgl1->exit->Visible   =  false;
zh_jfgl1->Close();
}
//---------------------------------------------------------------------------