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
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
VC ¿ØÖÆ̨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
×îºÃÄÜ˵µÄÏêϸµã
¾ÍÒ»¸öÁ¬½Ó×Ö·û´®£¬×Ô¼º·Å¸öadoconnectionÔÚ½çÃæÉÏ£¬Ë«»÷£¬È»ºóÑ¡ÔñbuildÔÚÁбíÖÐÑ¡Ôñ...for sql servÏÆäËû×Ô¼º¶Ô׎çÃæÉϵÄÄÚÈÝÈ¥¿´
¶î »¹ÊDz»Ì«Ã÷°× ´ÓÀ´Ã»ÓùýÕⶫÎ÷
ÔÚÍøÉÏËÑÒ»Ï ......