vw_arrsd.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arrsd.h"
#include "VW_Refund.h"
#include "VW_Arnr.h"
#include "VW_Arob.h"
#include "VW_Arcavh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmVW_Arrsd *frmVW_Arrsd;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arrsd::TfrmVW_Arrsd(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Arrsd::Label2DblClick(TObject *Sender)
{
 AnsiString stmp,sType,sCode;
 TForm *p;
 try
 {
    StartWaitForm("正在启动单据查询,请稍候...");
    sType=seDocType->Text;  //单据类型
    sCode=seDocCode->Text;  //单据号
    if(sType == "退款单")
    {
     stmp=" RefundCode='"+sCode+"' ";
     (TfrmVW_Refund *)p=new TfrmVW_Refund(this,stmp);
    }else if(sType == "退回票据")
    {
     stmp=" ArnrCode='"+sCode+"' ";
     (TfrmVW_Arnr *)p=new TfrmVW_Arnr(this,stmp);
    }else if(sType == "红字应收单")
    {
     stmp=" ArobCode='"+sCode+"' ";
     (TfrmVW_Arob *)p=new TfrmVW_Arob(this,stmp);
    }else return;
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------

void __fastcall TfrmVW_Arrsd::sgArrsdDblClick(TObject *Sender)
{
 int ARow;
 AnsiString stmp,sCode;
 TForm *p;
 ARow=sgArrsd->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动应收核销单查询,请稍候...");
    sCode=sgArrsd->Cells[1][ARow];  //单据号
    stmp=" ArcavhCode='"+sCode+"' ";
    (TfrmVW_Arcavh *)p=new TfrmVW_Arcavh(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------