zhanghu.~cpp

来自「全面剖析财务管理的内容」· ~CPP 代码 · 共 81 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "zhanghu.h"
#include "pingheng.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmZhangHu *fmZhangHu;
//---------------------------------------------------------------------------
__fastcall TfmZhangHu::TfmZhangHu(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmZhangHu::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;    
}
//---------------------------------------------------------------------------
void __fastcall TfmZhangHu::BitBtn1Click(TObject *Sender)
{
    AnsiString msg = "是否清除原账簿信息,并初始化新帐簿";
    if(Application->MessageBox(msg.c_str(),"确认",MB_YESNO) == ID_NO)
        return;
    // 调用sf_初始化帐户存储过程建立新帐簿
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    pQuery->SQL->Add("exec sf_初始化帐户");
    pQuery->ExecSQL();
    delete pQuery;
    // 刷新显示
    Table1->Active = false;
    Table1->Active = true;
    Table2->Active = false;
    Table2->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TfmZhangHu::BitBtn2Click(TObject *Sender)
{
    AnsiString msg;
    // 先判断试算是否平衡
    // 平衡才可以启用
    TfmPingheng *pForm;
    pForm = new TfmPingheng(Application);
    if(!pForm->CalPingHeng(0))
    {
        Application->MessageBox("初始数据试算不平衡,请检查数据","确认",MB_OK);
        delete pForm;
        return;
    }
    delete pForm;
    msg = "试算结果平衡\n启用新帐簿将删除所有历史数据\n";
    msg += "是否继续?";
    if(Application->MessageBox(msg.c_str(),"确认",MB_YESNO) == ID_NO)
        return;
    // 调用sf_初始化帐户存储过程建立新帐簿
    TQuery* pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    pQuery->SQL->Add("exec sf_启用帐户");
    pQuery->ExecSQL();
    delete pQuery;
    Application->MessageBox("新帐簿成功启用","确认",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TfmZhangHu::BitBtn3Click(TObject *Sender)
{
    TfmPingheng *pForm;
    pForm = new TfmPingheng(Application);
    pForm->CalPingHeng(0);
    pForm->ShowModal();
    delete pForm;
}
//---------------------------------------------------------------------------