ТМС:Менеджер - История изменений

Avo в 08:08, 19 марта 2020

2020-03-19T08:08:50Z

Avo в 13:40, 17 марта 2020

2020-03-17T13:40:55Z

Avo в 05:42, 11 марта 2020

2020-03-11T05:42:50Z

Vlasova: /* cfFileUtils */

2015-04-09T08:53:59Z

‎cfFileUtils

Vlasova: /* cfDB */

2015-04-08T05:52:37Z

‎cfDB

Vlasova: /* cfFileUtils */

2015-04-08T05:51:04Z

‎cfFileUtils

Vlasova: /* cfFileUtils */

2015-04-08T05:41:45Z

‎cfFileUtils

Vlasova: /* cfFileUtils */

2015-04-08T05:35:17Z

‎cfFileUtils

Vlasova: /* cfFileUtils */

2015-04-08T05:24:40Z

‎cfFileUtils

Vlasova: /* cfDB */

2015-04-08T05:23:19Z

‎cfDB

@@ Строка 1: / Строка 1: @@
 == Полезный функционал для написания ТМС и работы со справочниками ==
 //Основные uses для ТМС
 uses
@@ Строка 10: / Строка 11: @@
    unFrameCustomDict, unMain, dxDBGrid, dxDBCtrl, cfSelectEdit,
    unfrmContainer,db, ibquery, ibdatabase, menus, Classes, Graphics, Controls;
+</pre>
   //Базовый SQL запрос
   var
@@ Строка 24: / Строка 26: @@
     q_work.free;
   end;
+</pre>
   //Обновляем сетку
   gsender.qList.Refresh;
@@ Строка 57: / Строка 59: @@
   gsender.SetDictPosRect;
- //Вывести сообщение
+<pre>
- application.MessageBox(Text - string, Caption - string ,Type- код иконки и кнопок);
+//Вывести сообщение
- Text - сообщение для пользователя
+application.MessageBox(Text - string, Caption - string ,Type- код иконки и кнопок);
- Caption - Заголовок сообщения
+Text - сообщение для пользователя
 Type:
@@ Строка 80: / Строка 83: @@
   mr_res := application.MessageBox('Текст вопроса',' ',$00000004+$00000020);
   if mr_res<>6 then - если не нажата ДА
   exit;
 USES

← Предыдущая		Версия 13:40, 17 марта 2020
Строка 57:		Строка 57:
	gsender.SetDictPosRect;		gsender.SetDictPosRect;

		+	//Вывести сообщение
		+	application.MessageBox(Text - string, Caption - string ,Type- код иконки и кнопок);
		+	Text - сообщение для пользователя
		+	Caption - Заголовок сообщения
		+
		+	Type:
		+	$00000010 - Иконка Ошибка и кнопка ОК
		+	$00000020 - Иконка Вопрос и кнопка ОК
		+	$00000030 - Иконка Внимание и кнопка ОК
		+	$00000040 - Иконка Ошибка и кнопка ОК
		+
		+	$00000001 - Кнопки Ок и Отмена
		+	$00000002 - Кнопки Прервать, Повтор и Пропустить
		+	$00000003 - Кнопки Да, Нет и Отмена
		+	$00000004 - Кнопки Да и Нет
		+	$00000005 - Кнопки Повтор и Отмена
		+	$00000006 - Кнопки Отмена, Повторить и Продолжить
		+
		+	Можно компоновать, например для вопроса
		+	$00000020+$00000004 - Иконка Вопрос + Кнопки Да и Нет
		+
		+	mr_res := application.MessageBox('Текст вопроса',' ',$00000004+$00000020);
		+	if mr_res<>6 then - если не нажата ДА
		+	exit;

	USES		USES

@@ Строка 1: / Строка 1: @@
-==USES==
+== Полезный функционал для написания ТМС и работы со справочниками ==
-===cfDB===
+//Основные uses для ТМС
   '''function MakeCreateTableQueryByFields(fields: TFields; tablename: string): string;'''
   '''function FieldTypeIsString(field: TField): boolean;'''
@@ Строка 38: / Строка 97: @@
   '''function FieldTypeToStr(fieldtype: TFieldType): string;'''
