fdzbalanfil.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 73 行

//---------------------------------------------------------------------------
#include <vcl.h>
#include "FdzBalanFil.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "StdBaseForm"
#pragma resource "*.dfm"

TfrmFdzBalanFil *frmFdzBalanFil;

//---------------------------------------------------------------------------
__fastcall TfrmFdzBalanFil::TfrmFdzBalanFil(TComponent* Owner)
   : TStdBaseForm(Owner)
{
  FCurStatus="Cancel";
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBalanFil::InitEditControl()
{
    FillComboBox(Handle,scFcMonth,"select FcMonth from sdFc order by FcMonth","FcMonth");
    if(scFcMonth->ItemIndex!=-1)
       scFcMonth->LocateKey(g_sdFMonth);
    seCacCode->Text="";
    labGlkmCode->Caption="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBalanFil::bbtOKClick(TObject *Sender)
{
    FFmonth=scFcMonth->Text;
    FCacCode=Trim(seCacCode->Text);
    if(FCacCode.IsEmpty())
    {
      ShowMessageWindow("帐户的资料不能为空",mwsInformation);
      return;
    }  
    FCurStatus="OK";
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBalanFil::FormShow(TObject *Sender)
{
    InitEditControl();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFdzBalanFil::seCacCodeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    SqlStr="004[帐户代码][科目代码][科目名称][开户银行]";
    SqlStr+="select CacCode,CacGlkm,GlkmName,CacBankName from sdCac,sdGlkm where CacGlkm=GlkmCode order by CacCode";
    TfrmWnQuery *p;
    try
    {
      StartWaitForm("正在查询,请稍候...");
      p=new TfrmWnQuery(this,"出纳帐户资料查询",SqlStr);
    }
    __finally
    {
      EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
      seCacCode->Text=p->ColData[1];
      labGlkmCode->Caption=p->ColData[2]+"-"+p->ColData[3];
    }
    delete p;
}
//---------------------------------------------------------------------------