DelphiµÄ¹Ø¼ü×ÖÎÊÌâ
ΪʲôÎÒÓÃDelphi×öÁ˸ö½çÃæ£¬È»ºó½øÐÐÄ£ºý²éÕÒ£¬Ð´ÓÐÈçÏ´úÂ룺
procedure Tfrm.BitBtn1Click(Sender: TObject);
var
tj,tj1,tj2,tj3,tj4,tj5,tj6,tj7:string;
begin
tj1:='1=1';
if checkbox1.Checked then
tj1:='GH like'"+'%'+Edit1.Text+'%'+"'';
tj2:='1=1';
if checkbox2.Checked then
tj2:='XM like'"+'%'+Edit2.Text+'%'+"'';
tj3:='1=1';
if CheckBox3.Checked then
begin
if RadioGroup1.ItemIndex=0 then
tj3:='XB like '"+'%ÄÐ%'+"'';
if RadioGroup1.ItemIndex=1 then
tj3:='XB like'"+'%Å®%'+"'';
end;
tj4:='1=1';
if CheckBox4.Checked then
tj4:='CSRQ>=#'+DateToStr(DateTimePicker1.Date)+'# and CSRQ<=#'+DateToStr(DateTimePicker2.Date)+'#';
tj5:='1=1';
if CheckBox5.Checked then
if CheckBox8.Checked then
tj5:='HF=true'
else
tj5:='HF=false';
tj6:='1=1';
if CheckBox6.Checked then
tj6:='ZC like '"+combobox1.text+"'';
tj7:='1=1';
if CheckBox7.Checked then
tj7:='GZ>='+Edit3.Text+' and GZ<='+Edit4.Text;
tj:='select * from zg.db where'+
t
Ïà¹ØÎÊ´ð£º
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
delphi×öµÄÈí¼þ´ò°ü³É°²×°³ÌÐò£¬´ó¼Ò¶¼ÓÃʲôÈí¼þ£¿
×ÊÁÏÀï˵DELPHI7×Ô´øÁË´ò°üµÄÈí¼þ£¬´ó¼ÒÓõöàÂð£¿
ÓÃinno¾Í¿ÉÒÔÁË£¬ºÜ¼òµ¥
wiseinstall, installshield¶¼¿ÉÒÔ
inno¾ÍºÜºÃ
installshieldÊÇD7°²×°°üÀï ......
sql.Add('select consumetime , count(consumetime) as ID from t_fundsflow where consumedate between '''+datetimetostr(DateTimePicker1.datetime)+''' and '''+datetimetostr(DateTimePicker2.datetime)+''' an ......
×îºÃÄÜ˵µÄÏêϸµã
¾ÍÒ»¸öÁ¬½Ó×Ö·û´®£¬×Ô¼º·Å¸öadoconnectionÔÚ½çÃæÉÏ£¬Ë«»÷£¬È»ºóÑ¡ÔñbuildÔÚÁбíÖÐÑ¡Ôñ...for sql servÏÆäËû×Ô¼º¶Ô׎çÃæÉϵÄÄÚÈÝÈ¥¿´
¶î »¹ÊDz»Ì«Ã÷°× ´ÓÀ´Ã»ÓùýÕâ¶«Î÷
ÔÚÍøÉÏËÑÒ»Ï ......