-===cfFileUtils===
+cfFileUtils
   '''procedure GetFileListWithSubFolders_(sPath: string; sl: TStringList);'''
   Процедура заполняет sl списком файлов из заданного каталога по заданной маске, включая подкаталоги. Например sPath='C:\temp\*.dbf'
@@ Строка 95: / Строка 154: @@
   '''procedure GetSubDirectories(const directory : string; list : TStringList) ;'''
-===cfTMSIDERegAdvTMSPallete===
+cfTMSIDERegAdvTMSPallete
-===cfTMSIDERegcfPallete===
+cfTMSIDERegcfPallete
-===cfTMSIDERegdxPallete===
+cfTMSIDERegdxPallete
-===cfTMSIDERegEmbeddedWBPallete===
+cfTMSIDERegEmbeddedWBPallete
-===cfTMSIDERegGBPallete===
+cfTMSIDERegGBPallete
-===cfTMSIDERegIBPallete===
+cfTMSIDERegIBPallete
-===cfTMSIDERegStandartPalletes===
+сfTMSIDERegStandartPalletes
-===dxCntner===
+dxCntner
-===dxDBCtrl===
+dxDBCtrl
-===dxDBGrid===
+dxDBGrid
-===dxDBTL===
+dxDBTL
-===dxExEdtr===
+dxExEdtr
-===dxTL===
+dxTL
-===dxTLClms===
+dxTLClms
-===IDERegAdoPalette===
+IDERegAdoPalette
-===IDERegDBPalette===
+IDERegDBPalette
-===NEED===
+NEED
-===UnDeclare===
+UnDeclare
-===UnDM===
+UnDM
   '''function InitMGN: boolean;'''
   Инициализация глобального справочника
@@ Строка 450: / Строка 509: @@
   Инициализация макро-параметров. Определяются в таблице SP$PARAMS. В менеджере не используется.
-===unDmDocs===
+unDmDocs
-===UndmReports===
+UndmReports
-===UnFrameAgents===
+UnFrameAgents
-===UnFrameCustomDict===
+UnFrameCustomDict
-===UnFrameCustomDoc===
+UnFrameCustomDoc
-===UnFrameCustomParams===
+UnFrameCustomParams
-===UnFrameDocArchive===
+UnFrameDocArchive
-===UnFrameDocContainer===
+UnFrameDocContainer
-===UnFrameMake===
+UnFrameMake
-===UnFrameMoney===
+UnFrameMoney
-===UnFramePrihodDoc===
+UnFramePrihodDoc
-===UnFramePrihodDocTreb===
+UnFramePrihodDocTreb
-===UnFrameUsers===
+UnFrameUsers
-===UnFrameWareBase===
+UnFrameWareBase
-===UnfrmContainer===
+UnfrmContainer
-===UnfrmDocManager===
+UnfrmDocManager
-===UnfrmGetCustomValue===
+UnfrmGetCustomValue
-===UnfrmHint===
+UnfrmHint
-===UnfrmNotice===
+UnfrmNotice
-===UnfrmReg===
+UnfrmReg
-===unMain===
+unMain
-===UnMain===
+UnMain
-===UnViewUtils===
+UnViewUtils
-===unWindows===
+unWindows
-===XmlDoc===
+XmlDoc

@@ Строка 50: / Строка 50: @@
   '''procedure GetFileListEx(sPath: string; sl: TStringList);'''
   '''function GetUniqueFileName(Path: string; Delimiter: string = ''): string;'''
   '''function GetUniqueFileNameX(Path: string; Delimiter: string = ''): string;'''

@@ Строка 1: / Строка 1: @@
 ==USES==
 ===cfDB===
