GpStructuredStorage file !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~─│┌┐└┘├┤┬┴┼▀▄█▌▐░▒▓⌠■∙√≈≤≥ ⌡°²·÷═║╒ёє╔ії╗╘╙╚╛ґў╞╟╠╡ЁЄ╣ІЇ╦╧╨╩╪ҐЎ©юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪsqli.vtd*sqliForm.vtdУsqliFormName.vtd.sqliStep.vtdДsqliStepFile.vtd 8sqliStepStr.vtd 6sqliStepStrEvent.vtdЇsqliVar.vtd┘sqliVer.vtd ╗sqliReports.vtdacKeyacNamed acIsDebugacType acVarInINIacAutoStartacAutoCloseacEndMessageacLocalization2acFormNameAuthoracActive anVersion acLogType acInstCoded anUserChg anUserIns adTimeChg adTimeInsacNoteacCompiledScriptDEMO003Working with TArSearchFormFAFFFTRT0─]VнлBECє²млBacKey acFormName2 acDocTypeacObjectName2acType acKeyShortCut2acTabSheetName2 anUserChg anUserIns adTimeChg adTimeIns acFormType acFormName2acName2acKeyanNoacViewacSetOfacDescrЪacReportacFileCreateTableanFileDelimiter acFileNameЪacFileTableNameЪ acFileDest acFileType acFileTypeXML acShowIfEmptyacTitleButtonsanTitleLinesanBeginFromRecord anUserChg anUserIns adTimeChg adTimeIns acCharSet2acStyleSheetЪ acUnitName2acNewThreadacDFMacPASacSQLExport2acSQLExpacNoteDEMO003GPFЪЪAENF─<╚ cнлB─LG╩млBwindows-1250AresProjectFкProgram AresProject; uses sysutils, classes, forms, dialogs, dlcommon, controls; var fr: TArSearchForm; //declaration of form begin fr := TArSearchForm.Create(nil); //create form try fr.sql.Clear; //add SQL. :filter will be replaced with search item automaticaly fr.sql.add('SELECT ACREPORT ,ACFORMNAME ,ACNAME FROM tPA_Reports '); fr.sql.add(' where (acreport like :filter)'); fr.sql.add(' or (acformname like :filter)'); fr.sql.add(' or (acname like :filter)'); //key value - can be returned fr.KeyName := 'acReport'; //add columns to the list... fr.AddColumn('ACREPORT', 50, 'Report'); fr.AddColumn('ACFORMNAME', 100, 'Form Name'); fr.addColumn('ACNAME', 200, 'Name'); //refresh data fr.refresh; if fr.showmodal = MrOk then begin showmessage('selected report: '+fr.FieldByName(fr.KeyName).asString); end; finally fr.free; end; end. acKeyanNoanSeqNoacHField2acHType anHLengthanHDecacPField2acPTypeanPLegthanPDec acPFormatacPSeparator anUserChg anUserIns adTimeChg adTimeInsacKeyanNoanSeqNoacFieldName2anFieldSizeacFieldTitleacFieldReadOnly acEditTypeacFieldConstЪ anUserChg anUserIns adTimeIns adTimeChg acFieldFormatЪacFieldDefaultЪ acKeyanNoacDataEventacDataReturnValue acKeyAndNo anUserChg anUserIns adTimeChg adTimeInsacKey acWhereKeyanNoacFieldName acParamVaracFieldType acFieldREQacFieldCaption2acDefaultExpacDefaultValueacLookUpSQLЪ acOperator acVarHint2 acAddApostrof anUserChg anUserIns adTimeChg adTimeIns acPrtCrit ACKEY ANVERSIONANNOACSQLEXP═ACNOTEп ADTIMECHG ANUSERCHG ADTIMEINS ANUSERINSacReportacLangIdacLocalization2 acFormNamedacNamedacDefaultPrinterЪ acPreviewanMaxPrStLevelacSubstituteSignacPrintIfEmpty acPrintToText anNoOfCopy acOrderByп acRegUserCodeacActive acKeyShortCut2 anUserIns adTimeIns anUserChg adTimeChgacText1ХacText2ХacText3ХacNoteХacReportData