void __fastcall TfrmSearch::menuAddParameterClick(TObject *Sender)
{
/* frmEditSearchParam->cbxField->ItemIndex = -1;
frmEditSearchParam->txtContext->Text = "";
frmEditSearchParam->cbxOperator->ItemIndex = 0;
frmEditSearchParam->cbxValues->Text = "";
frmEditSearchParam->cbxAndOr->ItemIndex = 0;
frmEditSearchParam->cbxFieldChange(NULL);*/
if(frmEditSearchParam->ShowModal() == mrOk)
{
TListItem * Item = lvParams->Items->Add();
Item->ImageIndex = 48;
TBillField * Field = (TBillField * )frmEditSearchParam->cbxField->Items->Objects[frmEditSearchParam->cbxField->ItemIndex];
Item->Data = (void *)Field;
Item->SubItems->Add(Field->Label);
Item->SubItems->Add(frmEditSearchParam->cbxOperator->Text);
//Item->SubItems->Add(frmEditSearchParam->cbxAndOr->Text);
if(frmEditSearchParam->txtContext->Visible)
Item->SubItems->Add(frmEditSearchParam->txtContext->Text);
else if(frmEditSearchParam->cbxValues->Visible)
Item->SubItems->Add(frmEditSearchParam->cbxValues->Text);
else
Item->SubItems->Add(
FormatDateTime("yyyy-mm-dd",frmEditSearchParam->dtDate->DateTime) + " " +
FormatDateTime("hh:nn:ss",frmEditSearchParam->dtTime->DateTime));
if(frmEditSearchParam->cbxMatch->Checked)
Item->SubItems->Add("√");
else
Item->SubItems->Add("");
}
}
HRESULT WINAPI CRecycleBin::GetDetailsOf(PCUITEMID_CHILD pidl, UINT iColumn, LPSHELLDETAILS pDetails)
{
PIDLRecycleStruct * pFileDetails;
WCHAR buffer[MAX_PATH];
WCHAR szTypeName[100];
LPWSTR pszBackslash;
UINT Length;
TRACE("(%p, %p, %d, %p)\n", this, pidl, iColumn, pDetails);
if (iColumn >= COLUMNS_COUNT)
return E_FAIL;
pDetails->fmt = RecycleBinColumns[iColumn].fmt;
pDetails->cxChar = RecycleBinColumns[iColumn].cxChars;
if (pidl == NULL)
return SHSetStrRet(&pDetails->str, RecycleBinColumns[iColumn].column_name_id);
if (iColumn == COLUMN_NAME)
return GetDisplayNameOf(pidl, SHGDN_NORMAL, &pDetails->str);
pFileDetails = _ILGetRecycleStruct(pidl);
switch (iColumn)
{
case COLUMN_DATEDEL:
FormatDateTime(buffer, MAX_PATH, &pFileDetails->DeletionTime);
break;
case COLUMN_DELFROM:
pszBackslash = wcsrchr(pFileDetails->szName, L'\\');
Length = (pszBackslash - pFileDetails->szName);
memcpy((LPVOID)buffer, pFileDetails->szName, Length * sizeof(WCHAR));
buffer[Length] = L'\0';
break;
case COLUMN_SIZE:
StrFormatKBSizeW(pFileDetails->FileSize.QuadPart, buffer, MAX_PATH);
break;
case COLUMN_MTIME:
FormatDateTime(buffer, MAX_PATH, &pFileDetails->LastModification);
break;
case COLUMN_TYPE:
// FIXME: We should in fact use a UNICODE version of _ILGetFileType
szTypeName[0] = L'\0';
wcscpy(buffer, PathFindExtensionW(pFileDetails->szName));
if (!( HCR_MapTypeToValueW(buffer, buffer, _countof(buffer), TRUE) &&
HCR_MapTypeToValueW(buffer, szTypeName, _countof(szTypeName), FALSE )))
{
/* load localized file string */
szTypeName[0] = '\0';
if(LoadStringW(shell32_hInstance, IDS_ANY_FILE, szTypeName, _countof(szTypeName)))
{
szTypeName[63] = '\0';
StringCchPrintfW(buffer, _countof(buffer), szTypeName, PathFindExtensionW(pFileDetails->szName));
}
}
return SHSetStrRet(&pDetails->str, szTypeName);
default:
return E_FAIL;
}
return SHSetStrRet(&pDetails->str, buffer);
}
void WriteToLog(String S) {
HANDLE LogFile;
String LogPath;
String LogFileName;
DWORD dwSize;
AnsiString SS;
TDateTime DateTime;
LPDWORD NumberOfBytesWritten = new DWORD;
try { // except
DateTime = Now();
LogPath = ExtractFilePath(Application->ExeName) + LoadStr(IDS_LOG_PATH);
if (!DirectoryExists(LogPath))
CreateDir(LogPath);
LogFileName = IncludeTrailingPathDelimiter(LogPath) +
ChangeFileExt(ExtractFileName(Application->ExeName),
LoadStr(IDS_LOG_EXT));
LogFile = CreateFile(LogFileName.w_str(), GENERIC_READ, FILE_SHARE_READ,
NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
dwSize = 0;
if (LogFile != INVALID_HANDLE_VALUE) {
dwSize = GetFileSize(LogFile, NULL);
CloseHandle(LogFile);
}
if (dwSize > MaxLogSize) {
String NewFileName = IncludeTrailingPathDelimiter(LogPath) +
OnlyFileName(Application->ExeName) + SPACE + FormatDateTime
(LoadStr(IDS_DATETIME_FORMAT_FILENAME), DateTime) +
LoadStr(IDS_LOG_EXT);
MoveFile(LogFileName.w_str(), NewFileName.w_str());
}
LogFile = CreateFile(LogFileName.w_str(), GENERIC_WRITE,
FILE_SHARE_READ, NULL, OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL | FILE_ATTRIBUTE_COMPRESSED, 0);
if (LogFile != INVALID_HANDLE_VALUE) {
SS = AnsiString(FormatDateTime(LoadStr(IDS_DATETIME_FORMAT_LOG),
DateTime) + "; " + AnsiReplaceStr(S, sLineBreak, SPACE) +
sLineBreak);
if (SetFilePointer(LogFile, 0, NULL,
FILE_END) != INVALID_SET_FILE_POINTER)
WriteFile(LogFile, SS.c_str(), SS.Length(),
NumberOfBytesWritten, NULL);
CloseHandle(LogFile);
}
}
catch (...) {
}
}
void __fastcall TFrmAlarmDetailList::ChartAlarmClickSeries(TCustomChart *Sender, TChartSeries *Series,
int ValueIndex, TMouseButton Button, TShiftState Shift, int X,
int Y)
{
String strStartDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmStart->Date);
String strEndDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmEnd->Date + 1);
try
{
AnsiString szQuery = " select *, count(Alarm_idx) AS Frequency from AlarmLog "
" where Set_date BETWEEN '" + strStartDateTime + "' AND '" + strEndDateTime + "'"
" AND Alarm_idx < 1000 group by Alarm_idx order by Frequency DESC;";
CppSQLite3Table OrderedTable = dbMain.getTable(szQuery.c_str());
OrderedTable.setRow(ValueIndex);
AnsiString strCode = (String)OrderedTable.fieldValue("Alarm_idx");
AnsiString szAlarmQuery = " select * from AlarmLog, Alarm, Groups, Recipe where Alarm_idx like " + strCode +
" AND Set_date BETWEEN '" + strStartDateTime + "' AND '" + strEndDateTime + "'"
" AND AlarmLog.Alarm_idx = Alarm.idx"
" AND AlarmLog.Group_idx = Groups.idx"
" AND AlarmLog.group_idx = Recipe.group_idx"
" AND AlarmLog.Recipe_idx = Recipe.idx ORDER BY Set_Date DESC";
CppSQLite3Table SelectedTable = dbMain.getTable(szAlarmQuery.c_str());
for(int i = 1; i < grdAlarmLog->RowCount; i++)
{
grdAlarmLog->Rows[i]->Clear();
}
grdAlarmLog->RowCount = 2;
if (SelectedTable.numRows() > 0)
{
for(int row = 0; row < SelectedTable.numRows(); row++)
{
SelectedTable.setRow(row);
grdAlarmLog->Cells[0][row+1] = IntToStr(row+1);
grdAlarmLog->Cells[1][row+1] = (String)SelectedTable.fieldValue(7); // Start date
grdAlarmLog->Cells[2][row+1] = (String)SelectedTable.fieldValue(8); // End date
grdAlarmLog->Cells[3][row+1] = (String)SelectedTable.fieldValue(9); // Alarm Code
grdAlarmLog->Cells[4][row+1] = (String)SelectedTable.fieldValue(11); // Alarm Name
grdAlarmLog->RowCount = row+2;
}
}
}
catch (CppSQLite3Exception& e)
{
cerr << e.errorCode() << ":" << e.errorMessage() << endl;
}
}
int check_fill()
{
Card.date_create = Form_Create->DateTimePicker_DateCreate->Date;
if (Form_Create->Edit_Number->Text == "") {
ShowMessage("Enter number value");
return 0;
} else {
Card.number = StrToInt(Form_Create->Edit_Number->Text);
}
Card.department_number = Form_Create->ComboBox_DepartmentNumber->ItemIndex+1;
if (Form_Create->Edit_DirectoryNumber->Text == "") {
ShowMessage("Enter directory number value");
return 0;
} else {
Card.directory_number = StrToInt(Form_Create->Edit_DirectoryNumber->Text);
}
/*<control>*/
if (Form_Create->Edit_ControlNumber->Enabled && Form_Create->DateTimePicker_ControlNumberData->Enabled) {
Card.control_number = Form_Create->Edit_ControlNumber->Text;
Card.control_number_data = Form_Create->DateTimePicker_ControlNumberData->Date;
} else {
Card.control_number = NULL;
Card.control_number_data = NULL;
}
/*</control>*/
if (Form_Create->Memo_Description->Text == "") {
ShowMessage("Enter description value");
return 0;
} else {
Card.description = Form_Create->Memo_Description->Text;
}
Card.address = Form_Create->Memo_Address->Text;
Card.post_type = Form_Create->ComboBox_PostType->ItemIndex;
if (Form_Create->Edit_NomenclatureDirectory->Text == "") {
Card.nomenclature_directory = NULL;
} else {
Card.nomenclature_directory = StrToInt(Form_Create->Edit_NomenclatureDirectory->Text);
}
if (FormatDateTime("dd.mm.yyyy",StrToDateTime(Card.control_number_data)) >
FormatDateTime("dd.mm.yyyy",StrToDateTime(Card.date_create))) {
ShowMessage("Date control > date document");
return 0;
}
return 1;
}
void TraceDumpToFile()
{
if (TraceFile != nullptr)
{
TGuard Guard(TracingCriticalSection);
DWORD Written;
TDateTime N = Now();
#ifdef TRACE_IN_MEMORY_NO_FORMATTING
DWORD Ticks = GetTickCount();
#endif
const UnicodeString TimestampFormat = L"hh:mm:ss.zzz";
UnicodeString TimeString = FormatDateTime(TimestampFormat, N);
UTF8String Buffer = UTF8String(
FORMAT("[%s] Dumping in-memory tracing =================================\n",
(TimeString)));
WriteFile(TraceFile, Buffer.c_str(), Buffer.Length(), &Written, nullptr);
TTracesInMemory::const_iterator i = TracesInMemory.begin();
while (i != TracesInMemory.end())
{
#ifdef TRACE_IN_MEMORY_NO_FORMATTING
const wchar_t * SourceFile = i->SourceFile;
const wchar_t * Slash = wcsrchr(SourceFile, L'\\');
if (Slash != nullptr)
{
SourceFile = Slash + 1;
}
TimeString =
FormatDateTime(TimestampFormat,
IncMilliSecond(N, -static_cast<int>(Ticks - i->Ticks)));
Buffer = UTF8String(FORMAT(L"[%s] [%.4X] [%s:%d:%s] %s\n",
(TimeString, int(i->Thread), SourceFile,
i->Line, i->Func, i->Message)));
WriteFile(TraceFile, Buffer.c_str(), Buffer.Length(), &Written, nullptr);
#else
WriteFile(TraceFile, i->Message.c_str(), i->Message.Length(), &Written, nullptr);
#endif
++i;
}
TracesInMemory.clear();
TimeString = FormatDateTime(TimestampFormat, Now());
Buffer = UTF8String(
FORMAT("[%s] Done in-memory tracing =================================\n",
(TimeString)));
WriteFile(TraceFile, Buffer.c_str(), Buffer.Length(), &Written, nullptr);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Memo2->Lines->Insert(0,Now().TimeString()+" 生成接驳文件。");
AnsiString DateChoose = "dt>'"+DateTimePicker1->Date.DateString()+" 00:00:00' and dt<'"+DateTimePicker1->Date.DateString()+" 23:59:59'";
// ShowMessage(DateChoose);
AnsiString sqlstr = "select * from TicketPay where 1=1 and "+DateChoose ;
//ADOConnection1->Connected = true;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(sqlstr);
ADOQuery1->Open();
//ADOQuery1->Active =true;
//Edit1->Text = IntToStr(ADOQuery1->RecordCount);
//Memo1->Clear();
AnsiString InsertString;
Form2->Memo1->Lines->Clear();
AnsiString date1,date2,formati,pay_value;
int i=0,p=0;
for(ADOQuery1->First();!ADOQuery1->Eof;ADOQuery1->Next())
{
//ShowMessage(ADOQuery1->FieldByName("dt")->AsString);
//InsertString=ADOQuery1->FieldValues['dt'];
InsertString=ADOQuery1->FieldByName("dt")->AsString;
pay_value=ADOQuery1->FieldByName("pay_value")->AsString;
//ShowMessage(InsertString);
date1 = FormatDateTime("yyyy",InsertString)+"/"+FormatDateTime("mm",InsertString)+"/"+FormatDateTime("dd",InsertString);
date2 = FormatDateTime("hhmm",InsertString);
//rmati=Format("%010d",ARRAYOFCONST(i));
i++;
//ShowMessage(10-IntToStr(i).Length());
int p=10-IntToStr(i).Length();
formati=IntToStr(i);
for(p;p>0;p=p-1)
{
formati="0"+formati;
//ShowMessage(formati);
}
Form2->Memo1->Lines->Add(Edit2->Text+"\t"+Edit3->Text+"\t"+date1+"\t"+date2+"\t"+formati+"\t"+Edit2->Text+"01"+"\t\t"+pay_value+"\t"+"0.00\t0.00\t0.00\t0.00\t"+pay_value);
// ADOQuery1->Next();
}
Form2->ShowModal();
}
void __fastcall TFrmAlarmDetailList::BtnCodeReadDataClick(TObject *Sender)
{
for(int i = 1; i <=grdAlarmLog->RowCount; i++)
{
grdAlarmLog->Cells[0][i] ="";
grdAlarmLog->Cells[1][i] ="";
grdAlarmLog->Cells[2][i] ="";
grdAlarmLog->Cells[3][i] ="";
}
if(EditAlarmCodeSearch->Text != "")
{
String strStartDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmStart->Date);
String strEndDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmEnd->Date + 1);
String CodeName = EditAlarmCodeSearch->Text.Trim();
grdAlarmLog->RowCount = 2;
try
{
AnsiString szQuery = " select * from AlarmLog, Alarm, Groups, Recipe where Alarm_idx like " + CodeName
+ " AND Set_date BETWEEN '" + strStartDateTime + "' AND '" + strEndDateTime + "'"
+ " AND AlarmLog.Alarm_idx = Alarm.idx"
+ " AND AlarmLog.Group_idx = Groups.idx"
+ " AND AlarmLog.Group_idx = Recipe.group_idx"
+ " AND AlarmLog.Recipe_idx = Recipe.idx;";
CppSQLite3Table tblAlarmLog = dbMain.getTable(szQuery.c_str());
if (tblAlarmLog.numRows() > 0)
{
for (int row = 0; row < tblAlarmLog.numRows(); row++)
{
tblAlarmLog.setRow(row);
grdAlarmLog->Cells[0][row+1] = IntToStr(row+1);
grdAlarmLog->Cells[1][row+1] = (String)tblAlarmLog.fieldValue(7); // Start date
grdAlarmLog->Cells[2][row+1] = (String)tblAlarmLog.fieldValue(8); // End date
grdAlarmLog->Cells[3][row+1] = (String)tblAlarmLog.fieldValue(9); // Alarm Code
grdAlarmLog->Cells[4][row+1] = (String)tblAlarmLog.fieldValue(11); // Alarm Name
grdAlarmLog->RowCount = row+2;
}
}
}
catch (Exception &e)
{
}
}
}
void NowPlayingWidget::SetStatistics (const QString& path)
{
auto stats = Core::Instance ().GetLocalCollection ()->GetTrackStats (path);
const bool valid = stats.Added_.isValid ();
Ui_.LastPlay_->setVisible (valid);
Ui_.LabelLastPlay_->setVisible (valid);
Ui_.StatsCount_->setVisible (valid);
Ui_.LabelPlaybacks_->setVisible (valid);
if (!valid)
return;
Ui_.LastPlay_->setText (FormatDateTime (stats.LastPlay_));
Ui_.StatsCount_->setText (tr ("%n play(s) since %1", 0, stats.Playcount_)
.arg (FormatDateTime (stats.Added_)));
}
static HRESULT WINAPI RecycleBin_GetDetailsOf(IShellFolder2 *iface, LPCITEMIDLIST pidl, UINT iColumn, LPSHELLDETAILS pDetails)
{
RecycleBin *This = impl_from_IShellFolder2(iface);
WIN32_FIND_DATAW data;
WCHAR buffer[MAX_PATH];
TRACE("(%p, %p, %d, %p)\n", This, pidl, iColumn, pDetails);
if (iColumn >= COLUMNS_COUNT)
return E_FAIL;
pDetails->fmt = RecycleBinColumns[iColumn].fmt;
pDetails->cxChar = RecycleBinColumns[iColumn].cxChars;
if (pidl == NULL)
{
pDetails->str.uType = STRRET_WSTR;
LoadStringW(shell32_hInstance, RecycleBinColumns[iColumn].column_name_id, buffer, MAX_PATH);
return SHStrDupW(buffer, &pDetails->str.u.pOleStr);
}
if (iColumn == COLUMN_NAME)
return RecycleBin_GetDisplayNameOf(iface, pidl, SHGDN_NORMAL, &pDetails->str);
TRASH_UnpackItemID(&pidl->mkid, &data);
switch (iColumn)
{
case COLUMN_DATEDEL:
FormatDateTime(buffer, MAX_PATH, data.ftLastAccessTime);
break;
case COLUMN_DELFROM:
lstrcpyW(buffer, data.cFileName);
PathRemoveFileSpecW(buffer);
break;
case COLUMN_SIZE:
StrFormatKBSizeW(((LONGLONG)data.nFileSizeHigh<<32)|data.nFileSizeLow, buffer, MAX_PATH);
break;
case COLUMN_MTIME:
FormatDateTime(buffer, MAX_PATH, data.ftLastWriteTime);
break;
case COLUMN_TYPE:
/* TODO */
buffer[0] = 0;
break;
default:
return E_FAIL;
}
pDetails->str.uType = STRRET_WSTR;
return SHStrDupW(buffer, &pDetails->str.u.pOleStr);
}
void __fastcall TFrmAlarmDetailList::BtnTimeReadDataClick(TObject *Sender)
{
for( INT nRow = 0; nRow < grdAlarmLog->RowCount; nRow++ )
{
grdAlarmLog->Rows[ nRow+1 ]->Clear();
}
grdAlarmLog->RowCount = 2;
AnsiString strStartDateTime = FormatDateTime("yyyy-mm-dd", DateTimeAlarmStart->Date);
AnsiString strEndDateTime = FormatDateTime("yyyy-mm-dd", DateTimeAlarmEnd->Date + 1);
try
{
AnsiString szQuery = "SELECT AlarmLog.set_date, AlarmLog.clear_date, Alarm.idx, Alarm.name, Groups.name, Recipe.name"
" FROM Alarm, AlarmLog, Groups, Recipe"
" WHERE AlarmLog.set_date BETWEEN '" + strStartDateTime + "' AND '" + strEndDateTime + "'"
" AND AlarmLog.alarm_idx = Alarm.idx"
" AND AlarmLog.group_idx = Groups.idx"
" AND AlarmLog.group_idx = Recipe.group_idx"
" AND AlarmLog.recipe_idx = recipe.idx"
" ORDER BY AlarmLog.set_date DESC";
CppSQLite3Table tblAlarmLog = dbMain.getTable( szQuery.c_str() );
for( INT nRow = 0; nRow < tblAlarmLog.numRows(); nRow++ )
{
tblAlarmLog.setRow( nRow );
grdAlarmLog->Cells[ 0 ][ nRow+1 ] = nRow+1;
grdAlarmLog->Cells[ 1 ][ nRow+1 ] = tblAlarmLog.fieldValue( 0 );
grdAlarmLog->Cells[ 2 ][ nRow+1 ] = tblAlarmLog.fieldValue( 1 );
grdAlarmLog->Cells[ 3 ][ nRow+1 ] = tblAlarmLog.fieldValue( 2 );
grdAlarmLog->Cells[ 4 ][ nRow+1 ] = tblAlarmLog.fieldValue( 3 );
grdAlarmLog->RowCount = nRow+2;
}
AlarmFrequencyCount();
}
catch( Exception& e )
{
FrmCdBox->QueryMsg( "DB READ FAIL", "AlarmLog 데이터를 불러오는데 실패 하였습니다.", CD_OK );
}
}
UnicodeString UniqTempDir(const UnicodeString & BaseDir, const UnicodeString & Identity,
bool Mask)
{
UnicodeString TempDir;
do
{
TempDir = BaseDir.IsEmpty() ? SystemTemporaryDirectory() : BaseDir;
TempDir = ::IncludeTrailingBackslash(TempDir) + Identity;
if (Mask)
{
TempDir += L"?????";
}
else
{
#if defined(__BORLANDC__)
TempDir += ::IncludeTrailingBackslash(FormatDateTime(L"nnzzz", Now()));
#else
TDateTime dt = Now();
uint16_t H, M, S, MS;
dt.DecodeTime(H, M, S, MS);
TempDir += ::IncludeTrailingBackslash(FORMAT(L"%02d%03d", M, MS));
#endif
}
}
while (!Mask && ::DirectoryExists(TempDir));
return TempDir;
}
void TOrdEntryForm::AddRecord()
{
TRec* PtrRec = new TRec(TR);
int ItemNum;
String DateStr;
String ListStr;
char buff[80];
if (TR.Date == BadDate)
TR.Date = Ovcdate::CurrentDate();
DateStr = FormatDateTime("mm/dd/yy", StDateToDateTime(TR.Date));
if (String(TR.Company) == "") {
sprintf(buff, "%s %s %s",
DateStr.c_str(), String(TR.FirstName).c_str(), String(TR.LastName).c_str());
ListStr = buff;
}
else if (String(TR.FirstName) == "" && String(TR.LastName) == "") {
sprintf(buff, "%s %s", DateStr.c_str(), String(TR.Company).c_str());
ListStr = buff;
}
else {
sprintf(buff, "%s %s (%s %s)",
DateStr.c_str(), String(TR.Company).c_str(),
String(TR.FirstName).c_str(), String(TR.LastName).c_str());
ListStr = buff;
}
ItemNum = DataList->AddObject(ListStr, reinterpret_cast<TObject*>(PtrRec));
OvcVirtualListbox1->NumItems = DataList->Count;
OvcVirtualListbox1->ItemIndex = ItemNum;
RecState = rsDefault;
}
//---------------------------------------------------------------------------
void __fastcall TTcpSrvForm::WSocketServer1ClientDisconnect(TObject *Sender,
TWSocketClient *Client, WORD Error)
{
Display("Client disconnecting: " + ((TTcpSrvClient *)Client)->PeerAddr + " " +
"Duration: " + FormatDateTime("hh:nn:ss",
Now() - ((TTcpSrvClient *)Client)->ConnectTime));
}
BOOL CHwSMTP::SendSubject()
{
CString csSubject;
csSubject += _T("Date: ");
COleDateTime tNow = COleDateTime::GetCurrentTime();
if ( tNow > 1 )
{
csSubject += FormatDateTime (tNow, _T("%a, %d %b %y %H:%M:%S %Z"));
}
csSubject += _T("\r\n");
csSubject += FormatString ( _T("From: %s\r\n"), this->m_csAddrFrom);
csSubject += FormatString ( _T("CC: %s\r\n"), this->m_StrCC);
if(m_csSender.IsEmpty())
m_csSender = this->m_csAddrFrom;
csSubject += FormatString ( _T("Sender: %s\r\n"), this->m_csSender);
if(this->m_csToList.IsEmpty())
m_csToList = m_csReceiverName;
csSubject += FormatString ( _T("To: %s\r\n"), this->m_csToList);
CString m_csToList;
csSubject += FormatString ( _T("Subject: %s\r\n"), m_csSubject );
csSubject += FormatString ( _T("X-Mailer: TortoiseGit\r\nMIME-Version: 1.0\r\nContent-Type: %s\r\n\r\n"),
m_csMIMEContentType );
return Send ( csSubject );
}
void TSessionLog::DoAddToSelf(TLogLineType Type, UnicodeString ALine)
{
if (LogToFile()) { try
{
if (FLogger == nullptr)
{
OpenLogFile();
}
if (FLogger != nullptr)
{
UnicodeString Timestamp = FormatDateTime(L" yyyy-mm-dd hh:nn:ss.zzz ", Now());
UTF8String UtfLine = UTF8String(UnicodeString(LogLineMarks[Type]) + Timestamp + TrimRight(ALine)) + "\r\n";
#if 0
for (intptr_t Index = 1; Index <= UtfLine.Length(); Index++)
{
if ((UtfLine[Index] == '\n') &&
(UtfLine[Index - 1] != '\r'))
{
UtfLine.Insert(L'\r', Index);
}
}
#endif // #if 0
intptr_t ToWrite = UtfLine.Length();
CheckSize(ToWrite);
FCurrentFileSize += FLogger->Write(UtfLine.c_str(), ToWrite);
}}
catch (...)
{
// TODO: log error
DEBUG_PRINTF("TSessionLog::DoAddToSelf: error");
}
}
}
//---------------------------------------------------------------------------
void __fastcall DB_Loading::Execute()
{
NameThreadForDebugging("TH_DB_Loading");
DBManager->ALDB_Connect();
DBManager->CADB_Connect();
//---- Place thread code here ----
while(stkc_frm->run == true)
{
try
{
stkc_frm->STK_SRVinfo.SRV_NOWDATE = FormatDateTime("MM/DD/YY", Now());;
stkc_frm->STK_SRVinfo.SRV_NOWTIME = Time().TimeString();
DBManager->Alarm_List_Load();
DBManager->GetAllCarrierinfo();
Sleep(300);
}
catch(Exception *e)
{
}
}
}
void __fastcall TForm2::DateEdit1Change(TObject *Sender)
{
// update the label with the date picked from the DateEdit component
ListBoxItem6->Text = "Picked " + FormatDateTime("dddd, mmmm d, yyyy",
DateEdit1->Date);
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Timer1Timer(TObject *Sender)
{
LabelTime->Caption = FormatDateTime( "tt" , GetTime() );
FLOAT percentage = 0;
pbLogIn->Visible = frmLogin->isExpired();
if ( false == frmLogin->isExpired())
return;
if (frmLogin->isEnable() && (frmLogin->getLevel() > PW_OPERATOR ))
{
TDateTime diff = Now() - _loggedin;
unsigned short h, m, s, ms;
DecodeTime(diff, h, m, s, ms);
FLOAT secs = 3600*h + 60*m + s;
percentage = secs / (frmLogin->getExpiredTime()* 60.0f) * 100.0f; //5mins
}
else
percentage = 0;
if (percentage >= 100.0f)
{
percentage = 0.0f;
frmLogin->changeLevel(PW_OPERATOR);
this->refreshLogIn();
}
pbLogIn->Position = percentage;
}
/** Checks the start, end and time of an entry
@param aFetchInstanceArray Array of instances
@test
*/
void CTestCalInterimApiTZChange::CheckEntryTimesL(RPointerArray<CCalInstance>& aFetchInstanceArray)
{
CCalEntry& entry = aFetchInstanceArray[0]->Entry();
const TDesC8& entryUid = entry.UidL();
for ( TInt index = 0; index < aFetchInstanceArray.Count(); index++ )
{
const TDesC8& entryUid1 = aFetchInstanceArray[index]->Entry().UidL();
TESTL(!entryUid.Compare(entryUid1));
}
GetEntryDataFromIniFileL();
TDateTime startTime;
TDateTime endTime;
if (iIsFloating)
{
startTime = entry.StartTimeL().TimeLocalL().DateTime();
INFO_PRINTF7(_L("Entry Start Date Year: %d, Month: %d, Day: %d, Imported Time Hr: %d, Min: %d, Sec: %d "), startTime.Year(), startTime.Month(), startTime.Day(), startTime.Hour(), startTime.Minute(), startTime.Second());
TESTL(FormatDateTime(iPtrExpectedEntryStart) == entry.StartTimeL().TimeLocalL());
endTime = entry.EndTimeL().TimeLocalL().DateTime();
INFO_PRINTF7(_L("Entry End Date Year: %d, Month: %d, Day: %d, Imported Time Hr: %d, Min: %d, Sec: %d "), endTime.Year(), endTime.Month(), endTime.Day(), endTime.Hour(), endTime.Minute(), endTime.Second());
TESTL(FormatDateTime(iPtrExpectedEntryEnd) == entry.EndTimeL().TimeLocalL());
TESTL(entry.StartTimeL().TimeMode() == TCalTime::EFloating);
TESTL(entry.EndTimeL().TimeMode() == TCalTime::EFloating);
}
else
{
startTime = entry.StartTimeL().TimeUtcL().DateTime();
INFO_PRINTF7(_L("Entry Start Date Year: %d, Month: %d, Day: %d, Imported Time Hr: %d, Min: %d, Sec: %d "), startTime.Year(), startTime.Month(), startTime.Day(), startTime.Hour(), startTime.Minute(), startTime.Second());
TESTL(FormatDateTime(iPtrExpectedEntryStart) == entry.StartTimeL().TimeUtcL());
endTime = entry.EndTimeL().TimeUtcL().DateTime();
INFO_PRINTF7(_L("Entry End Date Year: %d, Month: %d, Day: %d, Imported Time Hr: %d, Min: %d, Sec: %d "), endTime.Year(), endTime.Month(), endTime.Day(), endTime.Hour(), endTime.Minute(), endTime.Second());
TESTL(FormatDateTime(iPtrExpectedEntryEnd) == entry.EndTimeL().TimeUtcL());
TESTL(entry.StartTimeL().TimeMode() == TCalTime::EFixedUtc);
TESTL(entry.EndTimeL().TimeMode() == TCalTime::EFixedUtc);
}
INFO_PRINTF1(KEntryTimesCorrect);
CCalAlarm* alarm1 = entry.AlarmL();
TESTL(alarm1->TimeOffset().Int() == iIntAlarmOffset);
delete alarm1;
INFO_PRINTF1(KAlarmOffsetTZ);
}
NS_IMETHOD FormatTime(const char16_t *locale,
nsTimeFormatSelector timeFormatSelector,
int32_t hour,
int32_t minute,
int32_t second,
char16_t **timeString) override
{return FormatDateTime(locale, kDateFormatNone, timeFormatSelector,
1999, 1, 1, hour, minute, second, timeString);}
NS_IMETHOD FormatDate(const char16_t *locale,
nsDateFormatSelector dateFormatSelector,
int32_t year,
int32_t month,
int32_t day,
char16_t **dateString) override
{return FormatDateTime(locale, dateFormatSelector, kTimeFormatNone,
year, month, day, 0, 0, 0, dateString);}
NS_IMETHOD FormatTime(const PRUnichar *locale,
nsTimeFormatSelector timeFormatSelector,
int32_t hour,
int32_t minute,
int32_t second,
PRUnichar **timeString)
{return FormatDateTime(locale, kDateFormatNone, timeFormatSelector,
1999, 1, 1, hour, minute, second, timeString);}
NS_IMETHOD FormatDate(const PRUnichar *locale,
nsDateFormatSelector dateFormatSelector,
int32_t year,
int32_t month,
int32_t day,
PRUnichar **dateString)
{return FormatDateTime(locale, dateFormatSelector, kTimeFormatNone,
year, month, day, 0, 0, 0, dateString);}
__fastcall CPrinter::CPrinter()
{
PPRN = Printer();
PrinterIndex = -1;
PPRN->Title = FormatDateTime("'CP'hhnnsszzz", Now());
eOffsX = 0;
eOffsY = 0;
}
//---------------------------------------------------------------------
__fastcall TSup1003::TSup1003(TComponent* AOwner)
: TForm(AOwner)
{
cod_pedido_compra->Color = AppConfig->Colors->Disabled;
data_recebimento->Color = AppConfig->Colors->Disabled;
data_recebimento->Text = FormatDateTime("dd/mm/yyyy", Date());
OnRecebeSucess = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TFormCosts::FormShow(TObject *Sender)
{
DateTimePicker1->Date = Now();
Edit1->Text = "";
Edit2->Text = "0";
Edit3->Text = FormatDateTime("dd.mm.yyyy", IncMonth(Now(), -1)) +"-"+ FormatDateTime("dd.mm.yyyy", Now());
Label4->Caption = IniFile->ReadString("Resource", "ofMonth", "0");
//FormRes->Label3->Caption;
if(ADOQuery1->Active)
{
ADOQuery1->Active = false;
}
ADOQuery1->SQL->Text = "SELECT * FROM Costs";
ADOQuery1->Active = true;
ShowScrollBar(DBGrid1->Handle, SB_BOTH, false);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSearch::OnSearchComplete(TObject * Sender)
{
//if(BillSearchThread->ErrorMessage != "")
// MessageBox(Handle,BillSearchThread->ErrorMessage.c_str(),"警告",MB_OK | MB_ICONWARNING);
//else
if(BillSearchThread->ErrorCount > 0)
MessageBox(Handle,("在查找过程中发生了" + IntToStr(BillSearchThread->ErrorCount) + "个文件错误,查找结果可能是不完整的,建议重新查找一次.").c_str(),"警告",MB_OK | MB_ICONWARNING);
FoundCount = BillSearchThread->FoundCount;
if(FoundCount > 0)
{
TfrmBillFile * frmBillFile = (TfrmBillFile * )Owner;
frmBillFile->TempFileList->Insert(0,TempFileName);
TMenuItem * MenuItem = new TMenuItem(Owner);
MenuItem->Caption = "查询结果" + IntToStr(frmBillFile->TempFileList->Count) + "[在" + FormatDateTime("mm-dd hh:nn",Now()) + " 共" + IntToStr(FoundCount) + "条记录]";
//MenuItem->Tag = frmBillFile->TempFileList->Count - 1;
MenuItem->OnClick = frmBillFile->btnReviewClick;
MenuItem->ImageIndex = 4;
frmBillFile->PopupMenu4->Items->Insert(0,MenuItem);
for(int n = 0;n < frmBillFile->PopupMenu4->Items->Count;n++)
{
frmBillFile->PopupMenu4->Items->Items[n]->Tag = n;
}
}
else
{
DeleteFile(TempFileName.c_str());
}
BillSearchThread = NULL;
Label1->Caption = "共找到" + IntToStr(FoundCount) + "条记录";
Label2->Caption = "共找到" + IntToStr(FoundCount) + "条记录,耗时 " + AnsiString(Now() - StartTime);
RzGroupBox2->Enabled = true;
lvParams->Enabled = true;
btnQuery->Enabled = true;
btnAddParameter->Enabled = lvParams->Visible;
btnDelParameter->Enabled = lvParams->Visible;
cbxBillType->Enabled = true;
rbAnd->Enabled = true;
rbOr->Enabled = true;
Label9->Enabled = cbxBillType->Items->Count > 0;
cbxBillType->Enabled = cbxBillType->Items->Count > 0;
btnQuery->Caption = "查找";
btnQuery->Enabled = true;
btnVBScript->Enabled = true;
btnQuery->ImageIndex = 114;
RzProgressBar1->Visible = false;
RzProgressBar2->Visible = false;
Label10->Visible = false;
Label11->Visible = false;
Label1->Caption = "共找到" + IntToStr(FoundCount) + "条记录";
if(FoundCount > 0)
ShowSearchResult();
else
MessageBox(Handle,"没有找到符合条件的记录!","信息",MB_OK | MB_ICONINFORMATION);
}
void TFrmAlarmDetailList::AlarmFrequencyCount()
{
String strStartDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmStart->Date);
String strEndDateTime = FormatDateTime("yyyy-mm-dd 오전 00:00:00", DateTimeAlarmEnd->Date + 1);
try
{
AnsiString szQuery = "select *, count(Alarm_idx) AS Frequency from AlarmLog"
" where Set_date between '" + strStartDateTime + "' AND '" + strEndDateTime + "'"
" and Alarm_idx < 1000 group by Alarm_idx order by Frequency DESC";
CppSQLite3Table tblAlarmLog = dbMain.getTable( szQuery.c_str() );
int nFreq = 0;
String strCode = "";
int nFieldCnt = tblAlarmLog.numRows();
if(nFieldCnt > 0)
{
ChartAlarm->Series[0]->Clear();
for( int i = 0; i < nFieldCnt; i++ )
{
if(i >= 10)
{
return;
}
tblAlarmLog.setRow(i);
nFreq = ((String)tblAlarmLog.fieldValue("Frequency")).ToInt();
strCode = (String)tblAlarmLog.fieldValue("alarm_idx");
ChartAlarm->Series[0]->Add(nFreq, strCode, (Graphics::TColor)(0x20000000));
}
}
}
catch (CppSQLite3Exception& e)
{
}
}
//---------------------------------------------------------------------------
void __fastcall TFin2001::cbPeriodoChange(TObject *Sender)
{
data_ini->ReadOnly = true;
data_ini->Color = AppConfig->Colors->Disabled;
data_ini->ReadOnly = true;
data_fim->Color = AppConfig->Colors->Disabled;
if (cbPeriodo->ItemIndex == 0) { //Pode ser por dia atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", Date());
data_fim->Text = FormatDateTime("dd/mm/yyyy", Date());
RefazConsulta();
} else if (cbPeriodo->ItemIndex == 1) { //Pode ser por semana atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheWeek(Date()));
data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheWeek(Date()));
RefazConsulta();
} else if (cbPeriodo->ItemIndex == 2) { //Pode ser por mês atual
data_ini->Text = FormatDateTime("dd/mm/yyyy", StartOfTheMonth(Date()));
data_fim->Text = FormatDateTime("dd/mm/yyyy", EndOfTheMonth(Date()));
RefazConsulta();
} else { //Ou um período informado pelo usuário
data_ini->ReadOnly = false;
data_ini->Color = AppConfig->Colors->Enabled;
data_ini->ReadOnly = false;
data_fim->Color = AppConfig->Colors->Enabled;
}
}