-  '''procedure MakeCreateTableQueryByFields(AMachine: TatVirtualMachine);'''
+  '''function MakeCreateTableQueryByFields(fields: TFields; tablename: string): string;'''
-  '''procedure FieldTypeIsString(AMachine: TatVirtualMachine);'''
+  '''function FieldTypeIsString(field: TField): boolean;'''
-  '''procedure FieldTypeIsIntOrFloat(AMachine: TatVirtualMachine);'''
+  '''function FieldTypeIsIntOrFloat(field: TField): boolean;'''
-  '''procedure FieldTypeIsDateTime(AMachine: TatVirtualMachine);'''
+  '''function FieldTypeIsDateTime(field: TField): boolean;'''
-  '''procedure FieldTypeIsBoolean(AMachine: TatVirtualMachine);'''
+  '''function FieldTypeIsBoolean(field: TField): boolean;'''
-  '''procedure FieldValue2Txt(AMachine: TatVirtualMachine);'''
+  '''function FieldTypeIsBlob(field: TField): boolean;'''
-  '''procedure FieldValue2TxtB(AMachine: TatVirtualMachine);'''
+ '''function FieldValue2Txt(fld: TField; StringEscapeBy: string = '"'; MySQLReplace: boolean = false): string;'''
-  '''procedure FieldValue2TxtA(AMachine: TatVirtualMachine);'''
+  '''function FieldValue2TxtB(sValue: string; StringEscapeBy: string = '"'; MySQLReplace: boolean = false): string;'''
-  '''procedure FieldValue2TxtZ(AMachine: TatVirtualMachine);'''
+  '''function FieldValue2TxtA(fld: TField): string;'''
-  '''procedure GetIBWhere(AMachine: TatVirtualMachine);'''
+  '''function FieldValue2TxtZ(Value: string; StringEscapeBy: string = '"'; MySQLReplace: boolean = false; ReplaceCLRF: string = #13#10): string;'''
-  '''procedure cfADOFilter(AMachine: TatVirtualMachine);'''
+  '''function GetIBWhere(fieldname, searchCondition: string; bAnd: boolean = true; insertUPPER: boolean = true): string;'''
-  '''procedure GetDefaultValueByIBType(AMachine: TatVirtualMachine);'''
+  '''function cfADOFilter(fieldname, source: string): string;'''
-  '''procedure ParseSelect4From(AMachine: TatVirtualMachine);'''
+  '''function GetDefaultValueByIBType(itype: integer): string;'''
-  '''procedure ParseSelect4Where(AMachine: TatVirtualMachine);'''
+  '''function ParseSelect4From(sqltext: string): string;'''
-  '''procedure PrepareForFind(AMachine: TatVirtualMachine);'''
+  '''function ParseSelect4Where(sqltext: string): string;'''
-  '''procedure cfCSV2DBF(AMachine: TatVirtualMachine);'''
+  '''function PrepareForFind(s: string): string; // обрезает окончания...'''
-  '''procedure inserttowhere(AMachine: TatVirtualMachine);'''
+  '''procedure cfCSV2DBF(csvFileName, dbfFileName: string; createbeforesqltext: string = '');'''
-  '''procedure EkranWhere(AMachine: TatVirtualMachine);'''
+  '''function inserttowhere(sqltext, clause: string): string;'''
-  '''procedure InsertWhere(AMachine: TatVirtualMachine);'''
+  '''function EkranWhere(SQLText: string): string;'''
-  '''procedure GetPosOfStatement(AMachine: TatVirtualMachine);'''
+  '''function InsertWhere(const S: string; SQLText: string): string;'''
-  '''procedure CheckWhereForNode(AMachine: TatVirtualMachine);'''
+  '''function GetPosOfStatement(const SQLText, Statement: string; var NextPos: integer): integer;'''
-  '''procedure PrepareFieldListForCheck(AMachine: TatVirtualMachine);'''
+  '''procedure ExportcfDataSet(dataset: TDataSet; stream: TStream; DateTimeCallBackProcedure: TDateTimeCallBackProcedure = nil);'''
-  '''procedure XReplace(AMachine: TatVirtualMachine);'''
+  '''procedure ExportcfDataSetWithCallBack(dataset: TDataSet; stream: TStream; CallBack: TExportCallBackProcedure = nil; tag: integer = 0);'''
-  '''procedure cfAssignFields(AMachine: TatVirtualMachine);'''
+ '''function CheckWhereForNode(Node: TdxTreeListNode; WhereClause: string; PreparedFieldList: TStringList; ibQuery: TIBSQL): boolean;'''
-  '''procedure cfAssignIBParams(AMachine: TatVirtualMachine);'''
+ '''function PrepareFieldListForCheck(gb: TCustomdxDBTreeListControl; sqlText: string; PreparedFieldList: TStringList): string;'''
-  '''procedure SyncParams(AMachine: TatVirtualMachine);'''
+  '''function XReplace(S, OldPattern, NewPattern: string; chars: string = '{ ()=<>!|"}'): string;'''
-  '''procedure cfAssignParamsValues(AMachine: TatVirtualMachine);'''
+  '''procedure cfAssignFields(Source, Dest: TDataSet; XFields: string = '');'''
-  '''procedure FieldExists(AMachine: TatVirtualMachine);'''
+  '''procedure cfAssignIBParams(Source, Dest: TIBQuery; var InsertText, UpdateText: string; XFields: string = '');'''
-  '''procedure CreateAccessDatabase(AMachine: TatVirtualMachine);'''
+  '''procedure SyncParams(source:TParams; dest: TIBXSQLDA); overload;'''
-  '''procedure FieldTypeToStr(AMachine: TatVirtualMachine);'''
+ '''procedure SyncParams(source:TParams; dest: TParams); overload;'''
 ===cfFileUtils===

