网易邮箱，中国第一大电子邮件服务商

没人会的?难道这个问题是不可解决的?....

(1,1)不就已經重複了
===================引 用 keykill 文 章===================
没人会的?难道这个问题是不可解决的?....

解释一下,我设置两个主键,也是就是联合主键,需要两个值(两列值)来确定一条记录
可能发的帖有歧异,,现在说明一下
"两个都相同",是指N组(p_id,r_id)中,如果有两组,p_id,r_id的值都相同才算违反主键约束.
比如说
(1,1)
(1,2)
(1,3)
(1,4)
(2,1)
(2,2)
(2,3)
(2,4)
这些都没有违反主键约束,但如果再插入一组值(1,2)就违反了主键约束....

我很急啊...希望高手速度帮帮忙啊...小弟感激不尽

我試過您的程式碼
須多加一行 code
不然會出現 "can't not perform this operation on a closed dataset "

但你出現 "primary key error "

你可能要檢查你的
1.資料庫設定、資料庫的內容
2.adotable 的設定 (假設是一開始執行就報錯的話)

如果您可以貼上您的錯誤訊息，以對 adotable 的設定值
也許大家會比較了解您的情況

------
Just Do It
-------------------------
其實男生不是真的喜歡你不減肥，而是喜歡你愛吃還不肥；也不是真的喜歡你不化妝，而是喜歡你素顏也好看；也不是真的喜歡你瘦，而是喜歡你瘦卻有胸；也不是真喜歡你獨立，而是他忙的時候別煩他。女孩子，太認真你就輸了。

[code delphi]
unit Umain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ImgList, ToolWin, Buttons, DBCtrls, Grids,
DBGrids, Mask, StdCtrls, ExtCtrls, DB, ADODB;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
ToolBar1: TToolBar;
ImageList1: TImageList;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Button4: TButton;
GroupBox2: TGroupBox;
Button6: TButton;
Edit1: TEdit;
Edit2: TEdit;
GroupBox3: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Button5: TButton;
Edit3: TEdit;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Button7: TButton;
GroupBox4: TGroupBox;
Label16: TLabel;
Label17: TLabel;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Label14: TLabel;
Button8: TButton;
GroupBox5: TGroupBox;
DataSource1: TDataSource;
PageControl2: TPageControl;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
Label5: TLabel;
DBGrid1: TDBGrid;
Button9: TButton;
DBText1: TDBText;
ADOQuery1: TADOQuery;
ADOTable1: TADOTable;
TabSheet6: TTabSheet;
Label6: TLabel;
DBGrid2: TDBGrid;
Label13: TLabel;
DBGrid3: TDBGrid;
TabSheet7: TTabSheet;
Button10: TButton;
Button11: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
rnum,pnum: integer;

implementation
{$R *.dfm}


procedure TForm1.Button4Click(Sender: TObject);
var
r,p,i,j:integer;

begin
r :=strtoint(Edit1.Text);
p :=strtoint(Edit2.Text);
if (r<0) or (r>6) or (p<0) or (p>25) then
begin
showmessage('资源类数请限制在1-5之间;进程总数请限制在1-24之间');
Edit1.Clear;
Edit2.Clear;
exit;
end
else
begin
rnum:=r;
pnum:=p;
ADOTable1.TableName:='_P_R';
ADOTable1.Active:=True;
for i:=1 to ADOTable1.RecordCount do
begin
ADOTable1.Delete;
ADOTable1.Refresh;
ADOTable1.next;
end;
for i:=1 to rnum do
for j:=1 to pnum do
begin
ADOTable1.Insert;
ADOTable1.FieldByName('p_id').AsInteger:=i;
ADOTable1.FieldByName('r_id').AsInteger:=j;
ADOTable1.Post;
end
end
end;
end.
[/code]
表_P_R里的字段分别是p_id,r_id,allocation,b_max,need,request 都是int 其中p_id,和r_id是联合主键
我通过ADOTable1用同样的方法往另一个只有一个主键的表里写过数据,成功了,只是换这个有两个主键的表就不行了......

按照你提供的table 結構及程式，沒有ｋｅｙ值重複的問題
sql2000 D6

SQL2000里这样定义当然没问题
问题是在我上面的delphi代码里,我用ADOTable1往里面写数据就出现问题了....

1. 
   if (r<0) or (r>6) or (p<0) or (p>25) then
   begin
