vw_arrid.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "VW_Arrid.h"
#include "VW_Arivh.h"
#include "VW_Arcavh.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma resource "*.dfm"
TfrmVW_Arrid *frmVW_Arrid;
//---------------------------------------------------------------------------
__fastcall TfrmVW_Arrid::TfrmVW_Arrid(TComponent* Owner)
        : TStdBaseForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmVW_Arrid::N1Click(TObject *Sender)
{
 int ARow;
 AnsiString stmp,sCode;
 TForm *p;
 ARow=sgArrid->Row;
 if(ARow < 1)
  return;
 try
 {
    StartWaitForm("正在启动应收票据查询,请稍候...");
    sCode=sgArrid->Cells[1][ARow];  //单据号
    stmp=" ArivhCode='"+sCode+"' ";
    (TfrmVW_Arivh *)p=new TfrmVW_Arivh(this,stmp);
 }
 __finally
 {
    EndWaitForm();
 }
 p->ShowModal();
 delete p;
}
//---------------------------------------------------------------------------

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

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