Ejemplo n.º 1
0
void UprCompPRM1()
{
  SelectorCRRLIGHTLINE();//найти подсвеченную строку текущего текст потока
  PrepareEditMenu(sub_menu_upr_compPRM1);
  PassWord(EditUprPRM1);

}//UprCompPRM1()
Ejemplo n.º 2
0
void UprCompDVHi()
{
  SelectorMNGBAZA(MNGUPR_DVHI);//установка базы уставок
  SelectorCRRLIGHTLINE();//найти подсвеченную строку текущего текст потока
  PrepareEditMenu(sub_menu_upr_compDV);
  PassWord(EditUprDV);

}//UprCompDVHi()
Ejemplo n.º 3
0
//-----------------------------------------------------------------------------
void TAdministradora :: LoadAdministradorCuenta(AnsiString pNameFile)
{
  TFile* administr = new TFile(pNameFile);
  administr->Open("rb");
  if(administr->IsOpen())
  {
    TSAdmin admin;
    administr->Read(&admin,sizeof(TSAdmin));
    strcpy(aUsuario.c_str(),admin.user);
    AnsiString User = aUsuario.c_str();
    Usuario(User);
    strcpy(aPassWord.c_str(),admin.pass);
    AnsiString Pass = aPassWord.c_str();
    PassWord(Pass);
  }
  administr->Close();
  delete administr;
}
Ejemplo n.º 4
0
void UstCompMTZ5()
{
  SelectorCRRLIGHTLINE();//найти подсвеченную строку текущего текст потока
  PrepareEditMenu(sub_menu_ust_compMTZ5);
  PassWord(EditUstMTZ5);
}//VidCompMTZ5()