mima_gg.cpp

软件工程

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

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

#include "mima_gg.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tmimagg *mimagg;
//---------------------------------------------------------------------------
__fastcall Tmimagg::Tmimagg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
////////////完成密码的修改
void __fastcall Tmimagg::quedingClick(TObject *Sender)
{AnsiString s;
 FILE *fp;
 int n;
 char x[16];
 n=open("admin.txt", O_RDWR);
 if(filelength(n)==0&&old->Text==""&&newm->Text==newy->Text)
    {  chsize(n,0);
       s=newm->Text;
       write(n,s.c_str(),strlen(s.c_str()));
       ShowMessage("密码初始完毕");
       newm->Text="";
       newy->Text="";
       old->Text="";
       close(n);
       mimagg->Close();
       return;
    }
else
{// read(n,x,16);
   fp=fopen("admin.txt","r");
   fscanf(fp,"%s",x);
   s=x;
 if(old->Text==s)
    {if(newm->Text==newy->Text)
     { fclose(fp);
       remove("admin.txt");
       fp=fopen("admin.txt","w+");
       fprintf(fp,"%s",newm->Text.c_str());

       ShowMessage("更改成功");
     //  close(n);
       }
      else
      ShowMessage("新的密码不一致");
     }
  else
   ShowMessage("密码错误");
   }

      newm->Text="";
      newy->Text="";
      old->Text="";
      fclose(fp);
      //close(n);
      mimagg->Close();
 
}
//---------------------------------------------------------------------------