zcfzsjsc.pas

本程序功能是将银行系统的月计表转换为所需要的资产负债表

unit ZCFZSjSc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComObj, Mask, ComCtrls, DB, variants, ExtCtrls,
  bsSkinBoxCtrls, bsSkinCtrls, BusinessSkinForm, bsSkinShellCtrls,
  bsfilectrl;

type
  TZCFZSjScFrm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Button1: TbsSkinButton;
    Button2: TbsSkinButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinDirectoryListBox1: TbsSkinDirectoryListBox;
    bsSkinFileListBox1: TbsSkinFileListBox;
    bsSkinDriveComboBox1: TbsSkinDriveComboBox;
    Edit1: TbsSkinMaskEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZCFZSjScFrm: TZCFZSjScFrm;
  j: integer;

implementation

uses ZCFZ_DataModel, ZCFZ_BS, FunctionModel;

{$R *.DFM}

procedure TZCFZSjScFrm.Button1Click(Sender: TObject);
var
  s, s1, s2, s3, fileLj1: string;
begin
  with ZCFZ_DM do
  begin
    if (not VarIsNumeric(Edit1.Text)) and (Length(Edit1.Text) <> 2) then
    begin
      bsSkinMessage1.MessageDlg(
        '您还没有输入在核算系统导出会计数据时的行号！',
        mtWarning, [mbOk], 0);
      Exit;
    end;
    s := Format('01%d%2.2d.21', [year, month]);
    s3 := Format('c2%d%2.2d.txt', [year, month]);
    fileLj1 := bsSkinFileListBox1.Directory + '\';
    ZCFZ_Qry.SQL.Clear;
    ZCFZ_Qry.SQL.Add(Format('select * from %s', ['Yjb']));
    ZCFZ_Qry.Active := True;
    if ZCFZ_Qry.Eof then
    begin
      bsSkinMessage1.MessageDlg(
        Format('你还没有将%d年%2.2d月的营业与国库的月计表进行合并。',
        [year, month]), mtWarning, [mbOk], 0);
      Exit;
    end;
    if FileExists(filelj1 + s) then
      Deletefile(FileLj1 + s);
    //将合并后营业与国库的月计表导出会计报表系统所需格式的数据
    {$I-}
    Deletefile(FileLj1 + s);
    Deletefile(FileLj1 + s3);
    s1 := replacesub(
      format('select 0,kmdh,sqyejf,sqyedf,bqfsejf,bqfsedf,bqyejf,bqyedf ' +
      'into outfile ''%s'' ', [filelj1 + s]), '\', '/');

    s1 := s1 + ' FIELDS TERMINATED BY ''\t'' LINES TERMINATED BY ''\r\n'' '
      + 'from yjb';
    ZCFZ_SQLPrc.Script.Text := s1;
    ZCFZ_SQLPrc.Execute;

    //将合并后营业与国库的月计表导出资产负债报表系统所需格式的数据
    s1 := replacesub(
      format('select kmdh,sqyejf,sqyedf,bqfsejf,bqfsedf,bqyejf,bqyedf ' +
      'into outfile ''%s'' ', [filelj1 + s3]), '\', '/');

    s1 := s1 + ' FIELDS TERMINATED BY ''\t'' LINES TERMINATED BY ''\r\n'' '
      + 'from yjb';
    ZCFZ_SQLPrc.Script.Text := s1;
    ZCFZ_SQLPrc.Execute;
    bsSkinMessage1.MessageDlg('数据导入完毕！', mtInformation, [mbOk], 0);
  end;
end;

procedure TZCFZSjScFrm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TZCFZSjScFrm.FormShow(Sender: TObject);
var
  s: string;
begin
  s := Format('营业与国库合并后的月计表，文件名：01%d%2.2d.21', [Year, Month]);
  bsSkinRadioGroup1.Items.Add(s);
  bsSkinRadioGroup1.ItemIndex := 0;
  bsSkinFileListBox1.Mask := Format('01%d%2.2d.21', [Year, Month]);
end;

end.