@@ Строка 33: / Строка 33: @@
 ===cfFileUtils===
-  '''procedure tFileListWithSubFolders_(sPath: string; sl: TStringList);'''
+  '''procedure GetFileListWithSubFolders_(sPath: string; sl: TStringList);'''
-  '''procedure tFileListWithSubFolders(sPath: string; sl: TStringList);'''
+ Процедура заполняет sl списком файлов по из заданного каталога по заданной маске, включая подкаталоги. Например sPath='C:\temp\*.dbf'
-  '''procedure tFileList(sPath: string; sl: TStrings; IncludePath: boolean = false; excludeext: boolean = false);'''
-  '''procedure tFileListEx(sPath: string; sl: TStringList);'''
+  '''procedure GetFileListWithSubFolders(sPath: string; sl: TStringList);'''
-  '''function GUniqueFileName(Path: string; Delimiter: string = ''): string;'''
+ Процедура заполняет sl списком файлов по из заданного каталога по заданной маске, включая подкаталоги. Например sPath='C:\temp\*.dbf'
-  '''function GUniqueFileNameX(Path: string; Delimiter: string = ''): string;'''
-  '''function CateUniqueDir(Path: string; Delimiter: string = ''): string;'''
+  '''procedure GetFileList(sPath: string; sl: TStrings; IncludePath: boolean = false; excludeext: boolean = false);'''
-  '''function GLastModFile(sPath: string): string;'''
+  '''procedure GetFileListEx(sPath: string; sl: TStringList);'''
-  '''function FesCountWithSubFolders_(sPath: string; bExitIFinded: boolean = false): integer;'''
+  '''function GetUniqueFileName(Path: string; Delimiter: string = ''): string;'''
-  '''function FesCount(sPath: string): integer;'''
+  '''function GetUniqueFileNameX(Path: string; Delimiter: string = ''): string;'''
-  '''procedure lFiles(sPath: string; DelDirs: boolean = false; RaiseOnError: boolean = true);'''
+  '''function CreateUniqueDir(Path: string; Delimiter: string = ''): string;'''
-  '''procedure lFileList(sl: TStrings);'''
+  '''function GetLastModFile(sPath: string): string;'''
-  '''function GFileSize_(namefile: string): Integer;'''
+  '''function FilesCountWithSubFolders_(sPath: string; bExitIFinded: boolean = false): integer;'''
-  '''function GFileDateTime(FileName: string): TDateTime;'''
+  '''function FilesCount(sPath: string): integer;'''
-  '''function GCreateFileDateTime(filename: string): TDateTime;'''
+  '''procedure DelFiles(sPath: string; DelDirs: boolean = false; RaiseOnError: boolean = true);'''
-  '''procedure eateDirIfNotExists(path: string);'''
+  '''procedure DelFileList(sl: TStrings);'''
-  '''function GFirstFile(sPath: string; var sResult: string; IncludePath: boolean = false): boolean;'''
+  '''function GetFileSize_(namefile: string): Integer;'''
-  '''function GFilesearchRec(namefile: string):TSearchRec;'''
+  '''function GetFileDateTime(FileName: string): TDateTime;'''
-  '''function FeExistsInSubDirs(FileName: string; Directory: string; var path: string): boolean;'''
+  '''function GetCreateFileDateTime(filename: string): TDateTime;'''
- '''procedure File(res, dest: string);'''
+  '''procedure CreateDirIfNotExists(path: string);'''
   '''procedure GZFile(res, dest: string);'''
