‘SQL SERVER 不存在或访问被拒绝’ 的问题

1楼: 1. 为frm_Main窗体的ActionList1增加了四个Action,他们的Caption分别为：添加、编辑、删除、查询 var i： integer; Action ： TAction; ...... with frm_Main do begin for i ：= 0 to ActionList1.ActionCount-1 do begin Action ：= ActionList1.Actions[i]; frm_DM.ADOdsTemp.AppendRecord([UserID,TAction(Action).Caption,TAction(Action).Enabled,TAction(Action).Visible]); //showmessage(TAction(Action).Caption); end; end; 不知道怎么存入数据库后，Action的Caption字段都是乱码：？？, ？,？？,？？这是什么原因造成的，请各位高手指点。 -------------------------------------------------------------------------- 2. 我用四个TCheckBox控件来分别控制对应的Action.enabled。例： procedure Tfrm_UserAdmin.CheckBox1Click(Sender： TObject); begin Action ：= frm_Main.ActionList1.Actions[0]; TAction(Action).Enabled ：= CheckBox1.Checked; end; 　　程序执行，点击其中一个CheckBox，程序就不动了，再单击其它的控件都没有反应，还请各位赐教。　　谢谢。

 

2楼: 强制转换问题，ActionList1.Actions 是TContainedAction，和TAction是不同的

  字串7

3楼: 那请问如果要实现我第2个问题中的功能，具体该如何操作，我看了TContainedAction(Action)是没有enabled属性的。

 

字串8

4楼: 我不是很明白你怎么想你都用4个CHECKBOX了，一个对应一个不行？ Action1.Enabled ：= CheckBox1.Checked; Action2.Enabled ：= CheckBox2.Checked; . .

  字串7

5楼: to：moshengren 我的意思是和你一样的，不过在执行过程中，点击一次以后程序就不动了。

  字串5

6楼: 请各位高手指点。

 

字串4

7楼: 問題一：可能是你的數據庫的語言的問題，請確定問題二：在使用ActionList1之前，你需要定義它的事件，如果沒有定義，是用不了的那怕你在那個事件中加入兩個//也行 一點愚見

  字串2

8楼: 我不清楚你具体怎么操作，这样写不会有问题呀

  字串1

9楼: to：duanhai 谢谢你。关于第二个问题正如你所说，现在已经解决了。有你10分了。但是第一个问题，我把Action的Caption属性都改为数字后，执行下来的效果还是乱码。请帮忙继续解答。

 

字串1

10楼: to：moshengren 有关操作的代码已经列出来了呀，没有什么其它的操作代码了。

  字串1

11楼: 我用的是D7+SQL　Server。

  字串4

12楼: 我最后又做了一次测试， 在放置TActionList窗体上运行 procedure Tfrm_Main.Button4Click(Sender： TObject); begin Action ：= ActionList1.Actions[0]; showmessage(TAction(Action).Caption); end; 没问题。 而我实际是用在另一个窗体上， 结果就产生了乱码，不知道是怎么回事。 procedure TfUserAdmin.BitBtn1Click(Sender： TObject); begin Action ：= frm_Main.ActionList1.Actions[0]; showmessage(TAction(Action).Caption); end;

  字串1

13楼: 看来这是一个Delphi本身的Bug了。结帖。感谢以上两位的参与。

  字串2