zh_liulan.cpp

软件工程

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

#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_liulan1 *zh_liulan1;
//---------------------------------------------------------------------------
__fastcall Tzh_liulan1::Tzh_liulan1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tzh_liulan1::Button1Click(TObject *Sender)
{
zh_zlgl1->Show();
zh_liulan1->Close();
}
//---------------------------------------------------------------------------
void __fastcall Tzh_liulan1::BrowDir (TTreeNodes *Nodes, AnsiString PathName,
TTreeNode *Num)
{
 TSearchRec sr;
 TTreeNode* Layel;
 if (FindFirst (PathName+"*.*", faAnyFile, sr) == 0)
  {
    do                          //通过循环搜索子目录下的所有子目录
    {
       if ((sr.Attr & faDirectory) && sr.Name !="." && sr.Name !="..")
        {
          Layel = Nodes->AddChild (Num,"目录：" + sr.Name);  
//添加子目录节点
          BrowDir (Nodes, PathName+sr.Name+"\\", Layel);  
//递归处理子目录
        }
     }while (FindNext (sr) == 0);
    FindClose (sr);
  }
 if (FindFirst (PathName +"*.*", faAnyFile, sr) == 0)  
  {
do                         //通过循环搜索该目录下的所有文件
     {
       if (!(sr.Attr & faDirectory))
         Nodes->AddChild (Num,sr.Name);   //添加文件节点
     } while (FindNext (sr) ==0);
    FindClose (sr);
  }
}

/////////按确定进行查询
void __fastcall Tzh_liulan1::Button2Click(TObject *Sender)
{

AnsiString nametemp;
TTreeNode *node;
FILE *fp,*fm;
char str[25];
          if(!FileExists("zhuhuinfo1.txt"))ShowMessage("没有记录档案");
          else
          {
        fp=fopen("zhuhuinfo1.txt","r");
        //ShowMessage("打开文件开始查找");
           fseek(fp,0L,0);
                while(1)
                   {
                     if(fscanf(fp,"%s",str)==EOF)
                           {
                           //Edit44->Text="无此用户";
                           break;  //ShowMessage(str);//"无此用户"
                            }
                     else if(strcmp(Edit30->Text.c_str(),str)==0)
                           {  // ShowMessage("找到");
                               //fscanf(fp,"%s",str);
                               Edit44->Text=str;
                        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);
                        Edit1->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox5->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;
                        fscanf(fp,"%s",str);
                        Edit7->Text=str;
                        fscanf(fp,"%s",str);
                        Edit8->Text=str;
                        fscanf(fp,"%s",str);
                        Edit31->Text=str;

                               break;
                          }
                          else {//ShowMessage(str);
                          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(Edit30->Text.c_str(),str)==0)
                        {//ShowMessage("找到");

                        fscanf(fp,"%s",str);
                        Edit9->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox6->Text=str;
                        fscanf(fp,"%s",str);
                        Edit10->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);
                        Edit14->Text=str;
                        fscanf(fp,"%s",str);
                        Edit15->Text=str;

                        fscanf(fp,"%s",str);
                        Edit16->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox7->Text=str;
                        fscanf(fp,"%s",str);
                        Edit17->Text=str;
                        fscanf(fp,"%s",str);
                        Edit18->Text=str;
                        fscanf(fp,"%s",str);
                        Edit19->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);
                        Edit23->Text=str;
                        fscanf(fp,"%s",str);
                        ComboBox8->Text=str;
                        fscanf(fp,"%s",str);
                        Edit24->Text=str;
                        fscanf(fp,"%s",str);
                        Edit25->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);
                        Edit29->Text=str;
                        break;}
                   else
                        {//ShowMessage("循环一次查找");
                        fseek(fp,423,SEEK_CUR);
                        }
                }
                fclose(fm);

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



void __fastcall Tzh_liulan1::FormCreate(TObject *Sender)
{
Screen->Cursor = crHourGlass;
    //改变鼠标箭头的形状为沙漏形表示需要等待
    AnsiString Path =("C:\\zhm");
    if (Path.SubString (Path.Length ( ), 1) != "\\" )  Path += "\\";
    BrowDir (TreeView1->Items, Path, TreeView1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;   //恢复鼠标箭头的原有形状


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

void __fastcall Tzh_liulan1::TreeView1Click(TObject *Sender)
{
TTreeNode *node;
node=TreeView1->Selected;
Edit30->Text=node->Text;
}
//---------------------------------------------------------------------------

void __fastcall Tzh_liulan1::Button3Click(TObject *Sender)
{
 TreeView1->Items->Clear();
                Screen->Cursor = crHourGlass;
    //改变鼠标箭头的形状为沙漏形表示需要等待
    AnsiString Path =("C:\\zhm");
    if (Path.SubString (Path.Length ( ), 1) != "\\" )  Path += "\\";
    BrowDir (TreeView1->Items, Path, TreeView1->Items->Add (NULL, Path));
    Screen->Cursor = crDefault;   //恢复鼠标箭头的原有形状
}
//---------------------------------------------------------------------------