对备注字段怎样追加字符?(100分)

S

sanji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #1

我在一程序中需要对备注字段进行操作,添加,修改...
例:某一记录的备注内容:'1997年进厂'
我想在程序中直接对备注字段进行添加:'1997年进厂,1998年下岗'
而不用数据库浏览部件,我想应该可以吧?
因为假设有一备注是用来记录日志的话,总不会人工的在dbmemo中敲入
开机时间吧?
我用的是DBASE的数据库,备注文件名:*.dbt,数据库文件名:*.dbf

 

J

jghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #2

用个dbmemo连上数据库，
然后
dbmemo1.Lines[dbmemo1.lines.count]:=dbmemo1.Lines[dbmemo1.lines.count]+',1998年下岗';//想怎么改就怎么改。
再用个query连好你的数据库，
query1.close;
Query1.SQL.text:='insert into yourtable(memofield) valuespara1);
Query1.parambyname('para1').asmemo:=Tmemo(dbmemo1);
Query1.execSQL;

一切OK

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #3

备注字段是字符型的，因而可以用对字符串的操作方式来实现。
如在桌面上或TForm上开辟一编辑区域，将Memo字段的内容置于
其中，当然也可以将修改过的内容写回字段当中了。

 

S

sanji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #4

我是指不用任何控件,能否实现?

 

A

Amuro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #5

不用数据库浏览部件可以这样:
...
var
bb:Tstrings;
...
begin
...
bb.create;
bb.text := TableMemo1.Value;//TableMemo1 是你为该备注字段建立的永久字段
...
end;
之后你就可以使用Tsrtings的各种属性和方法对 'bb' 编辑修改;
最后,把它写回备注字段;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #6

喂，老兄，这哪有控件？完全是你自己的屏幕界面啊！

 

S

sanji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #7

Amuro:
(红着脸)能否针对我举的例子写详细点?水平有限...:-(

 

A

Amuro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #8

看一下delphi help 中关于Tstrings的帮助...
good luck

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #9

TABLE1.FIELDBYNAME（‘MEMO’）.ASSTRING ：= TABLE1.FIELDBYNAME（‘MEMO’）.ASSTRING + ‘XXX’；
不知道是否OK

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-04

• #10

假设Table1中的一个字段"简历"是Memo类型, 则可以把字段的内容取出来传给一个
TStringList中, 修改TStringList后在返回给数据库.

procedure AppendWorkExp(const s: string);
var
SList: TStringList;
begin
SList := TStringList.Create;
try
SList.Text := Table1.FieldByName('简历').AsString;
SList.Add(s);
Table1.Edit;
Table1.FieldByName('简历').AsString := SList.Text;
Table1.Post;
finally
SList.Free;
end;
end;

 

S

sanji

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-05

• #11

多人接受答案了。