// ---------------------------------------------------------------------------
void __fastcall TUpdateErrorForm::GetFieldValues(Data::Db::TDataSet* DataSet) {
int i;
TField *F;
TObject *O;
// Create a list of the data fields in the dataset, and store them in
// a stringlist which we can use to determine which values the user
// has edited
FDataFields->Clear();
for (i = 1; i < DataSet->FieldCount; i++) {
F = DataSet->Fields->FieldByNumber(i);
if (F->FieldKind == fkData)
{
O = dynamic_cast<TObject *>(DataSet->Fields->FieldByNumber(i));
FDataFields->AddObject("",O);
}
}
// Now fill up the string grid with the Old and New values of each field.
// OldValue and NewValue are public properties of TDataSet which are used
// from within the OnUpdateError event handler to determine what data a
// user has updated. We use the VarToStr RTL function to ensure that null
// fields are displayed as blank strings
UpdateData->RowCount = FDataFields->Count + 1;
for (i = 0; i < FDataFields->Count - 1; i++) {
O = dynamic_cast<TObject *>(FDataFields->Objects[i]);
F = dynamic_cast<TField *>(O);
UpdateData->Cells[0][i+1] = VarToStr(F->NewValue);
UpdateData->Cells[1][i+1] = VarToStr(F->OldValue);
}
}
//---------------------------------------------------------------------------
void __fastcall TTagForm::FormShow(TObject *Sender)
{
switch (m_value.vt)
{
case VT_I2: RadioGroup1->ItemIndex = 1;
break;
case VT_BOOL: RadioGroup1->ItemIndex = 2;
break;
case VT_BSTR: RadioGroup1->ItemIndex = 3;
break;
default: RadioGroup1->ItemIndex = 0;
break;
}
Edit1->Text=m_name;
Edit3->Text=m_description;
Edit4->Text=m_units;
Edit2->Text = VarToStr(m_value);
CheckBox1->Checked=m_enabled[3];
CheckBox2->Checked=m_enabled[2];
CheckBox3->Checked=m_enabled[1];
CheckBox4->Checked=m_enabled[0];
Edit5->Text=FloatToStr(m_alarms[3]);
Edit7->Text=FloatToStr(m_alarms[2]);
Edit9->Text=FloatToStr(m_alarms[1]);
Edit11->Text=FloatToStr(m_alarms[0]);
Edit6->Text=IntToStr(m_severity[3]);
Edit8->Text=IntToStr(m_severity[2]);
Edit10->Text=IntToStr(m_severity[1]);
Edit12->Text=IntToStr(m_severity[0]);
}
//---------------------------------------------------------------------------
void __fastcall TFrmLogin::CarregaInfoUser()
{
TZQuery *QyConsulta;
String SenhaEmail;
Variant Value;
try {
QyConsulta = new TZQuery(Application);
QyConsulta->Connection = AppConnection;
QyConsulta->SQL->Add("SELECT nome, email, ies_administrador FROM tbl_usuario");
QyConsulta->SQL->Add("WHERE usuario = '" + AppUser->Usuario + "';");
QyConsulta->Open();
AppParEmail->SMTPNomeExibicao = QyConsulta->FieldByName("nome")->AsString;
AppParEmail->SMTPUsername = QyConsulta->FieldByName("email")->AsString;
AppParEmail->SMTPConta = AppParEmail->SMTPUsername;
Value = ValidacoesDB::GetParamValue(AppConnection,"CALL get_parametro_texto('epw_"+AppUser->Usuario+"');");
SenhaEmail = VarToStr(Value);
if (SenhaEmail.Length() > 0) {
SenhaEmail = DecryptText(SenhaEmail.c_str());
AppParEmail->SMTPPassword = SenhaEmail;
} else {
AppParEmail->SMTPPassword = "";
}
if (AppUser->Usuario == "administrador") {
AppUser->IsAdm = true;
} else {
AppUser->IsAdm = (QyConsulta->FieldByName("ies_administrador")->AsString == "S");
}
}
__finally{delete(QyConsulta);}
}
//---------------------------------------------------------------------------
// Routine to convert a variant value into a string.
// Handles binary field types and "empty" (Unchanged) field values specially
//---------------------------------------------------------------------------
AnsiString VarToAnsiStr (const Variant &V, TFieldType DataType) {
try {
if (VarIsEmpty(V))
return SUnchanged;
else {
switch (DataType) {
case ftBytes:
case ftVarBytes:
case ftBlob:
// ftGraphic .. ftCursor
case ftGraphic:
case ftFmtMemo:
case ftParadoxOle:
case ftDBaseOle:
case ftTypedBinary:
case ftCursor:
return SBinary;
default:
return VarToStr(V);
}
}
} catch (Exception &e) {
return e.Message;
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание информационной ссылки
void CreateInfoItem(string sName, string sVal) {
THmsScriptMediaItem Item; sVal = Trim(sVal);
if (sVal=="") return;
Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sName+': '+sVal;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = 7;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
gnTotalItems++;
}
void __fastcall TCustomerDataSource::SetValue(void * ARecordHandle, void * AItemHandle, const Variant &AValue)
{
int AColumnId = GetDefaultItemID((int)AItemHandle);
TCustomer* ACustomer = FCustomers->Customers[(int)ARecordHandle];
switch (AColumnId) {
case IndexOfID:
if (VarIsNull(AValue))
ACustomer->ID = 0;
else
ACustomer->ID = AValue;
break;
case IndexOfName:
ACustomer->Name = VarToStr(AValue); break;
case IndexOfDescription:
ACustomer->Description = VarToStr(AValue); break;
}
if (!Modified)
FModified = true;
}
void __fastcall TEditorsInPlaceDemoMainForm::tlOrdersCompanyEmailPropertiesButtonClick(
TObject *Sender, int AButtonIndex)
{
/* remove/add the closing slash on this line to disable/enable the following code */
AnsiString AMailTo = "mailto:" +
VarToStr(tlOrders->FocusedNode->Values[tlOrdersCompanyEmail->ItemIndex]);
ShellExecute(Handle, "OPEN", AMailTo.c_str(),
NULL, NULL, SW_SHOWMAXIMIZED);
//*/
}
void __fastcall TFrmBankNumber::GetArea()
{
AnsiString tmpcode =VarToStr(edtpn_Code->Value);
if (tmpcode=="")
tmpcode = CdsmasterPBN_PROVINCE->AsString;
if (tmpcode =="")
{
cdsarea->Close();
}
else
{
if ((cdsarea->Active) & (cdsareapn_Code->AsString == tmpcode)) return ;
AnsiString tmp ="select * from Pay_Area where pn_Code ="+ QuotedStr(tmpcode);
dmMain->FindBySql(tmp,true,cdsarea);
}
}
String TGridModeDemoMainForm::GetSQLCondition(TcxGridDBTableView *AView, bool AAddFilter)
{
String Result = "",
AStr = "where ";
TcxGridDBDataController *ADataController = AView->DataController;
if (AView->IsDetail){
AStr = " and ";
String AFieldName = ADataController->DetailKeyFieldNames;
String AMasterKeyFieldName = ADataController->MasterKeyFieldNames;
TcxGridDBTableView *AMasterGridView =
(TcxGridDBTableView*)AView->MasterGridView;
TDataSet *AMasterDataSet = AMasterGridView->DataController->DataSet;
Variant AMasterKeyValue = AMasterDataSet->FindField(AMasterKeyFieldName)->Value;
Result = "where " + AFieldName + " = " + VarToStr(AMasterKeyValue);
}
if (AAddFilter && !ADataController->Filter->IsEmpty() && ADataController->Filter->Active)
Result = Result + AStr + ADataController->Filter->FilterText;
return Result;
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void CreateErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink='', string sGrp='') {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = gsTime;
Item.CopyProperties(PodcastItem, [mpiThumbnail,mpiYear,mpiActor,mpiDirector,mpiProducer,mpiGenre]);
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки подкаста
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') {
if (sImg=='') sImg = mpThumbnail;
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой
Item[mpiTitle ] = sName; // Присваиваем наименование
Item[mpiThumbnail ] = sImg; // Картинка
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++; // Увеличиваем счетчик созданных элементов
//---------------------------------------------------------------------------
void __fastcall TFin3002::SearchReturn(Variant Value) {
pEditRet->Text = VarToStr(Value);
if(pEditRet->Name == "cod_fornecedor") {
cod_fornecedorExit(pEditRet);
}
}
//---------------------------------------------------------------------------
void __fastcall TPrd3003::SearchReturn(Variant Value) {
pEditRet->Text = VarToStr(Value);
if(pEditRet->Name == "cod_familia") {
cod_familiaExit(pEditRet);
}
}
