首页 > 其他 > 详细

保存工资到记事本的写法

时间:2017-05-03 18:16:32      阅读:239      评论:0      收藏:0      [点我收藏+]

需要加一个savedialog组件然后写入以下代码

 

 技术分享

 

技术分享
 1 procedure TForm3.N7Click(Sender: TObject);
 2 var
 3 MyList: TStringList;
 4 MyAdoq: TADOQuery;
 5 I: Integer;
 6 myfieldvalue,myfieldName,mystr: string;
 7 begin
 8   MyList := TStringList.Create;
 9   MyAdoq := TADOQuery.Create(nil);
10   MyList.Clear;
11   try
12       MyAdoq.Connection := frmDataPool.ADOConnection1;
13       mystr:=‘‘ ;
14       myList.Clear;
15       frmDataPool.qry工资表.First;
16       while not frmDataPool.qry工资表.Eof do
17        begin
18        for i := 0 to frmDataPool.qry工资表.FieldDefs.Count - 1 do
19        begin
20        //myfieldName := frmDataPool.qry工资表.FieldDefs[i].Name;
21        myfieldName:= frmDataPool.qry工资表.Fields[I].FieldName;
22        myfieldvalue:= frmDataPool.qry工资表.FieldByName(myfieldName).AsString;
23        mystr:=mystr+myfieldname+‘‘+‘:‘+‘‘+‘(‘+myfieldvalue+‘)‘+‘‘+‘;‘;
24        //ShowMessage(myfieldName);
25        //ShowMessage(myfieldvalue);
26        //ShowMessage(mystr);
27        end;
28        myList.Add(mystr);
29        mystr:=‘‘ ;
30        frmDataPool.qry工资表.Next;
31        end;
34       if SaveDialog1.Execute then
35       MyList.SaveToFile(SaveDialog1.FileName);
36   finally
37   MyList.Free;
38   MyAdoq.Free;
39   end;
40 end;
技术分享

 

保存工资到记事本的写法

原文:http://www.cnblogs.com/ddxxxb/p/6803216.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!