DELPHI已连接Oragle

Question

DELPHI:数据库表NORMAL CODE编号 NAME名称 LSTUPDTIME修改时间 NOTE 备注 
数据库已连接。界面已有打开按钮用于导入外部WORD文件。。EDIT1用于输入备注。如何实现点击button1把数据保存到NORMAL表中（编号自动生成 NAME取打开的文件名 修改时间取系统时间 备注取EDIT1里的文字内容没有则NILL）button1单击事件怎么写，望指教

Answer 1

query.Append;
query.FieldByName('FileNAME').Asstring := 'FileNAME';
query.FieldByName('EditTime').Asstring := Now;
query.FieldByName('Re').Asstring := EDIT1.Text;
query.Post;

Answer 2

1.先用控件Tadoconnection自己建立一个连接oracle数据库的连接,取个名字叫conn
2.如果界面是用openDialg控件打开外部word文件的话,用openDialg.fileName就可以取得文件名
3.code自动编号可以通过数据库字段类型来实现,oracle数据库支持自动编号
4.button1单击:
var
tmpqry:Tadoquery;
begin
try
 tmpqry:=Tadoquery.create(nil);
 tmpqry.connection:=conn;
 tmpqry.sql.clear;
 tmpqry.sql.text:='select * from normal where 1=2';
 tmpqry.open;
 tmpqry.append;
 tmpqry.fieldbyname('name').asstring:=opendialg.fileName;
 tmpqry.fieldbyname('note').asstring:=edit1.text;
 tmpqry.fieldbyname('lstupdtime').asdatetime:=now;
 tmpqry.post;
finally
 tmpqry.free;
end;
end;5.搞定收工
凭记忆写的,一些关键字可能打错了,基本方法是这样,你自己再研究一下

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  strSQL:String;
begin
  {ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString='...';}  strSQL:='insert into [NORMAL]([NAME],[LSTUPDTIME],[NOTE])'
         +'values(''文件名'',getdate(),'+Quotedstr(Edit1.Text)+')';
  ADOConnection1.Execute(strSQL);
end;