vw_arcavd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arcavd.h"
#include "VW_Arivh.h"
#include "VW_Arob.h"
#include "VW_Arrb.h"
#include "VW_PreRb.h"
#include "VW_Arnr.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmVW_Arcavd *frmVW_Arcavd;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arcavd::TfrmVW_Arcavd(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Arcavd::Label2DblClick(TObject *Sender)
{
 AnsiString stmp,sType,sCode;
 TForm *p;
 try
 {
    StartWaitForm("正在启动单据查询,请稍候...");
    sType=seDocType->Text;  //单据类型
    sCode=seDocCode->Text;  //单据号
    if(sType == "收款单")
    {
     stmp=" ArrbCode='"+sCode+"' ";
     (TfrmVW_Arrb *)p=new TfrmVW_Arrb(this,stmp);
    }else if(sType == "预收单")
    {
     stmp=" PreRbCode='"+sCode+"' ";
     (TfrmVW_PreRb *)p=new TfrmVW_PreRb(this,stmp);
    }else if(sType == "票据")
    {
     stmp=" ArnrCode='"+sCode+"' ";
     (TfrmVW_Arnr *)p=new TfrmVW_Arnr(this,stmp);
    }else return;
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Arcavd::sgArcavdDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp,sType,sCode;
 TForm *p;
 ARow=sgArcavd->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动单据查询,请稍候...");
    sType=sgArcavd->Cells[1][ARow];  //单据类型
    sCode=sgArcavd->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;
}
//---------------------------------------------------------------------------