我想在添加一个记录时使得tdbrichedit能自动添加一些信息进去,但发现不行!
然后针对特定的行进行添加也不行?我很奇怪!
谁可帮忙解决一下!
然后针对特定的行进行添加也不行?我很奇怪!
谁可帮忙解决一下!
解决方案 »
- 谁有DBChart的用法质料....或推荐网站.....
- 谁了解像{20D04FE0-3AEA-1069-A2D8-08002B30309D}这样的东西的含义
- 一个关于TCLIENTDADASET的问题,答对就给分
- 请教:你怎么看女程序员?
- 重新登录窗体怎么做啊?
- 各位大虾,你们用Delphi做报表的时候,哪个第三方控件好用些
- FastReport问题
- 为什么我用DELPHI写SQL的数据还原不成功啊?
- 如何将窗体的背景用一张图片平埔?
- 请问delphi5.0的补丁程序在哪有下载!
- 高分求公司招聘程序员的考题
- 安装delphi6光盘中的teamsource,需要序列号,哪位大侠帮帮忙啊!着急!
救兵.雷恩,何在?
我最后仍然选择Tdbrichedit控件!
你如果要用它有什么特殊的用途的话,呵呵,我可以给你例程,中午给你;
-------------------------------------------------------------
招聘斑竹如果您觉的您对Delphi VS DataBase感兴趣或是很想学的更好些或者是对Delphi VS DataBase有更深的认识,我们可以一起交流;
呵呵
www.nxrs.net/bbs
谢谢,别抛砖
不砸才怪,害我发了回贴,居然无法显示,再来一次,
去www.nxrs.net一看,感觉精华N多.
所以,嘻嘻...
这回饶你,不然好东西怎会源源而出,如果把小小的头砸大了!
关注www.nxrs.net!
我用了trichedit 但对其修改不能存到数据库里去,很奇怪!
你可以帮一下吗?
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
FStrm:TFileStream;
begin
FStrm:=TFileStream.Create('Tmp',fmCreate);
try
TBlobField(DataSet.FieldByName('BFLD')).SaveToStream(FStrm);
finally
FStrm.Free;
end;
RichEdit1.Lines.LoadFromFile('Tmp');
DeleteFile('Tmp');
end; //TDataSet.OnAfterScroll 用来保持TRichEdit内容与数据库内容同步procedure TForm1.Table1BeforePost(DataSet: TDataSet);
var
MStrm:TMemoryStream;
begin
MStrm:=TMemoryStream.Create;
try
RichEdit1.Lines.SaveToStream(MStrm);
TBlobField(DataSet.FieldByName('BFLD')).LoadFromStream(MStrm);
finally
MStrm.Free;
end;
end;//在更新之前把TRichEdit的内容写到对应库的字段中procedure TForm1.RichEdit1Change(Sender: TObject);
var
MStrm:TMemoryStream;
begin
MStrm:=TMemoryStream.Create;
if Not(Table1.State in [dsInsert,dsEdit]) then
Table1.Edit;
try
RichEdit1.Lines.SaveToStream(MStrm);
TBlobField(Table1.FieldByName('BFLD')).LoadFromStream(MStrm);
finally
MStrm.Free;
end;
end;
procedure Tfrminf.BitBtn20Click(Sender: TObject);
var id,ip:string;
begin if (edit1.Text<>'') and (dbedit2.Text<>'')and (dbedit3.Text<>'')and (dbedit4.Text<>'')and (edit1.Text <>'') then
begin
id:=trim(edit2.Text);
ip:=trim(edit1.Text);
showmessage(edit1.Text);
if dm.tbpcinf.Locate('工號',id,[loCaseInsensitive]) then
begin
showmessage('使用者ID必須唯一,請確認輸入的ID是否唯一,正確?');
edit2.SetFocus;
edit2.Color:=clred;
exit;
end
else if dm.tbpcinf.Locate('IP分配',ip,[loCaseInsensitive]) then
begin
showmessage(' 分配的IP已經存在,請測試以確認,並重新分配一個IP!');
edit1.SetFocus;
edit1.Color:=clred;
exit;
end
else
begin
dm.tbpcinf.Edit;
dm.tbpcinf.FieldByName('工號').AsString:=trim(edit2.Text);
dm.tbpcinf.FieldByName('IP分配').AsString:=trim(edit1.Text);
dm.tbpcinf.FieldByName('領用日期').AsDateTime:=datetimepicker1.Date;
dm.tbpcinf.FieldByName('進貨日期').AsDateTime:=datetimepicker2.Date;
dm.tbpcinf.Post;
end;
end
else
begin
showmessage('請輸入一條記錄的完整信息!');
exit;
end;
end;谢谢!
但这样的话我的Locate将失去意义!
如果你要看代码的话,可以去
http://expert.csdn.net/Expert/topic/1113/1113266.xml?temp=.4664728
谢谢!
-----------------------------------------
说实话,我不大明白你的意思,但我总觉的你用又用数据敏感控件,又用Edit不是很好,你可不可以说明白一些;
呵呵,小小在线地
对于原题的问题,谢谢BlazingFire 的方法,但我想有些过于繁琐,我会再寻找看有无简单的方法.
谢谢两位的解答.我想我会常去www.nxrs.net讨教你们的.做了班竹有何感想!
嘻嘻...有时间,有能力,我也去你们那做班竹!
我在继续面壁.但目下单位又有东西了.所以我是边干边学!
向那天冲啊!
别大哥了,小小....你希望我折寿呀,我还要把你从班竹上篡下来!