vw_aro_sub.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Aro_sub.h"
#include "VW_Arivh.h"
#include "VW_Arob.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmVW_Aro_sub *frmVW_Aro_sub;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Aro_sub::TfrmVW_Aro_sub(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Aro_sub::sgAro_subDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp,sType,sCode;
 TForm *p;
 ARow=sgAro_sub->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动单据查询,请稍候...");
    sType=sgAro_sub->Cells[1][ARow];  //单据类型
    sCode=sgAro_sub->Cells[2][ARow];  //单据号
    if(sType == "应收发票")
    {
     stmp=" ArivhCode='"+sCode+"' ";
     (TfrmVW_Arivh *)p=new TfrmVW_Arivh(this,stmp);
    }else if(sType == "其他应收单")
    {
     stmp=" ArobCode='"+sCode+"' ";
     (TfrmVW_Arob *)p=new TfrmVW_Arob(this,stmp);
    }else return;
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------