全是一句话问题(20分)

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #21

你只有先select出来纪录,然后通过fieldbyname得到字段的值赋值给变量a.

PB是可以这么做的,但delphi不可以.

 

M

m&m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #22

to CAKK:

“select 字段名 into :变量 from table where 条件” 不支持 ！？！

不带冒号也不行吗？

我如何是好？

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #23

不是带不带冒号的问题,而是delphi本身就决定了不可能支持这种用法.
delphi的table的sql属性是string(TStringlist)类型,里面的所有东西
都将被看成是字符串,不可能包含一个变量在里面.

PB可以是因为PB用的是PowerScript脚本语言,select在PB里面是一条语句,
":变量"可以看作是该语句的参数,所以可以是变量(只能是变量)

所以你只有这样做:
datamodule1.query_gs_ccc.sql.add('select gsdm from gs_ccc where gsmc='+combobox1.text);
datamodule1.query_gs_ccc.open;
a:=datamodule1.query_gs_ccc.fieldbyname('gsdm').asstring;
datamodule1.dcdt.filter :='dcmc='+a;
...

 

蚯

蚯蚓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #24

总算明白要干什么了,还有什么好说的呢？

with Query do
try
Close;
SQL.Text:=Format('Select xxx from xxx'
+' Where %s',
[YourCondition]);
Open;
MyVariant:=FieldByName('xxx').AsXxxx;
except
MessageBox(Handle,
'查询失败：'+#13
+' 如果你希望觉得自己是个傻瓜，请联系我们的技术支持部；'+#13
+' 如果你希望受到更大的打击，请联系我们的开发部；'+#13
+' 如果你希望获得片刻的宁静，请连续按<Ctrl>+<Alt>+<Del>三次'+#13
+' 我们保证不会有任何问题出现！',
'TMD!',
MB_Icon_I_Am_So_Sorry or MB_OK);
end;

 

M

m&amp;m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #25

to CAKK:
原来如此，既然是半个老乡，我就不多谢了 ！！！
提起PB，以前用过PB，PO （powerobject ORACLE 自己的开发前端工具）。
做数据库的项目比较快，总感觉PB等界面不太好看，而且对INTERNET 支持得不
太好。所以主动要求用DELPHI开发现在的一个煤炭商务管理中心的项目，以后
还请多多帮忙！！
来天津我可以帮你买船票啦 ！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #26

PB的确开发数据库很方便,不过也只能开发数据库,开发其他的太麻烦.

我去过天津的,而且是坐船去的,不过我晕船很厉害.

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #27

BTW:
以后你提问尽量把问题描述的清楚一点.
这次如果你说清楚了,前面的大虾早帮你解决掉了.

 

蚯

蚯蚓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-26

• #28

2 all:
一不小心&amp;lt;Ctrl&amp;gt;+&amp;lt;Alt&amp;gt;+&amp;lt;Del&amp;gt;被解释成html了,
sorry!

2 cAkk:
他的意思，象我这种没玩过PB的还真猜不出来! sigh

2 Another_eYes:
>>写OnFilterRecord事件:
>>if .... then
>> accept := true
>>else
>> accept := false;

有点那个了吧?
Accept:=....不就得了

>>FormatDateTime(...)=....
字符串判断我总有点不放心,
情愿把字符串转换为日期再判断(有点强迫症)

 

M

m&amp;m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #29

to 蚯蚓：
I’m sorry !
DELPHI 我实在是刚开始学，有时思考问题的方法还很单调。见谅 ！！！
以后，还请赐教！！！！！