如题,要源码
解决方案 »
- 如何实现:当文本框输入长度达到6时,执行过程 edit2Exit
- ???如何用机箱喇叭播放音乐???
- 啊有人认识senhor(百合)这个小丫头,有的话,给我个联系方式吧.(刚才谁把我的贴子给结了)
- 菜鸟送分了,来者有分啊,我用在dbgrideh表中的dgmultiselect设为true后,代码应该怎么实现删除多条记录
- 高分求解一小段简单的代码!
- 请问,有没有把显示操作数据的GIRD做得类似EXCEL模样的控件或者方法?
- 通常一些程序做出来编译后都是一个EXE文件,有没有安装的必要
- DBNavigator组件在使用post时为什么按两次就会报错有什么方法不让它报错吗
- 请问一个简单的问题
- 关于串口的问题,高分求解
- FastReport的初级问题
- fastreport保存为excel的问题,分不够可以再加!!
var F:TextFile;
I,j:integer;
exportsize:integer;
TitleSize:integer;
bookMark:TBook;
begin
assignFile(f,FieldName);
rewrite(f);
for i:=0 to dataset.FieldCount-1 do
begin
write(f,dataset.fields[i].displaylabel,'');
end;
writeln(f);
dataset.DisableControls;
bookMark:=dataset.GetBook;
dataset.First;
for i:=0 to dataset.RecordCount-1 do
begin
for j:=0 to dataset.FieldCount-1 do
begin
write(f,dataset.fields[j].asstring,'');
write(f,char(#9),'');
end;
dataset.Next;
writeln(f);
end;
dataset.GotoBook(bookMark);
dataset.FreeBook(book);
dataset.EnableControls;
writeln(f);
closeFile(f);
end;
这里有很详细的文件读写的说明,还有源码
Book:tBook;//标签
s:widestring;
i,j:integer;
begin
memo:=tstringlist.Create;
Book:=DataSet.GetBook; //标注当前纪录位置
ADODataSet1.First; //移到第一条纪录
while not ADODataSet1.Eof do //如果到最后退出
begin
s:='';
for i:=0 to ADODataSet1.FieldCount-1 do
s:=s+'|'+ADODataSet1.Fields[I].AsString; //当前纪录增加到s用'|'隔开字段
memo.Append(s);//将s追加到memo
ADODataSet1.Next;
end;
ADODataSet1.GotoBook(Book); //返回原来纪录
memo.savetofile('c:\ss.txt'); //保存到文件
end;
三个按钮 ,导出无类型文件,再导入数据库,
procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.Execute then //导出数据
begin
adodataset1.SaveToFile(savedialog1.FileName,pfadtg);
// adodataset1.SaveToFile(savedialog1.FileName,pfxml);
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then //导入
begin adotable1.LoadFromFile(opendialog1.FileName);
adotable1.First;
end;
end;procedure TForm1.Button3Click(Sender: TObject);
var i,i2:integer;
begin
with adotable1 do
begin for i:=1 to recordcount do
begin
i2:=adotable1['id'];
edit1.Text:=inttostr(i2);
adotable2.Active:=true;
adotable2.Filter:=' id = '''+edit1.text+''' ';
adotable2.Filtered:=true; adotable2.edit;
adotable2['name']:=dbedit1.text;
adotable2['text']:=dbedit2.Text;
adotable2.post;
adotable1.Next;
//adotable2.Active:=false; }
end;
end;
if adotable1.Eof=true
then showmessage('finish!!!!')
end;end.