, nieuwe, permanente - log.1, voor de eerste keer in de HTTP://www.undu. COM,,, als je een vraag van parameters, je zou in dit proces is de datum of andere gebieden.Een typische behoeften kan een bepaalde tijd voor het in de handel brengen, algemeen verslag.,, de beste manier is om een van de datepickers en gebruik te maken van de vraag de parameters van de waarde van de opdracht.Persoonlijk vind ik die vraag per keer.Een beetje traag, maar ik kan in mijn code zien de hele vraag, vaak van het evangelie.,,, en trouwens, ik denk dat ik een van de gebruikers in de tijd van de maand zo vaag als de snelle methode voor het laatste kwartaal van het jaar, of tot nu toe.Dus, dit is hoe ik de oprichting van een datum voor de toepassing van de Ranger in mijn.,,, de eerste stap is om de datum van de bibliotheek van de ESB vrij.格伦克劳奇 en die tot een van de belangrijkste middelen op de website: www.esbconsult. COM. Au,,, als je op de website van de ESB, pak de wiskunde gratis bibliotheken en routines.Elk bevat de code, en z 'n eersteklas programmering.Kijk eens naar deze website is de belangrijkste kenmerken.Als je in een programma van een interessante wiskunde doen, dan is dit je gereedschap, ik met de datum van de "dag" in de vorm van het verslag als de gebruikers willen bevestigen.Het heeft twee datepickers (als u al op het internet, en de andere draden weet dat de plaatselijke Delphi die onlangs van angst.Ik gebruik de korte versie van Orpheus, de datum van de formuleringen in het Engels alleen vermogen.Dit is een van de in de www.turbopower TurboPower. COM.Twee mensen die voor de datum van vandaag (of de datum van de gemeenschappelijke grenzen, als er sprake is van een zeer welkom om de vorm van proces).,,, een controle van de voordelen van het gebruik van Orpheus heeft de datum van de omzetting is voor de vier cijfers akkoord te functioneren.Dit is DateString moet een masker, je zult het zien.,,, inbetweeen twee datepickers, genaamd bereikt... Is een druk op de knop en, respectievelijk, een eenvoudige titel.In het kader van een etiket en een pijp, een menu van een groep van datum te plukken.Deze knop programma ziet er als volgt uit:,,, programma 's tfrmreport. Btntoclick (afzender: TObject);,,,, pmdateranger. - (frmreport.left + 120, frmreport. Top + 84);,,,,, aan het einde van de oproep; in de verplichte POP - up, je moet vertellen waar het POP - up.Je kan de test worden de absolute coördinaten, of je kan met behulp van een formule kunnen behoorlijk ingewikkeld.Er is een ding niet vergeten, wanneer gebruik wordt gemaakt van de volgende formule, je moet het creëren van een groot genoeg om de hoogte van de compensatie van de titel en de menu 's:,,, (frmreport. Links. Btnto.left, frmreport. Top + btnto. Top + btnto. Zeer + 25),,, heb jij ook een knop. De eigenschappen van de pmdateranger menu' s.Dus, als de gebruiker op, die zich in een verboden plek.Als je op de knop klikken op de menu 's, er komt een vermindering van het aantal pixels, aan de rechterkant.Gewoon een beetje van streek,,, - menu is door je menu kiezen.Ik gebruikte dat een groep, en je kan niet gaan.Ik geloof dat je een andere groepering concept dan ik.Maar het geheim is, bij de vaststelling van de etikettering per menu 's, zodat het kan worden verwerkt in een centrale procedure.Ik was 13 dagen, van 21 - 23 weken, maanden, kwartaal - 41 - 43, die momenteel de activiteiten van de groep - 62 dagen, 71 jaar en 80 is alle data.Aandacht, misschien moet je wat u moet doen als u meer van 1980 is de historische reikwijdte van een eerdere datum.,,, is het belangrijk op dit punt, dat je een val, en ik viel in de eerste drie keer heb ik geprobeerd om programma 's uit geheugen.Ik was een novice, immers).Er is een gevoel dat je gebruik moeten maken van de - menu en onpopup OnChange gebeurtenissen in de behandeling van het menu kiezen.Nee!Het creëren van een apart programma voor elk van de menu 's van de onclick methode gebruikt, en dit is de ontwerper die in het menu.Dan kan je de klik op het menu en onmiddellijke actie voor de behandeling van alle punten onclick.Je kan er geen sprake zijn van een kind met de vader van het menu.Dat had gemaakt.,,, de code te actualiseren de datum picker voor a set Range aan van de pmMenuHandler proc:,,,. TFrmReport.pmMenuHandler (Sender: TObject), var;,,, t 's: TDateTime;,, ",, T = date;,, zaak (afzender als.Tag van TMenuItem),, ///////11: beginnen, eDateFrom.date: C. = T - 1;,, eDateTo.date: = T - 1;,,,,,,, 12: ///////eDateFrom.date beginnen vandaag: = t;,, eDateTo.date: = t;,,,,,,, 13: ///////eDateFrom.date morgen beginnen.: = T + 1;,, eDateTo.date: = T + 1;,,,,,, 21:: ///////vorige week,, s: = T - 7;,, terwijl isMonday (s) = vals doen, s: = s - 1; eDateFrom.date: = s;,,,,Edateto.date:= + 6;,,,, 22: in het begin van het einde van de week; ///////, S = t;,, maar maandag (s) = vals doen, en: = s - 1; edatefrom.date:= s;,,,,,, edateto.date:= + 6; 23: in het begin van het einde van de volgende week, /;,, S = T + 7;,, hoewel het is maandag (s) = vals doen, en: = s - 1; edatefrom.date:= s;,,,,,,, edateto.date:= + 6; 31: in het begin van het einde; ///////maand, S = getfirstdayofmonth (T) ///////- 1 te verkrijgen; op de laatste dag van de laatste, Missouri, edatefrom.date:= getfirstdayofmonth (s); edateto.date:= s;,,,,,, 32: in het begin van het einde van de maand; /, edatefrom.date:= getfirstdayofmonth (T), edateto;,Datum: (T) = getlastdayofmonth;,,,, 33: in het begin van het einde van de volgende maand; /,,,: = getlastdayofmonth (T) + 1 te verkrijgen; ///////de eerste wereld niet edatefrom.date:= s;,,,, edateto.date:= getlastdayofmonth (s);,, aan het einde van 41:;,, eindelijk een begin /kwartaal:,, getfirstdayofquarter (T) = 1; ///////toegang tot en met de laatste dag van de laatste vragen, edatefrom.date:= getfirstdayofquarter (s); edateto.date:= s;,,,,,, 42: in het Begin van het einde van het kwartaal; ///////getfirstdayofquarter, edatefrom.date:= (T); edateto.date:= getlastdayofquarter (T),,,,,, en 43;: in het begin van het einde van het volgende kwartaal; /s = getlastdayofquarter (T) + 1; ///////de eerste wereld te vragen,Edatefrom.date:= s;,,, edateto.date:= getlastdayofquarter (s);,,,, 51: in het begin van het einde van de datum van edatefrom.date:=; /maand, encodedate (dit jaar, deze maand, 1); edateto.date:= t;,,,,,, 52: in het begin van het einde van de datum van edatefrom.date:=; /jaar, encodedate (dit jaar 1,1); en edateto.date:= t;,,,,, 53: in het begin van het einde van de laatste; /365 dagen, edatefrom.date:= t - 365;,,,,,, edateto.date:= t; 54: in het begin van het einde; /13 weken,, T - 91 edatefrom.date:=;,,,,,, edateto.date:= t; 61: in het begin van het einde. /van bestaande commerciële dagen, S = t1; /gisteren, en isweekend (s), en doen: = - 1;,,Edatefrom.date:= s;,,,,,, edateto.date:= s; 62: in het begin van het einde van de dag; ///////, S = T +; 1 /morgen, en isweekend (s), en doen: = + 1;,,,, edatefrom.date:= s; edateto.date:= s;,,, in het begin van het einde, 71:; /vorig jaar, S = getfirstdayofyear (date2year (T)) ///////- 1; toegang tot de laatste dag van de laatste jaren, edatefrom.date:=, getfirstdayofyear (date2year (s)); edateto.date:= s;,,,,,, aan het einde van 72:; begin dit jaar edatefrom.date:= /, getfirstdayofyear (date2year (T)); en edateto.date:= getlastdayofyear (date2year (T));,,,, 73: in het begin van het einde van volgend jaar; /, S = getlastdayofyear (date2year (T)) + 1De eerste wereld kan verkrijgen; ///////edatefrom.date:= s;,,,, edateto.date:= getlastdayofyear (date2year (s));,,,, aan het einde van 80: de datum; begin /alle, edatefrom.date:= strtodate (1 /1 /1980 ");,, edateto.date:= strtodate (1 /1 /2222");,,,, aan het einde van het einde;;;,,,,, en later, met een stukje code en nu hebben we de keuze van het tijdstip van het toepassingsgebied.Here's the code for initiating a query using the date range selected:,,, procedure TFrmReport.BtnRepPrintClick(Sender: TObject);,, var,, dStart, dEnd : string;,, begin,, dStart := ' (DateProd >= ''' + dFrom.DateString('mm/dd/yyyy') + ''')';,, dEnd := ' AND (DateProd <= ''' + dTo.DateString('mm/dd/yyyy') + ''')';,, with qValue do begin,, active := false;,, sql.beginUpdate;,, sql.clear;,, sql.add('SELECT DISTINCT ');,, sql.add(' PartNum,');,, sql.add(' LotNum,');,, sql.add(' DateProd,');,, sql.add(' Production,');,, sql.add(' ProductionValue');,, sql.add('FROM ');,, sql.add(' "SALES.db"');,, sql.add('WHERE ');,, sql.add( DStart);,, sql.add( DEnd);,, sql.aDd (is);,, SQL. Toegevoegd ("PartNum,");,, SQL. Toegevoegd ("lotnum,");,, SQL. Toegevoegd ("dateprod,");,, SQL. Toegevoegd (productie); toevoeging van "output" (,,.,.); SQL. Endupdate;,, actieve: = waar;,,,, aan het einde van het drukken van qrvalue;.,,,,,,, zal ik zeker paramaterized vraag.Maar het is echt gemakkelijk kunnen worden vastgesteld en gewijzigd.Bijvoorbeeld, een verslag met veel bewerken, zodat de keuze van de beperking van het verslag.Een eenvoudige verhoging van de lijnen "dood" lijn:,, als na editlotnum.text < > ", en dan sql.add (" en lotnum = "+ editlotnum.text +");,,, als je de parameters om deze locatie, en dan een dynamische ondernemingen te creëren.Ze lijken overal in de teelt.Ik simplequery van lelsoft (HTTP://lelsoft.. "- netwerk).Maar als de datum van het toepassingsgebied is alles wat je nodig hebt, moet je je eigen spel schrijven.,,, Gary, dat machines, 布拉码烈莫格弗, Canada, 阿兹特克莫格弗, "netwerk. COM.