Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

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 ......

DELPHI DLLʵ²Î´«´°Ìå

//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

ʹÓÃDelphiÈçºÎÁ¬½ÓSQLÊý¾Ý¿â£¿

×îºÃÄÜ˵µÄÏêϸµã
¾ÍÒ»¸öÁ¬½Ó×Ö·û´®£¬×Ô¼º·Å¸öadoconnectionÔÚ½çÃæÉÏ£¬Ë«»÷£¬È»ºóÑ¡ÔñbuildÔÚÁбíÖÐÑ¡Ôñ...for sql servÏÆäËû×Ô¼º¶Ô׎çÃæÉϵÄÄÚÈÝÈ¥¿´

¶î »¹ÊDz»Ì«Ã÷°× ´ÓÀ´Ã»ÓùýÕⶫÎ÷


ÔÚÍøÉÏËÑÒ»Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