下载地址   http://pan.baidu.com/s/1gd6Ctd5(更新日期 2014-12-08）

历史版本  http://pan.baidu.com/s/1sj14d9V

>>>>>>>>>>使用简介

2014-12-8更新

1）、除了企业会计准则的模板外，另外引入小企业模板、事业单位、行政单位、国资模板

2）、 加入了批量打印底稿的功能 。平时 我们打印底稿需要逐张设置纸张大小，横向纵向，调节页面，本工具能自动帮你完成，它会根据表格的大小自动调整缩旋比，自动确定纸张横向纵向，并且按一次打 印可打工作簿中选定的任意多个表格，或全部表格，也可选定多个工作簿一次打印全部的底稿文件 。

3）、能够方便地生成各种函证，银行询证函，企业往来询证函，交易询证函，信封等，并且支持多行数据出现在一个函证里。

4）、加入了对OFFICE2007,OFFICE2010,OFFICE2013支持，更友好的界面。

interface

uses system.IO;
const HS = 85;
type
  dayline = record
    date: double;
    startj: double;
    maxj: double;
    minj: double;
    endj: double;
    a6: double;
    totalsl: double;
    a8: double;
  end;

type
  xSTOCKS = class
  private
    { Private Declarations }
    fcount: integer;
    fmax, fmin: double;
  public
    lines: array of dayline;
    procedure GETFROMFILE();
    property count: integer read fcount ;
    property max: double read fmax;
    property min: double read fmin;
    function  GETMC(DM:STRING):string;
  end;

implementation

procedure xSTOCKS.GETFROMFILE;
var fs: filestream;
  myreader: binaryreader;
  i: integer;
  length: integer;
begin
  fmax := 0;

  fs := filestream.Create('C:\同花顺核新\history\shase\day\600806.day', filemode.Open, fileaccess.Read);
  myreader := binaryreader.Create(fs);

//  length := convert.ToInt16((fs.get_Length - 64) / 48);
  length := convert.ToInt16((fs.get_Length - 72) / 56);
  fcount:=length;
  fs.Seek(72, SeekOrigin.&Begin);

  if length >= HS then
  begin
    setlength(lines, HS);
    fs.seek((length - HS) * 56, seekorigin.Current);
    fcount := HS;
  end
  else
  begin
    setlength(lines, length);
    fcount := length;
  end;

  for I := 0 to fcount - 1 do
  begin
    //读取数据
    lines[i].date := myreader.ReadInt32;
    lines[i].startj := (myreader.ReadInt32 shl 8 shr 8) / 1000;
    lines[i].maxj := (myreader.ReadInt32 shl 8 shr 8) / 1000;

    if (fmax < lines[i].maxj) then
      fmax := lines[i].maxj;

    lines[i].minj := (myreader.ReadInt32 shl 8 shr 8) / 1000;
    if (i = 0) then
      fmin := lines[i].minj
    else
      if (fmin > lines[i].minj) then
        fmin := lines[i].minj;

    lines[i].endj := (myreader.ReadInt32 shl 8 shr 8) / 1000;
    fs.Seek(36, SeekOrigin.Current);
  //
  end;
  myreader.Close;
  fs.Close;
end;

function xSTOCKS.GETMC(DM: STRING):string;
var fs: filestream;
  myreader: binaryreader;
  i: integer;
  length: integer;
  GPDM,GPNAME:STRING;

begin
  {fmax := 0;

  fs := filestream.Create('C:\同花顺核新\realtime\shase\STOCKNOW.DAT', filemode.Open, fileaccess.Read);
  myreader := binaryreader.Create(fs);

  length := convert.ToInt16((fs.get_Length - 64) / 48);
  fs.Seek(176, SeekOrigin.&Begin);

//  for I:=0 to LENGTH - 1 do
  BEGIN
 //   fs.Seek(1, SeekOrigin.Current);
    GPDM:=copy(MYREADER.ReadString,0);
  end;

  myreader.Close;
  fs.Close;}
  result:='';
end;

end.

不得以，只得开始的我不断探索之旅，其间不断地切换各种手机，各种号簿管理软件，号码导入导出工具。</br>

最后的解决是用qqpim号码同步软件过渡，用另一台NOKIA e63成功复制到了sim.过程是这样的。

</br>

G2上下载一个G2版的qqpim号码同步软件软件，然后将G2中的电话簿同步到QQ上，然后找一个NOKIA e63,也下载个e63版的qqpim,然后将其导入到E63中，最后用E63的号码复制功能，将电话簿存入了SIM卡。

</br>

费时6个小时，其实这时间一个一个电话往里灌都可以的啦。

  经过反复的实验，最后锁定在主窗体的属性 borderstyle的值为bsDialog，将其改为bsSizeable，主菜单如期而至。可能是这些皮肤插件自动将这个属性改为了bsdialog的原因。

http://www.whzysoft.cn/download/注会考试练习系统安装.rar

不需注册码，不限制，如果你有word 版的题库请发给作者加入其中

lxy7105#126.com

为交流特申请一个群用于考友交流 qq群 11137518