-  '''function SectDir(handle: THandle; var dir: string; title: string = 'Выберите папку'; StatusText: string = 'Укажите папку'): boolean;'''
+ '''procedure UnGZFile(res, dest: string);'''
-  '''procedure iteLog(msg: string; appfilename: string);'''
+  '''function SelectDir(handle: THandle; var dir: string; title: string = 'Выберите папку'; StatusText: string = 'Укажите папку'): boolean;'''
-  '''function cetTempPath: string;'''
+  '''procedure WriteLog(msg: string; appfilename: string);'''
-  '''function GFileVersionMajorMinor(FileName: string): double;'''
+  '''function cfGetTempPath: string;'''
-  '''function GFileVersionCF(FileName: string): string;'''
+  '''function GetFileVersionMajorMinor(FileName: string): double;'''
-  '''function GFileVersionMajorMinorText(FileName: string): string;'''
+  '''function GetFileVersionCF(FileName: string): string;'''
-  '''function cleanFileName(FileName: string; replacestr: string = '_'): string;'''
+  '''function GetFileVersionMajorMinorText(FileName: string): string;'''
-  '''function CckFileName(FileName: string): boolean;'''
+  '''function cfCleanFileName(FileName: string; replacestr: string = '_'): string;'''
-  '''function TtDir(ADir: string; testfilename: string = 'try.tst'): boolean;'''
+  '''function CheckFileName(FileName: string): boolean;'''
-  '''function GSpecialPath(CSIDL: word): string;'''
+  '''function TestDir(ADir: string; testfilename: string = 'try.tst'): boolean;'''
-  '''function cetSystemDrive: string;'''
+  '''function GetSpecialPath(CSIDL: word): string;'''
-  '''function FstMaskMatchedFile(mask: string): string;'''
+  '''function cfGetSystemDrive: string;'''
-  '''function GDriveList(coldelimiter: string = #9; rowdelimiter: string = #13#10): string;'''
+  '''function FirstMaskMatchedFile(mask: string): string;'''
-  '''function GFolderContent(path: string; coldelimiter: string = #9; rowdelimiter: string = #13#10): string;'''
+  '''function GetDriveList(coldelimiter: string = #9; rowdelimiter: string = #13#10): string;'''
-  '''function GFileAttrsLine(path: string; coldelimiter: string = #9): string;'''
+  '''function GetFolderContent(path: string; coldelimiter: string = #9; rowdelimiter: string = #13#10): string;'''
-  '''Function SFileDate(Const FileName : String; Const FileDate : TDateTime): Boolean; overload;'''
+  '''function GetFileAttrsLine(path: string; coldelimiter: string = #9): string;'''
-  '''Function SFileDate(Const FileName : String; Const FileDate : integer): Boolean; overload;'''
+  '''Function SetFileDate(Const FileName : String; Const FileDate : TDateTime): Boolean; overload;'''
-  '''function GPrevFolder(path: string): string;'''
+  '''Function SetFileDate(Const FileName : String; Const FileDate : integer): Boolean; overload;'''
-  '''procedure tRegisteredIcons(ilSmall, ilLarge: TImageList; mask: string = '*.*');'''
+  '''function GetPrevFolder(path: string): string;'''
-  '''function GIconIndex(ext: string): integer;'''
+  '''procedure SetRegisteredIcons(ilSmall, ilLarge: TImageList; mask: string = '*.*');'''
-  '''function LdSystemIcons(SmallIcons: Boolean; var il: TImageList): Boolean;'''
+  '''function GetIconIndex(ext: string): integer;'''
-  '''function FeIconSysIdxOffline( const Path: String ): Integer;'''
+  '''function LoadSystemIcons(SmallIcons: Boolean; var il: TImageList): Boolean;'''
-  '''function GPrettyFileSize(v: integer): string;'''
+  '''function FileIconSysIdxOffline( const Path: String ): Integer;'''
-  '''procedure tSubDirectories(const directory : string; list : TStringList) ;'''
+  '''function GetPrettyFileSize(v: integer): string;'''
 ===cfTMSIDERegAdvTMSPallete===