vw_bdpsl.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 53 行

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Bdpsl.h"
#include "VW_Bdl.h"
#include "VW_Bdrg.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Bdpsl *frmVW_Bdpsl;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Bdpsl::TfrmVW_Bdpsl(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Bdpsl::sgBdpslDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp,sType,sCode;
 TForm *p;
 ARow=sgBdpsl->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动单据查询,请稍候...");
    sType=sgBdpsl->Cells[1][ARow];  //单据类型
    sCode=sgBdpsl->Cells[2][ARow];  //单据号
    if(sType == "坏账损失")
    {
     stmp=" BdlCode='"+sCode+"' ";
     (TfrmVW_Bdl *)p=new TfrmVW_Bdl(this,stmp);
    }else if(sType == "坏账收回")
    {
     stmp=" BdrgCode='"+sCode+"' ";
     (TfrmVW_Bdrg *)p=new TfrmVW_Bdrg(this,stmp);
    }else return;
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;

}
//---------------------------------------------------------------------------