我想連一個資料庫(access)，之後在資料庫裡的東西變成加密，而我已經會連線了，成功了 adotable1.ConnectionString:='provider=microsoft.jet.oledb.4.0;data source=d:\資料庫\abc.mdb;persist security info=false'; adotable1.TableName:='illness'; adotable1.Active:=true; 而在加密上我也使用了 const c1=52845; c2=11719; function decrypt(const s:string;key:word):string; var i:byte; begin setlength(result,length(s)); for i:=1 to length(s) do begin result[i]:=char(byte(s[i])xor (key shr 8)); key:=(byte(s[i])+key)*c1+c2; end; end; 在來就是如何在button上使用上面的decrypt function，可以使用access資料庫裡的東西可以加密呢？？？各位幫幫忙，老師又出難題了 < >< >

如果你要將所有的欄位的資料都加密,可以用 for i := 0 to adotable1.fieldcount-1 do begin adotable1.field[i].value := decrypt(adotable1.field[i].value,8); end; 寫在adotable1的beofrepost 或是 存檔的按鈕按下去之後,另外,你也必須要寫一個解密的函數,在資料取出的時候,將加密的資料還原!! Pillar Wang

------
Pillar Wang

請問一下i是宣告什麼的？因為我宣告成byte的話，會變成adotable1.field[i].value := decrypt(adotable1.field[i].value,8);這行的field有錯，如果是宣告成string的話，就變成for i := 0 to adotable1.fieldcount-1 do 的i有錯？？？不好意思，因為我是學生，是新手

你好 var i : integer;    在for 迴圈裡面的變數就是用 integer整數的型態喔!!

------
Pillar Wang

不行耶，出現什麼dataset not in edit or insert mode的字，

procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin for i := 0 to adotable1.fieldcount-1 do adotable1.Fields[i].value := decrypt(adotable1.fields[i].value,8); end; procedure TForm1.Button4Click(Sender: TObject); //var i:integer; begin //for i := 0 to adotable1.fieldcount-1 do //adotable1.Fields[i].value := encrypt(adotable1.fields[i].value,8); end;哪有錯呢？？？請大師指點

procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin for i := 0 to adotable1.fieldcount-1 do adotable1.Fields[i].value := decrypt(adotable1.fields[i].value,8); end; procedure TForm1.Button4Click(Sender: TObject); //var i:integer; begin //for i := 0 to adotable1.fieldcount-1 do //adotable1.Fields[i].value := encrypt(adotable1.fields[i].value,8); end;哪有錯呢？？？請大師指點

會不會是你寫的點錯了!!因為你要在edit或是insert的狀態下,要存到資料庫之前才做這一段處理啊!!所以可以寫在query的beofrepost事件裡面啊!! Pillar Wang

------
Pillar Wang

對了paa 你的問題是屬於資料庫的,在ktop裡面有一區是專門討論delphi有關資料庫問題的,以後要記得將問題發表在那一個討論區裡面喔!! Pillar Wang

------
Pillar Wang

sorry 我看錯了!!以為這邊不是資料庫的討論區!!不好意思!!

------
Pillar Wang

沒關係，不過還是要謝謝你。

引言: 不行耶，出現什麼dataset not in edit or insert mode的字，

DataSet要作資料異動前，要先設定為編輯狀態，可以使用下列函數

procedure DataSetEdit(DataSet: TDataSet);
//意義: DataSet編輯
//參數: DataSet[in]-作用的DataSet
begin
  if not(DataSet.State in [dsEdit]) then DataSet.Edit;
end;

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin   if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式可以看看嗎？

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin   if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式可以看看嗎？

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin   if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式可以看看嗎？

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式給你看看嗎？不好意思我是新手。

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式給你看看嗎？不好意思我是新手。

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式給你看看嗎？不好意思我是新手。

procedure DataSetEdit(DataSet: TDataSet); //意義: DataSet編輯 //參數: DataSet[in]-作用的DataSet begin if not(DataSet.State in [dsEdit]) then DataSet.Edit; end; 這函數我加了，可是還是有錯耶，可以傳程式給你看看嗎？不好意思我是新手。