DELPHI 查詢，增加，修改，刪除

unit unit1;

inte***ce

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, grids, dbgrids, db, adodb, stdctrls;

type

tform1 = class(tform)

edit1: tedit;

button1: tbutton;

button2: tbutton;

button3: tbutton;

datasource1: tdatasource;

adoquery1: tadoquery;

dbgrid1: tdbgrid;

button4: tbutton;

procedure formcreate(sender: tobject);

procedure button1click(sender: tobject);

procedure button2click(sender: tobject);

procedure button3click(sender: tobject);

procedure button4click(sender: tobject);

procedure dbgrid1cellclick(column: tcolumn);

private

public

end;

varform1: tform1;

implementation

procedure tform1.formcreate(sender: tobject);

vars:string;

begin

s:='select id,sj from fsjl';

form1.adoquery1.close;

form1.adoquery1.sql.clear;

form1.adoquery1.sql.add(s);

form1.adoquery1.open;

end;

procedure tform1.button1click(sender: tobject);   //add

vars:string;

begin

s:='insert into fsjl (sj) values ('''+edit1.text+''')';

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.text:=s;

adoquery1.execsql;

form1.adoquery1.close;

form1.adoquery1.sql.clear;

form1.adoquery1.sql.add('select * from fsjl');

form1.adoquery1.open;

end;

procedure tform1.button2click(sender: tobject);  //edit

vars:string;

begin

s:='update fsjl set sj ='''+edit1.text+''' where id ='''+form1.adoquery1.fieldbyname('id').asstring+'''';

adoquery1.close;

adoquery1.sql.clear;

adoquery1.sql.text:=s;

adoquery1.execsql;

form1.adoquery1.close;

form1.adoquery1.sql.clear;

form1.adoquery1.sql.add('select * from fsjl');

form1.adoquery1.open;

end;

procedure tform1.button4click(sender: tobject);   //search

vars:string;

begin

s:='select id,sj from fsjl where sj='''+edit1.text+'''';

form1.adoquery1.close;

form1.adoquery1.sql.clear;

form1.adoquery1.sql.add(s);

form1.adoquery1.open;

end;

procedure tform1.dbgrid1cellclick(column: tcolumn);     //單擊事件

begin

edit1.text:=form1.adoquery1.fieldbyname('sj').asstring;

end;

end.

增加 修改 刪除

alter alter table student add column 學歷 varchar 20 新增一欄位 學歷 alter alter table student add 星座 char 50 not null after 性別 在性別之後新增一欄位星座 update update stud...

MySQL增加 修改 刪除字段

1 增加字段 語法 alter table 表名 add 列名 字段型別 示例 alter table perple add name varchar 200 改進 增加預設值 alter table perple add name varchar 200 default null 增加備註 alt...

hibernate 批量增加 修改 刪除

hibernate完全以物件導向的方式來運算元據庫，當程式裡以物件導向的方式操作持久化物件時，將被自動轉換為對資料庫的操作。例如呼叫session的delete 方法來刪除持久化物件，hibernate將負責刪除對應的資料記錄 當執行持久化物件的set方法時，hibernate將自動轉換為對應的up...