sretdview.cpp

来自「科思ERP部分源码及控件」· C++ 代码 · 共 139 行

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

#include <vcl.h>
#pragma hdrstop

#include "SretdView.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "ListBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmSretdView *frmSretdView;
//---------------------------------------------------------------------------
__fastcall TfrmSretdView::TfrmSretdView(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TListBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   BillNumID=WhereStr;
}
__fastcall TfrmSretdView::TfrmSretdView(TComponent* Owner)
        : TListBaseForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::InitEditControl()
{
 FillEdit(Query,scSrethCurrency,"select CurrencyCode,CurrencyName from sdCurrency","CurrencyName","CurrencyCode");
 FillEdit(Query,scSrethClient,"select ClientName,ClientCode from sdClient","ClientName","ClientCode");
    scSrethType->ClearAll();
    scSrethType->AddItems("据发货单退货","1");
    scSrethType->AddItems("据客户退货","2");

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

void __fastcall TfrmSretdView::ClearControl()
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::GetDataFromComObject(int Section)
{
        if (Section==1)
        {
        seSrethCode->Text       =GetHeadValue("SrethCode");
        scSrethClient->LocateKey(GetHeadValue("SrethClient"));
        scSrethCurrency->LocateKey(GetHeadValue("SrethCurrency"));
        scSrethType->LocateKey(GetHeadValue("SrethType"));
        }
        else
        {
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::SendDataToComObject(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::WaitUserInput(int Section)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::RefreshGridData(int mAction)
{
             AnsiString ItemStr;

              ItemStr="\t"+GetDetailValue("SretdLine")+"\t"+GetDetailValue("SretdSogCode")+"\t"+
                  GetDetailValue("SretdSogdLine")+"\t"+GetDetailValue("SretdGoods")+"\t"+
                  GetDetailValue("SretdUnit")+"\t"+GetDetailValue("SretdPrice")+"\t"+
                  GetDetailValue("SretdQty")+"\t"+GetDetailValue("SretdAmt")+"\t"+GetDetailValue("SretdTaxAmt");
              sgSretd->AddItem(ItemStr);

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

void __fastcall TfrmSretdView::DisplayBill()
{
        GetDataFromComObject(1);
        FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::GetBill(AnsiString BillID)
{
    comServer->FilterString=WideString("SrethCode='"+BillID+"'");
    comServer->Query();
    if (comServer->RecordCount!=0)      //Found it
       {
         DisplayBill();
       }
       else
        ShowMessageWindow("在数据库中没有查到记录："+BillID+",请查证",mwsInformation);
}
//---------------------------------------------------------------------------

void __fastcall TfrmSretdView::FillGridWithData()
{
      int i;
      sgSretd->RowCount=1;
      for (i=0;i<comServer->ItemCount;i++)
      {
          comServer->LocateItemByIndex(i);
          RefreshGridData(0);
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmSretdView::FormShow(TObject *Sender)
{
       ClearControl();
       GetBill(BillNumID);
       ChangeToBrowseState(true);

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



void __fastcall TfrmSretdView::ChangeToBrowseState(bool Browse)
{

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

void __fastcall TfrmSretdView::btnOKClick(TObject *Sender)
{
      ChangeToBrowseState(true);
}
//---------------------------------------------------------------------------