1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
var
Sql_Charg, Where_Charg, Order_Charg : String ;
procedure BitBtn_ChargerOnClick(Sender: TfrxComponent);
begin
if <DBFOXPRO> then
begin
CheckListBox1.items.clear;
d11 := formatdatetime('mm/dd/yyyy',date1.date);
d12 := formatdatetime('mm/dd/yyyy',date2.date);
Sql_Charg := ' Select ... '
+ ' FROM .... ';
Order_Charg:=' order by .... ';
begin
if Multi_jours_Chck1.checked = true then
Where_Charg := ' Where ... '
else
Where_Charg := ' Where ... ';
end;
end;
replacesql('liste_commande', Sql_Charg + Where_Charg + Order_Charg);
execsql('liste_commande');
firstrecord('liste_commande');
while not queryEOF ('liste_commande') do
begin
CheckListBox1.items.add(<liste_commande."numero">) ;
nextrecord('liste_commande')
end;
end; |
Partager