delphi7中把edit空間的值讀取出來寫入資料庫

2022-01-08 22:41:54 字數 2355 閱讀 6741

1樓:匿名使用者

改成下面這樣:

varmz:string;

bm:string;

begin

mz:=edit2.text;

bm:=edit4.text;

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.add('update t_person set name='''+mz+''''+'where person_bm='''+bm+'''');

adoquery1.sql.excesqladoquery1.open;

end;

注意連線好adoquery1就可以了

2樓:匿名使用者

這個掃描槍其實就是一個自動鍵盤一樣,delphi不用任何程式設計的,只需設 edit為焦點(使用者手動或者程式自動設為焦點都可以),就行了。

可以接受掃描槍的輸入並自動按回車

3樓:匿名使用者

varmz:string;

bm:string;

begin

mz:=edit2.text;

bm:=edit4.text;

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.add('update t_person');

adoquery1.sql.add('set name=:mz');

adoquery1.sql.add('where person_bm=bm');

adoquery1.parameters.parambyname('mz').value:=name;//把這兒的name改為mz

adoquery1.parameters.parambyname('bm').value:=bm;

adoquery1.open;

end;

在delphi中的edit中寫入資料,儲存到資料庫中,怎麼寫程式?

4樓:匿名使用者

首先,你要新增 資料集空件,如:adoquery1 然後 設定adoquery1的連線到sql資料庫.當然了你必須要建立了資料庫以及表.

然後,新添一個按紐->在其按紐的單擊事件裡寫上:

adoquery1.close;

adoquery1.sql.text:='insert into 表名 set (欄位名) values ('+edit.text+')';

adoquery1.execsql;

5樓:匿名使用者

adoquery1.close;

adoquery1.sql.text:='select 欄位名 from 表名 where 欄位名='''+trim(edt1.text)+'''';

adoquery1.open;

if adoquery1.recordcount >0 thenbegin

showmessage('您輸入的值有重複,請重新輸入!');

exit;

endelse

begin

adoquery1['欄位名']:=trim(edit1.text);

end;

---------------------------------------

根據欄位名的屬性對edit1.text進行數值轉換就可以了~!

6樓:匿名使用者

用感知db控制元件會輕鬆好多

7樓:匿名使用者

你用的是什麼資料庫?

delphi中點選button要將dbedit中的新紀錄寫入資料庫**是什麼

8樓:

uses中加入db;

if (dbedit1.datasource.dataset.

state = dsinsert) or (dbedit1.datasource.dataset.

state = dsedit) then

dbedit1.datasource.dataset.post ;

dbedit1.datasource.dataset可以換成dbedit1所關聯的adoquery或者adotable

如:if (adoquery1.state = dsinsert) or (adoquery1.state = dsedit) then

adoquery1.post ;

state = dsinsert說明資料集為插入新資料待儲存狀態state = dsedit說明資料集為編輯資料待儲存狀態post函式為向資料庫提交修改或者新增加的資料。

關於delphi7中dbgrid的問題

1.拖一個panel控制元件,設定align屬性為alclient,然後把dbgrid1放置在panel1上面,先隨便拖出一個你想要的大小,然後連線好你 需要顯示的資料。2.在程式的 implementation部分定義一個stringlist,用來存放變化前的dbgrid1的寬,高,上邊距,左邊距...

delphi5中把edit1中的數字個位加十位的和在於edit2中個位加十位的和相加然後給edit

var s,ss string begin s edit1.text ss edit2.text edit3.text inttostr strtoint copy s,length s 1 strtoint copy s,length s 1,1 strtoint copy s,length ss...

高手幫忙!在delphi中如何禁止edit在中輸入東西

方法一 判斷是否觸發change事件,如果有內容更改,讓其執行為空操作方法二 判斷是否在上面keydown事件,如果有按鍵,讓其執行其他操作方法三 用訊息傳遞,達到和enabled相同效果!有一個辦法,就是把當前的內容先儲存起來,然後只要有人改變,就還原,要三部曲 一,先定義 全域性變數 vars ...