//---------------------------------------------------------------------------
void __fastcall TMainForm::DeleteMemPhotoButtonClick(TObject *Sender)
{
if (!DBGrid->Fields[13]->AsString.IsEmpty()) {
if (MessageDlg("Вы уверены, что хотите удалить фото в этой записи?",
mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0) == 6) {
AnsiString photoFile = GetAppPath()+"Photo\\"+DBGrid->Fields[13]->AsString+".jpg";
int ID = DBGrid->Fields[14]->AsInteger;
AnsiString query = "UPDATE tblMembers SET mPhoto = '' WHERE ID = " + AnsiString(ID);
CMData->ADOQuery->SQL->Clear();
CMData->ADOQuery->SQL->Add(query);
CMData->ADOQuery->ExecSQL();
query = AnsiString("select mSur, mName, mPat, mBD, mCD, mNat, mAdd, mTel, mFam, mPro, ") +
AnsiString ("mLife, mSug, mEtc, mPhoto, ID from tblMembers order by mSur, mName, mPat");
CMData->ADOQuery->SQL->Clear();
CMData->ADOQuery->SQL->Add(query);
CMData->ADOQuery->Open();
if (FileExists(photoFile)) {
DeleteFileA(photoFile);
} else {
MessageDlg("Файл '" + photoFile + "' не найден!", mtError, TMsgDlgButtons() << mbOK, 0);
}
}
} else
MessageDlg("Данная запись не содержит фото!", mtWarning, TMsgDlgButtons() << mbOK, 0);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::btnLoadIdeClick(TObject *Sender)
{
TStringList *aFileStringList;
AnsiString SearchPathExpr;
if (ModuleOfAddr(TheFormArray[FormID]->ClassInfo()) == "")
{
MessageDlg("This functionality is disabled unless\n"
"you build the demo from the C++ Builder IDE\n"
"with map file generation enabled.", mtWarning, TMsgDlgButtons() << mbOK, 0);
return;
}
// uses the function "ModuleOfAddr" from JclDebug unit to get the unit name
SearchPathExpr = ExtractFilePath(Application->ExeName) +
ModuleOfAddr(TheFormArray[FormID]->ClassInfo()) + "->pas";
StrReplace(SearchPathExpr, "\bin", "\examples", TReplaceFlags() << rfIgnoreCase);
// uses AdvBuildFileList to get the file location in the example diretory tree
aFileStringList = new TStringList();
AdvBuildFileList(SearchPathExpr, faAnyFile, aFileStringList, amAny,
TFileListOptions() << flFullNames << flRecursive, "", NULL);
if (aFileStringList->Count < 1)
MessageDlg("File not found", mtError, TMsgDlgButtons() << mbOK, 0);
else
ShellExecute(0,
NULL,
("\"" + aFileStringList->Strings[0] + "\"").c_str(),
NULL,
NULL,
SW_SHOWNORMAL);
delete aFileStringList;
}
void __fastcall TForm6::Image2Click(TObject *Sender)
{
if(!Edit1->Text.IsEmpty()){
String cadena;
int total;
cadena="select count(*) as total from modelo where nombre='"+Edit1->Text+"'";
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(cadena);
Query1->Active=true;
total=Query1->FieldByName("total")->Value;
if(total!=1){
cadena="insert into modelo values(null,'"+Edit1->Text+"',"+marca_id+")";
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add(cadena);
Query1->ExecSQL();
MessageDlg("Agregado con Éxito", mtInformation, TMsgDlgButtons() << mbOK, 0);
Edit1->Clear();
Form6->Close();
Form4->modelo();
}else{
MessageDlg("El modelo está ya repetido. Intente con otro", mtInformation, TMsgDlgButtons() << mbOK, 0);
}
}else{
MessageDlg("No ha ingresado Modelo", mtInformation, TMsgDlgButtons() << mbOK, 0);
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s;
if (tblDest->TableName == "")
tblDest->TableName = cmbxDestTable->Text;
if ((dbSource->DatabaseFileName != "") && // test for enough input
(tblSource->TableName != "") &&
(dbDest->DatabaseFileName != "") &&
(tblDest->TableName != "") &&
(cmbxMode->Items->Strings[cmbxMode->ItemIndex] != ""))
{
BatchMove1->ChangedTableName = edtChangedTable->Text; // more batchmove setup
BatchMove1->KeyViolTableName = edtKeyVioTbl->Text;
BatchMove1->ProblemTableName = edtProbTbl->Text;
BatchMove1->RecordCount = StrToInt(edtRecCount->Text);
BatchMove1->CommitCount = StrToInt(edtCommitCount->Text);
BatchMove1->Source = tblSource;
BatchMove1->Destination = tblDest;
}
else
{
MessageDlg("Incomplete input->",mtError,TMsgDlgButtons()<<mbOK,0);
return;
};
BatchMove1->Execute(); // run the batchmove
s = "BatchMove complete. Number of records applied: "+IntToStr(BatchMove1->MovedCount)+
"\r\n" + "Problem record count: "+ IntToStr(BatchMove1->ProblemCount) +
"\r\n" + "Changed record count: "+ IntToStr(BatchMove1->ChangedCount) +
"\r\n" + "Key violation count: "+ IntToStr(BatchMove1->KeyViolCount);
MessageDlg(s,mtInformation,TMsgDlgButtons()<<mbOK,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ResetBtClick(TObject *Sender)
{
if (!ResetNetAccessFile(FileNameEd->Text, Key))
MessageDlg("Unable to reset network access file.",
mtError, TMsgDlgButtons() << mbOK, 0);
else
if (!UpdateInfoLabels(FileNameEd->Text))
MessageDlg("Unable read network access file.",
mtError, TMsgDlgButtons() << mbOK, 0);
}
void __fastcall TFrmTransDemo::BtnCommitEditsClick(TObject *Sender) {
if ((DmEmployee->IBTransaction1->InTransaction) &&
(MessageDlg("Are you sure you want to commit your changes?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)) {
DmEmployee->IBTransaction1->Commit();
DmEmployee->IBTransaction1->StartTransaction();
DmEmployee->EmployeeTable->Open();
DmEmployee->EmployeeTable->Refresh();
}
else
MessageDlg("Can't Commit Changes: No Transaction Active", mtError,
TMsgDlgButtons() << TMsgDlgBtn::mbOK, 0);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPelengCharacteristic::BitBtn1Click(TObject *Sender)
{
bool Result;
//!!!!!!!!!!!!!!!!!!!!!
/* egBeginTeta->Get_Gradus_Value(&BeginTeta, &Result); if (!Result) return;
egEndTeta ->Get_Gradus_Value(&EndTeta , &Result); if (!Result) return;
egTetaStep ->Get_Gradus_Value(&TetaStep , &Result); if (!Result) return;*/
if (EndTeta < BeginTeta) {MessageDlg("Начальное значение Тета по величине должно быть меньше за конечное значение Тета.", mtWarning, TMsgDlgButtons() << mbOK, 0); return; }
if (TetaStep <= 0 ) {MessageDlg("Значение шага по углу Тета должно превышать величину НУЛЯ.", mtWarning, TMsgDlgButtons() << mbOK, 0); return; }
// +++++++++++++++++++++++++++++++++++
TFloat aEps_c = 0.07;
TFloat aQ_c = 0;
TFloat CurFi = 0;
TFloat aDeltaQ, aDeltaAlfa = 0;
// +++++++++++++++++++++++++++++++++++
int i = 0; while ( i < Chart1->SeriesList->Count ) ((TFastLineSeries*)Chart1->SeriesList->Items[0])->Free(); // --------- Удаляю предыдущие отрисованые кривые ----
// +++++++++++++++++++++++++++++++++++
for (TFloat CurTeta = BeginTeta; CurTeta <= EndTeta; CurTeta = CurTeta + TetaStep){
CreateSeriesAndAddToChart(Chart1, CurTeta);
// --------------
*aFar->pStrobing = true;
aFar->Calc_Teta_Fi_DeltaQ_DeltaAlfa(CurTeta, CurFi, aDeltaQ, aDeltaAlfa);
aFar->Set_DeltaQ_DeltaAlfa(aDeltaQ, aDeltaAlfa);
for (aQ_c = -0.8 * aFar->FarParam->Diagram.Shir; aQ_c < 0.8 * aFar->FarParam->Diagram.Shir; aQ_c = aQ_c + 0.0007){
// ----------- Расчет значений вольтов для каждого из лучей ---------
for (int i = 0; i < Diagram_Count; i++) {
TFloat aOffsetX = sin(aQ_c ) - sin(DiagramArray[i]->OffsetX);
TFloat aOffsetY = sin(aEps_c) - sin(DiagramArray[i]->OffsetY);
// -------- А теперь смещение относительно "нуля" центра луча в радианах-------
aOffsetX = _ArcSin_(aOffsetX);
aOffsetY = _ArcSin_(aOffsetY);
// ------------------- Ниже типа аРадВалуе нуно умножить косинус Тета
aRadValue[i] = DiagramArray[i]->Get_SignalStrength(aOffsetX, aOffsetY);
//if (aCalcRelay) aRadValue[i] = DiagramArray[i]->Get_RelayValue(aRadValue[i]);
}
// -------- Теперь расчитаным мощностям в каждом луче расчитываем координаты цели --------
TFloat SumRadValue = aRadValue[0] + aRadValue[2] + aRadValue[1] + aRadValue[3];
E1 = ((aRadValue[1] + aRadValue[3]) - (aRadValue[0] + aRadValue[2])) / SumRadValue;
//E2 = ((aRadValue[0] + aRadValue[1]) - (aRadValue[2] + aRadValue[3])) / SumRadValue;
Chart1->Series[Chart1->SeriesList->Count - 1]->AddXY(aQ_c * _180_del_Pi, E1, "", clBlack);
}
}
}
//{E_NO_MEMORY, E_NO_PAGES, E_BAD_ADDRESS, E_BAD_BOUNDARY, E_MULTIPLE_FREE, E_CORRUPTED_BLOCK};
void __fastcall TfrmObjAllocMain::GenerateError(void)
{
OAException::OA_EXCEPTION ex = static_cast<OAException::OA_EXCEPTION>(grpErrors->ItemIndex);
try
{
PStudent free = const_cast<PStudent>(reinterpret_cast<const TStudent *>(FStudentObjectMgr->GetFreeList()));
PStudent student = 0;
if (FStudents->Count)
student = reinterpret_cast<PStudent>(FStudents->Items[0]);
switch (ex)
{
case OAException::E_NO_MEMORY:
MessageDlg(AnsiString("No exception thrown.\n\nNot implemented in driver."), mtInformation, TMsgDlgButtons() << mbOK, 0);
break;
case OAException::E_NO_PAGES:
TestNoPages();
break;
case OAException::E_BAD_BOUNDARY:
if (chkDebugState->Checked)
if (student)
FStudentObjectMgr->Free(reinterpret_cast<char *>(student) + 3);
else
MessageDlg(AnsiString("No exception thrown.\n\nNo blocks allocated."), mtInformation, TMsgDlgButtons() << mbOK, 0);
else
MessageDlg(AnsiString("No exception thrown.\n\nDebug information is disabled."), mtInformation, TMsgDlgButtons() << mbOK, 0);
break;
case OAException::E_BAD_ADDRESS:
if (chkDebugState->Checked)
FStudentObjectMgr->Free(reinterpret_cast<void *>(100));
else
MessageDlg(AnsiString("No exception thrown.\n\nDebug information is disabled."), mtInformation, TMsgDlgButtons() << mbOK, 0);
break;
case OAException::E_MULTIPLE_FREE:
if (chkDebugState->Checked)
if (free)
FStudentObjectMgr->Free(free);
else
MessageDlg(AnsiString("No exception thrown.\n\nNo blocks on the free list."), mtInformation, TMsgDlgButtons() << mbOK, 0);
else
MessageDlg(AnsiString("No exception thrown.\n\nDebug information is disabled."), mtInformation, TMsgDlgButtons() << mbOK, 0);
break;
case OAException::E_CORRUPTED_BLOCK:
if (chkDebugState->Checked)
TestCorruption();
else
MessageDlg(AnsiString("No exception thrown.\n\nDebug information is disabled."), mtInformation, TMsgDlgButtons() << mbOK, 0);
break;
}
}
catch (const OAException& e)
{
MessageDlg(AnsiString("Exception caught!\n\n") + e.what(), mtError, TMsgDlgButtons() << mbOK, 0);
//ShowMessage(e.what());
}
}
// ---------------------------------------------------------------------------
void __fastcall TFrmTransDemo::BtnUndoEditsClick(TObject *Sender) {
if (DmEmployee->IBTransaction1->InTransaction &&
(MessageDlg
("Are you sure you want to undo all changes made during the current transaction?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)) {
DmEmployee->IBTransaction1->Rollback();
DmEmployee->IBTransaction1->StartTransaction();
DmEmployee->EmployeeTable->Open();
DmEmployee->EmployeeTable->Refresh();
}
else
MessageDlg("Can't Undo Edits: No Transaction Active", mtError,
TMsgDlgButtons() << TMsgDlgBtn::mbOK, 0);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ViewMemPhotoButtonClick(TObject *Sender)
{
if (!DBGrid->Fields[13]->AsString.IsEmpty()) {
HWND h;
AnsiString photoFile = GetAppPath()+"Photo\\"+DBGrid->Fields[13]->AsString+".jpg";
if (FileExists(photoFile))
ShellExecute(h, "open", photoFile.c_str(), NULL, NULL, SW_SHOW);
else
MessageDlg("Файл '" + photoFile + "' не найден!", mtError, TMsgDlgButtons() << mbOK, 0);
} else {
MessageDlg("Для этой записи еще нет фото!", mtWarning, TMsgDlgButtons() << mbOK, 0);
}
}
// удаление работы с данным номером
bool TController::delWork(int khr, int work)
{
if(MessageDlg("Удалить выбранную работу из проекта?",
mtWarning, TMsgDlgButtons() << mbOK << mbCancel , 1) == 2)
{
// нажата кнопка "Отмена"
return false;
}
else
{
TWork *del;
int size = vKHRList[khr]->Works.size();
if(work >= 0)
{
// удаление работы
if ((size > work))
{
del = vKHRList[khr]->Works[work];
Model->delWork(vKHRList[khr],del);
}
else if ((size <= work))
{
del = vKHRList[khr]->Payments[work-size];
Model->delPay(vKHRList[khr],del);
}
}
DisplayManager->showWorks(vKHRList);
return true;
}
}
// удаление файла КХР из проекта
bool TController::delKHR(int num)
{
TKHR* del = vKHRList[num]; // ссылка на удаляемую КХР
// вывести сообщение о подтверждении
if(MessageDlg("Удалить выбранную КХР из проекта?",
mtWarning, TMsgDlgButtons() << mbOK << mbCancel , 1) == 2)
{
// нажата кнопка "Отмена"
return false;
}
else
{
vector <TKHR*> :: iterator it;
for(it= vKHRList.begin(); it < vKHRList.end(); it++)
{
TKHR *khr = *it;
if(khr == del)
{
vKHRList.erase(it); // удаление из списка
saveSettings(); // сохранение настроек
DisplayManager->ShowKHR(vKHRList);
break;
}
}
ShowMessage("КХР удалена из проекта.");
return true;
}
}
/*
=======================================================================================================================
=======================================================================================================================
*/
void __fastcall TFormR::ImprimirVClick(TObject *Sender)
{
/*~~~~~~~~~~~~~~~~~~~~~~~*/
TPrinter *I = Printer();
/*~~~~~~~~~~~~~~~~~~~~~~~*/
Graphics::TBitmap * bmp = new Graphics::TBitmap();
bmp = FormR->Image1->Picture->Bitmap;
// Impresion en vertical.
I->Orientation = poPortrait;
bmp->Width = tamanioCircuito.x;
bmp->Height = tamanioCircuito.y;
/*~~~~~~~*/
TRect rc;
/*~~~~~~~*/
rc.Left = 0;
rc.Top = 0;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
double proporcionI = (double) ((double) I->PageHeight / (double) I->PageWidth);
double factor = 2.3;
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
rc.Right = (int) ((double) bmp->Width * (double) proporcionI * factor);
rc.Bottom = (int) ((double) bmp->Height * (double) proporcionI * factor);
/*~~~~~~~~~~~~~~~~~~~~*/
bool imprimir = true;
/*~~~~~~~~~~~~~~~~~~~~*/
if(rc.Right >= I->PageWidth || rc.Bottom >= I->PageHeight)
{
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
AnsiString m = ANSIMENSAJE(msgVisuCircuitoErrorImprimir);
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
if(MessageDlg(m, mtError, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
{
while(rc.Right >= I->PageWidth || rc.Bottom >= I->PageHeight)
{
factor -= 0.1;
rc.Right = (int) ((double) bmp->Width * (double) proporcionI * factor);
rc.Bottom = (int) ((double) bmp->Height * (double) proporcionI * factor);
} // end-while
imprimir = true;
}
else
imprimir = false;
} // end-if
if(imprimir == true)
{
I->BeginDoc();
I->Canvas->StretchDraw(rc, bmp);
I->EndDoc();
} // end-if
}
// перемещает фишку из клетки, в которой сделан щелчок
// в свободную клетку
void __fastcall TForm1::Move(int cx, int cy)
{
if ( ( abs(cx - ex) == 1 && cy-ey == 0 ) ||
( abs(cy - ey) == 1 && cx-ex == 0 ) )
{
// переместить фишку из (cx,cy) в (ex,ey)
pole[ey][ex] = pole[cy][cx];
pole[cy][cx] = 16;
ex = cx;
ey = cy;
// отрисовать поле
ShowPole();
if ( Finish () )
{
GameOver = true;
ShowPole();
int r = MessageDlg ("Цель достигнута! Еще раз (другая картинка)?",
mtInformation, TMsgDlgButtons() << mbYes << mbNo, 0);
if ( r == mrNo )
Form1->Close(); // завершить работу программы
else
{
NewGame();
ShowPole();
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::AddPhoto(AnsiString existingFileName)
{
AnsiString photoFile = "";
AnsiString hash = "";
if (existingFileName.IsEmpty()) {
Randomize();
hash = GetMD5Hash(AnsiString(Random(99999999999999999999999999999999)));
photoFile = GetAppPath()+"Photo\\"+hash+".jpg";
} else {
hash = existingFileName;
}
photoFile = GetAppPath()+"Photo\\"+hash+".jpg";
if (OpenPictureDialog->Execute()) {
if (!OpenPictureDialog->FileName.IsEmpty()) {
if (FileExists(OpenPictureDialog->FileName)) {
int ID = DBGrid->Fields[14]->AsInteger;
AnsiString query = "UPDATE tblMembers SET mPhoto = '" + hash + "' WHERE ID = " + AnsiString(ID);
CMData->ADOQuery->SQL->Clear();
CMData->ADOQuery->SQL->Add(query);
CMData->ADOQuery->ExecSQL();
query = AnsiString("select mSur, mName, mPat, mBD, mCD, mNat, mAdd, mTel, mFam, mPro, ") +
AnsiString ("mLife, mSug, mEtc, mPhoto, ID from tblMembers order by mSur, mName, mPat");
CMData->ADOQuery->SQL->Clear();
CMData->ADOQuery->SQL->Add(query);
CMData->ADOQuery->Open();
CopyFile(OpenPictureDialog->FileName.c_str(), photoFile.c_str(), false);
} else {
MessageDlg("Файл '" + OpenPictureDialog->FileName + "' не найден!", mtError, TMsgDlgButtons() << mbOK, 0);
}
}
}
}
//===========================================================================
void __fastcall TfrmTargetList::ToolButton1Click(TObject *Sender)
{
if (!Stoped) { MessageDlg("Операция доступна только при полностью остановленом моделировании ...", mtInformation, TMsgDlgButtons() << mbOK,0); return; }
// --- Параметры Save Диалога ----
OpenDialog1->Filter = "Файлы целевой обстановки (*.trg)|*.trg";
OpenDialog1->Title = "Открыть файл целевой обстановки";
OpenDialog1->InitialDir = ExtractFilePath(Application->ExeName);
OpenDialog1->FileName = "";
if (OpenDialog1->Execute()){
for (int i = 0; i < CheckListBox1->Items->Count; i ++) {
if (CheckListBox1->Checked[i]) {
CheckListBox1->Checked[i] = false;
SetParamTargetWindow(i);
}
}
aCurrentWindowPos = frmMain->ClientToScreen(Point(0, frmMain->cbWork->BoundsRect.Bottom));
AnsiString aFileName = OpenDialog1->FileName;
if (ExtractFileExt(aFileName) == "") aFileName = aFileName + ".trg";
Targets_Load(aFileName);
}
}
void __fastcall TFrmAlarmDetailList::BtnDecrease100Click(TObject *Sender)
{
INT nPlusVal = dynamic_cast<TButton *>(Sender)->Tag;
INT nAlarmCode = lblAlarmCode->Caption.ToInt() - nPlusVal;
if( nAlarmCode < 1 )
{
nAlarmCode = 1;
}
if( bSaveChkFlag == TRUE )
{
if ( MessageDlg("알람 내용의 수정이 있습니다.\nSave 없이 진행하시겠습니까?\n\nOK"
" : 에러코드 변경\nCancel : 코드 변경 취소"
, mtWarning, TMsgDlgButtons() << mbOK<<mbCancel, 0 ) == mrOk )
{
ReadErrorDatas( nAlarmCode );
lblAlarmCode->Caption = nAlarmCode;
lblErrRecordNo->Caption = nAlarmCode;
}
else
{
lblAlarmCode->Caption = lblAlarmCode->Caption.ToInt();
lblErrRecordNo->Caption = lblAlarmCode->Caption.ToInt();
}
}
else
{
ReadErrorDatas( nAlarmCode );
lblAlarmCode->Caption = nAlarmCode;
lblErrRecordNo->Caption = nAlarmCode;
}
bSaveChkFlag = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TFormClasificacion::ButtonSalirClick(TObject *Sender)
{
if (MessageDlg("Se va a cerrar la aplicacion. Los cambios no guardados se perderán. ¿Desea continuar?",mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes)
{
Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TServerModeDemoDataDM::ServerModeDataSourceFatalError(TdxServerModeCustomDataSource *Sender, const String AMessage)
{
String S = "The following error occurred when obtaining data: \"" + AMessage + "\".\n";
S += "Do you want to reload the data?";
if (MessageDlg(S, mtError, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
Sender->Open();
}
//==================================================================
//==================================================================
//==================================================================
void TfrmWave::ShowWrongEdit(TEdit *Edit)
{
Edit->SetFocus();
Edit->SelectAll();
MessageDlg("Не верный формат ввода", mtError, TMsgDlgButtons() << mbOK,0);
}
/*
Add another student to the list (allocate from object allocator).
If dump is true, redisplay the lists. Returns true, if successful.
*/
bool TfrmObjAllocMain::AddStudent(bool dump)
{
PStudent ps;
try
{
ps = (PStudent)reinterpret_cast<PStudent>(FStudentObjectMgr->Allocate());
}
catch (const OAException& e)
{
MessageDlg(AnsiString("Exception caught!\n\n") + e.what(), mtError, TMsgDlgButtons() << mbOK, 0);
return false;
}
FStudentCount++;
// Initializing data?
if (chkInitializeData->Checked)
FillStudent(ps);
// Add the student and adjust UI counters
FStudents->Add(ps);
UpdateUI();
// Redisplay memory
if (dump)
{
DumpStudents();
DumpFreeList();
DumpMemory();
}
return true;
}
void __fastcall TLog::MemFromExit(TObject *Sender)
{
AnsiString str = "0x";
int addr = StrToInt(str + MemFrom->EditText);
if (addr < 0 || addr >= MEMSIZE) // if invalid address
MessageDlg("Invalid Address", mtInformation, TMsgDlgButtons() << mbOK, 0);
}
void TItemList::RemoveSelItems(TOnItemRemove on_remove)
{
if (mrYes==MessageDlg("Remove selected item(s)?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0)){
on_remove = on_remove.empty()?OnItemRemoveEvent:on_remove;
VERIFY (!on_remove.empty());
RStringVec sel_items;
if (GetSelected(sel_items)){
tvItems->IsUpdating = true; // LockUpdating нельзя
DeselectAll ();
tvItemsAfterSelectionChange (0);
bool bSelChanged=false;
bool bRes=false;
for (RStringVecIt it=sel_items.begin(); it!=sel_items.end(); it++){
TElTreeItem* pNode = FHelper.FindItem(tvItems,**it);
if (!FHelper.RemoveItem(tvItems,pNode,on_remove.empty()?OnItemRemoveEvent:on_remove)){
SelectItem(**it,true,true,false);
bSelChanged=true;
}else{
bRes = true;
}
}
if (bSelChanged||bRes){
tvItemsAfterSelectionChange (0);
if (bRes&&!OnModifiedEvent.empty()) OnModifiedEvent();
}
tvItems->IsUpdating = false;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TFormArnAction::SpeedButton4Click(TObject *Sender)
{
if (!DM->FIBTransactionUpdate->InTransaction) DM->FIBTransactionUpdate->StartTransaction();
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_UNIQV")->AsInteger=DM->FIBDataSetVehicles->FieldValues["UNIQV"];
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_ARN_ACTION")->AsShort=DBLookupComboboxEh_SMN_ACTION->KeyValue;
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_SMN_START")->AsInteger=DM->FIBDataSetSmena->FieldValues["UNIQS"];
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_ARN_DATE")->AsDate=DateTimePickerArendaDate->Date;
if(EditMoney->Text.Length())
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_MONEY")->AsDouble=EditMoney->Text.ToDouble();
else
DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_MONEY")->Clear();
if(EditArnInfo->Text.Length()) DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_INFO")->AsString=EditArnInfo->Text;
else DM->FIBStoredProc_VEHICLE_PAY->ParamByName("VI_INFO")->Clear();
try{
DM->FIBStoredProc_VEHICLE_PAY->ExecProc();
DM->FIBTransactionUpdate->Commit();
}
catch(...){
DM->FIBTransactionUpdate->Rollback();
MessageDlg("Что-то не добавляется...", mtError, TMsgDlgButtons() << mbOK, 0);
}
DM->FIBDataSetArenda->CloseOpen(true);
DM->FIBDataSetVehicles->RecordModified(true);
DM->FIBDataSetVehicles->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TFormDaltonista::ButtonStartClick(TObject *Sender)
{
LabeledEditPunkty->Tag=0;
LabeledEditPunkty->Text=0;
LabeledEditGapa->Tag=0;
LabeledEditGapa->Text=0;
Shape->Brush->Color=clWhite;
if(!TryStrToInt(EditStart->Text,EditStart->Tag)||EditStart->Tag<1)
{
MessageDlg("Bledne dane",mtError,TMsgDlgButtons()<<mbOK,0);
EditStart->Text=20;
}
else
{
TimerZegar->Enabled=(TimerZegar->Enabled==false);
if(TimerZegar->Enabled)
{
ButtonStart->Caption="Stop";
EditStart->ReadOnly=true;
}
else
{
ButtonStart->Caption="Start";
EditStart->ReadOnly=false;
}
}
}
bool TOrdEntryForm::WillNotSave()
{
return MessageDlg("At least one of the first three fields on the "
"Client Info page must be filled in. This record will NOT be saved "
"if you choose OK.",
mtInformation, TMsgDlgButtons() << mbOK << mbCancel, 0) == mrOk;
}
void __fastcall TfrmMainForm::tlbtnDeleteRequestClick(TObject *Sender)
{
//Удаление текущей заявки
if(MessageDlg("Вы действительно желаете удалить заявку \""
+ dmCurrentState->getRequest().getClub().getName() + "\"?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrNo){
//Нет, не удалять заявку
return;
}
//Удалить заявку из базы данных
TRequest::deleteById(dmCurrentState->getRequest().getId());
//Удалить заявку и все что с ней связано из памяти
int currentItIndex = lstboxRequest->ItemIndex;
dmCurrentState->getRequestList()->Delete(currentItIndex);
lstboxRequest->DeleteSelected();
if(lstboxRequest->Count > 0){
if(lstboxRequest->Count == currentItIndex){
currentItIndex--;
}
lstboxRequest->ItemIndex = currentItIndex;
lbItemIndex = -1;
lstboxRequestClick(Sender);
}
else{
destroyCompetitorsList();
EnableDisableWithRequestControls(false);
EnableDisableWithCategoryControls(false);
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmFightVersionEdit::FormClose(TObject *Sender,
TCloseAction &Action)
{
//Пользователь сохраняет данные?
if(ModalResult == mrOk){
//Создать сохраняемый объект
TFightVersion *newObj = new TFightVersion(lbledtCode->Text, lbledtDescription->Text,
memComments->Text);
//Сообщение об ошибке
AnsiString errmess;
//Проверить созданный объект
if(newObj->valid(errmess)){
//Сохранить в базе
newObj->store();
//Сохранить в памяти
dmCurrentState->addFightVersionToList(*newObj);
//Запомнить текущую боевую версию
dmCurrentState->setFightVersion(*newObj);
}
//Объект задан не верно, уничтожить
else{
//Отобразить сообщение об ошибке
MessageDlg(errmess,
mtError, TMsgDlgButtons() << mbOK, 0);
//Запретить закрытие окна
Action = caNone;
}
//Удалить объект
delete newObj;
}
}
//---------------------------------------------------------------------------
// Удаляє строку з таблиці.
//---------------------------------------------------------------------------
bool DeleteFromTable(AnsiString tname, int identity,bool message, AnsiString id_name )
{
bool rezult = true;
bool del = false;
if(message)
{
if(MessageDlg("Ви дійсно хочете знищити запис?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes)
{
del = true;
}
}else{
del = true;
}
TIBQuery *q = CreateQuery(0,
"delete from "+tname+" where "+((id_name == NULL)? ("ID_" + tname) : id_name)+" = "+IntToStr(identity)
, false);
try
{
if(del){
q->ExecSQL();
q->Transaction->Commit();
}else{
rezult = false;
}
}catch(...){
rezult = false;
}
delete q;
return rezult;
}
// ---------------------------------------------------------------------------
void __fastcall TCacheDemoForm::RadioGroup1Click(TObject *Sender) {
TIBCustomDataSet *NewDataSet;
switch ((dynamic_cast<TRadioGroup*>(Sender))->ItemIndex) {
case 0:
NewDataSet = CachedData->IBCacheQuery;
break;
case 1:
NewDataSet = CachedData->IBCachedDataSet;
break;
default:
NewDataSet = CachedData->IBCachedTable;
}
if (NewDataSet != FDataSet) {
if (FDataSet->UpdatesPending) {
if (MessageDlg
("Updates Pending. Are you certain you want to discard?",
mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrNo) {
RadioGroup1->ItemIndex = FDataSet->Tag;
exit(0);
}
}
FDataSet->Close();
FDataSet = NewDataSet;
CachedData->CacheDS->DataSet = FDataSet;
FDataSet->Open();
}
}
