没有标题栏的窗口怎么做!用ADOQUERY想连两个表将选择的字段放在EDIT里,可是怎么也不行!ADOQUERY。SOL :
SELECT T1.A,T1.B,T2.A,T2.B FROM T1.C = T2.D AND T1.A = :VAR;
我试了怎么也不行
请各位帮忙!

解决方案 »

  1.   

    BorderStyle 设为 bsNone不就没标题栏了吗
    无边界窗体移动方法    
        
    SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);******************不用标题栏也移动窗体一般情况下,移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体,为 什么非要使用标题栏呢?其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体,下面先看实现代码。在Form1的“Private”部分声明过程:在private部分加入下列代码:procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序部分加入以下代码:procedure TForm1.wmnchittest(var msg:twmnchittest);begininherited;if (htclient=msg.result) then msg.result:=htcaption;end;上面的关键代码虽然只有两行,但它实现了鼠标直接拖动窗体的目的。代码的原理是利用窗体的WM_NCHITTEST消息,这个消息是当光标移动、鼠标按下或释放时发生的,当程序检测到鼠标在窗体中按下的消息后(消息的值为htClient),将鼠标在标题栏上按下时产生的消息(值为htCaption)传递出去,这样就巧妙的欺骗程序认为是标题栏被按下,当然就可拖动窗体了************************----通过为Application.OnMessage创建一个处理程序获得Windows消息,可以调整应用程序对不同消息的响应或为不能正常识别的消息提供服务。这里受到窗体客户区的鼠标按下的消息后,发送一条在标题栏内按下的消息。 ---- 例 程 如 下:..procedure FormCreate(Sender: TObject);private{ Private declarations }procedure AppMessage(var Msg:TMsg;var Handled:Boolean);..{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);beginApplication.OnMessage:=AppMessage;//捕捉消息:将程序的收到消息事件与消息过滤过程关联起来end;procedure TForm1.AppMessage(var Msg:TMsg;var Handled:Boolean);beginif (Msg.message=WM_LButtonDown) and//如果鼠标左键按下的话(DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient) and//判断光标是否在客户区内((GetKeyState(vk_CONTROL) < 0)//检测“Ctrl”键是否按下thenbeginSendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);//发送鼠标在标题栏内按下的消息Handled:=true;end;end;
     
     
      

  2.   

    SELECT T1.A,T1.B,T2.A,T2.B FROM T1,T2 where T1.C = T2.D AND T1.A = :VAR;
      

  3.   

    1、你想使用嵌入式SQL吗,可惜DELPHI好象不支持。
    2、你的SQL代码本来就有问题,应该这样写:   with adoquery1 do
       begin
         sql.clear;
         sql.add(' SELECT T1.A,T1.B,T2.A,T2.B FROM T1,T2 where T1.C = T2.D AND T1.A = :VAR ');
         parambyname('var').asstring := edit1.text;
         open;
       end;
      

  4.   

    BorderStyle 设为 bsNone就没标题栏了
      

  5.   

    SELECT T1.A,T1.B,T2.A,T2.B FROM T1,T2 where T1.C = T2.D AND T1.A = :VAR;
    你的from后面没有数据表的名称。