nppm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Nppm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "fpanel"
#pragma resource "*.dfm"
TfrmNppm *frmNppm;
//---------------------------------------------------------------------------
__fastcall TfrmNppm::TfrmNppm(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{ SetAutoCodeString(seNppmCode,"Acm-79");
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      seNppmCode->Text   ="";  //票据号
      deNppmDate->Text   =g_sdCurDate;  //付款日期
      seNppmAmt->Text    ="";  //金额
      seNppmInr->Text    ="";  //利息
      seNppmExp->Text    ="";  //费用
      scNppmExpense->ItemIndex =-1;  //费用类型
      memNppmDesc->Text   ="";  //备注
//      scNppmUser->LocateKey(g_sdUserCode);
//      scNppmUser->Text    =scNppmUser->ItemData[0];  //操作员
      scNppmUser->Text    =g_sdUserCode;  //操作员
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, sgNppm,sgNppm->Name);
    ClientGroup->AddComponent(2,false,false,false, seNppmCode,seNppmCode->Name);
    FillComboBox(Handle,scNppmExpense,"SELECT Expensename,Expensecode FROM sdExpense order by Expensecode","ExpenseName","ExpenseCOde");
//    FillComboBox(Handle,scNppmUser,"select username,Usercode from sduser","Username","Usercode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::GetDataFromComObject()
{
      seNppmCode->Text  = GetFieldValue("NppmCode");
      sgNppm->LocateGrid(1,seNppmCode->Text);
      deNppmDate->Text   =GetFieldValue("NppmDate");
      seNppmAmt->Text   =GetFieldValue("NppmAmt");
      seNppmInr->Text   =GetFieldValue("NppmInr");
      seNppmExp->Text   =GetFieldValue("NppmExp");
      scNppmExpense->LocateKey(GetFieldValue("NppmExpense"));
      scNppmExpense->Text  = scNppmExpense->ItemData[0];
      memNppmDesc->Text   =GetFieldValue("NppmDesc");
//      scNppmUser->LocateKey(GetFieldValue("NppmUser"));
//      scNppmUser->Text  = scNppmUser->ItemData[0];
      scNppmUser->Text  =GetFieldValue("NppmUser");
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::SendDataToComObject()
{
      SetFieldValue("NppmCode",seNppmCode->Text);
      SetFieldValue("NppmDate",deNppmDate->Text);
      SetFieldValue("NppmAmt",seNppmAmt->Text);
      SetFieldValue("NppmInr",seNppmInr->Text);
      SetFieldValue("NppmExp",seNppmExp->Text);
      SetFieldValue("NppmExpense",scNppmExpense->ItemData[1]);
      SetFieldValue("NppmDesc",memNppmDesc->Text);
//      SetFieldValue("NppmUser",scNppmUser->ItemData[1]);
      SetFieldValue("NppmUser",scNppmUser->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::WaitUserInput()
{
      seNppmCode->SetFocus();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmNppm::GetDataToGrid()
{
      AnsiString  s;
      s = "\t" + GetFieldValue("NppmCode")    +
          "\t" + GetFieldValue("NppmDate")    +
          "\t" + GetFieldValue("NppmAmt")    +
          "\t" + GetFieldValue("NppmExp")    ;
      return s;
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::RefreshGridData(int mAction)
{
      AnsiString ItemStr;
      ItemStr = GetDataToGrid();
      if (mAction ==  0)   //Add
      {
          sgNppm->AddItem(ItemStr);
      }
      else if(mAction ==  1)   //Modify
      {
          int i   =   sgNppm->Row;
          sgNppm->ChangeItem(ItemStr,i);
      }
      else if(mAction ==  2)      //Delete
      {
          sgNppm->RemoveItem(sgNppm->Row);
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::FillGridWithData()
{
      AnsiString ItemStr;
      comServer->MoveFirst();
      sgNppm->RowCount    =   1;
      while (comServer->Eof   ==  0)
      {
         ItemStr =  GetDataToGrid();
         sgNppm->AddItem(ItemStr);
         comServer->MoveNext();
      }
     comServer->MoveFirst();
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::FormShow(TObject *Sender)
{
      FillGridWithData();
      comServer->MoveFirst();
      GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::seNppmCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
      if(Key==13 && CurrentState==caNormal)
      {
       comServer->LocateByKey(WideString(seNppmCode->Text));
       GetDataFromComObject();
      }

}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::sgNppmClick(TObject *Sender)
{
      if (sgNppm->Row > 0)
          comServer->LocateByKey(WideString(sgNppm->TextMatrix[sgNppm->Row][1]));
      if (!comServer->Eof)
       GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
   switch(MsgSrc)
   {
     case euSdUser:
     if(ShowUpdateMessage(MsgSrc,MsgType))
       FillComboBox(Handle,scNppmUser,"select username,Usercode from sduser","Username","Usercode");
     break;
     case euSdExpense:
     if(ShowUpdateMessage(MsgSrc,MsgType))
        FillComboBox(Handle,scNppmExpense,"SELECT Expensename,Expensecode FROM sdExpense order by Expensecode","ExpenseName","ExpenseCOde");
     break;
     default:
     break;

   }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmNppm::seNppmCodeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    try
    {
        StartWaitForm("正在查询,请稍候...");
         SqlStr="004[应付票据号][金额][未到期利率][到期利率]";
         SqlStr+=" select ApnpCode,ApnpAmt,ApnpEiRate,ApnpUiRate from sdApnp ";
         SqlStr+=" where ApnpState=1 and ApnpCheck=1  order by Apnpcode";
         p=new TfrmWnQuery(this,"应付票据查询",SqlStr);
         
     }
     __finally
     {
       EndWaitForm();
     }
     if(p->ShowModal()==mrOk)
     {
      seNppmCode->Text=p->ColData[1];
      seNppmAmt->Text=p->ColData[2];
     }
     delete p;
}
//---------------------------------------------------------------------------