2. showmessage('资源类数请限制在1-5之间;进程总数请限制在1-24之间');
3. Edit1.Clear;
4. Edit2.Clear;
5. exit;
6. end
7. else
8. begin
9. rnum:=r;
10. pnum:=p;
11. ADOTable1.TableName:='_P_R';
12. ADOTable1.Active:=True;
13. for i:=1 to ADOTable1.RecordCount do
14. begin
15. ADOTable1.Delete;
16. ADOTable1.Refresh;
17. ADOTable1.next;
18. end;
19. for i:=1 to rnum do
20. for j:=1 to pnum do
21. begin
22. ADOTable1.Insert;
23. ADOTable1.FieldByName('p_id').AsInteger:=i;
24. ADOTable1.FieldByName('r_id').AsInteger:=j;
25. ADOTable1.Post;
26. end
27. end
29. if (r<0) or (r>6) or (p<0) or (p>25) then
    1. 如果你是要限制 r值 為 1-5 之间與 P值為 1-24之间的話
30. 這個條件敘述總覺得怪怪的
31. 2.你有試著當發生錯誤時，看一下資料庫內容嗎???
32. 假設這是在測試階段的話， 每執行一次我會清空 table ，以方便測試
33. 3.可以研究一下 TADOTable ，應該有設欄位主鍵的設定方式
34. 4.通常 sql 2000 可以，2005 的環境也是可以
35. 測試環境： sql server 2005 , D2006
36. 測試結果： 沒有任何問題
37. 加油吧~~ 這麼多人在幫你~

------
Just Do It
-------------------------
其實男生不是真的喜歡你不減肥，而是喜歡你愛吃還不肥；也不是真的喜歡你不化妝，而是喜歡你素顏也好看；也不是真的喜歡你瘦，而是喜歡你瘦卻有胸；也不是真喜歡你獨立，而是他忙的時候別煩他。女孩子，太認真你就輸了。

編輯記錄

delphi我是第一次用,第一次就要用来毕业设计....代码编的怪情有可原啦...
调试的时候会报错,运行工程文件也同样报错...
我在想是不是Delphi里通过ADO组件操作数据库不支持联合主键?...
我仔细看了下,我这个数据库表也没有设置联合主键的必要,所以把联合主键(p_id,r_id)取消掉了...
因为没主键,循环删除的时候会提示"键列信息不足"不能删...所以我在_P_R表里新增了一个递增字段作为主键...
对于delphi中这个联合主键问题我是绕过去了....因为老师在催,让我不要影响了进度...
我只是回避了这个联合主键的问题......以后有时间还是希望能弄清楚这个问题...

1. procedure TForm1.Button4Click(Sender: TObject);
2. var
3. r,p,i,j:integer;
5. begin
6. r :=strtoint(Edit1.Text);
7. p :=strtoint(Edit2.Text);
8. if (r<0) or (r>6) or (p<0) or (p>25) then
9. begin
10. showmessage('资源类数请限制在1-5之间;进程总数请限制在1-24之间');
11. Edit1.Clear;
12. Edit2.Clear;
13. exit;
14. end
15. else
16. begin
17. rnum:=r;
18. pnum:=p;
19. ADOTable1.TableName:='_P_R';
20. ADOTable1.Active:=True;
21. for i:=1 to ADOTable1.RecordCount do
22. begin
23. ADOTable1.Delete;
24. ADOTable1.Refresh;
25. ADOTable1.next;
26. end;
27. for i:=1 to rnum do
28. for j:=1 to pnum do
29. begin
30. ADOTable1.Insert;
31. ADOTable1.FieldByName('p_id').AsInteger:=i;
32. ADOTable1.FieldByName('r_id').AsInteger:=j;
33. ADOTable1.Post;
34. end
35. end
36. end;

条件判断时，没有考虑0的情况，即，当输入0时，也是可以过的。
for i:=1 to ADOTable1.RecordCount do
begin
ADOTable1.Delete;
ADOTable1.Refresh;
.next;
end;

问题出在上面红色的位置，应该用一条ADOTable1.Delete就可以了，后面的两条就可以不用。
本来ADOTable1.Delete就已经做了下移的动作了，所以不用执行ADOTable1.Next

另外，是否可以用ADOQuery来执行删除的动作？
如：
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'delete _P_R';
ADOQuery1.Execute;

然后再用ADOTable1.Active打开

------
中国的软件，自己做

Hello

若要用 TAdotable 的 refresh 屬性功能
就把 TAdoTable 的CursorLocation 屬性
從 clUseClent 設成 clUseServer
(有得必有失)
可避免發生錯誤訊息

若想知道原因，可查看 TADOTable Refresh 的 Help
再查看 TADOTable CursorLocation 屬性的 Help

------
Just Do It
-------------------------
其實男生不是真的喜歡你不減肥，而是喜歡你愛吃還不肥；也不是真的喜歡你不化妝，而是喜歡你素顏也好看；也不是真的喜歡你瘦，而是喜歡你瘦卻有胸；也不是真喜歡你獨立，而是他忙的時候別煩他。女孩子，太認真你就輸了。