purser.cpp

速达开源ERP系统

///////////////////////////////////
//       仓管员资料              //
//          panner   2000/8/15   //
///////////////////////////////////
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Purser.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmPurser *frmPurser;
//---------------------------------------------------------------------------
__fastcall TfrmPurser::TfrmPurser(TComponent* Owner)
        : TRecBaseForm(Owner,euSdPurser,"")
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPurser::GetFieldValue(int FieldIndex)
{
   AnsiString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
   return(S);
}
void __fastcall TfrmPurser::ClearControl(bool BringToNext)
{
    // BringToNext为真时，不清空
    if(BringToNext)
       return;
    sePurserCode->Text        =   "";
    sePurserName->Text        =   "";
    sePurserTel->Text        =   "";
    sePurserBeepPage->Text    =   "";
    cbPurserCheck->Checked   =   false;
    cbPurserPost->Checked    =   false;
    cbPurserCancel->Checked  =   false;
    cbPurserClose->Checked  =   false;

}
void __fastcall TfrmPurser::GetDataFromComObject()
{
    sePurserCode->LocateKey(GetFieldValue(fiPurserCode));
    sePurserCode->Text=sePurserCode->ItemData[1];
    sePurserName->Text=sePurserCode->ItemData[0];
    sgPurser->LocateGrid(1,GetFieldValue(fiPurserCode));
    //强制显示，否则在”取消“后不能显示内容
    sePurserTel->Text         =    GetFieldValue(fiPurserTel);
    sePurserBeepPage->Text    =    GetFieldValue(fiPurserBeepPage);
    cbPurserCheck->Checked    = (GetFieldValue(fiPurserCheck) =="1"?true:false);
    cbPurserCancel->Checked   = (GetFieldValue(fiPurserCancel)=="1"?true:false);
    cbPurserClose->Checked    = (GetFieldValue(fiPurserClose) =="1"?true:false);
    cbPurserPost->Checked     = (GetFieldValue(fiPurserPost)  =="1"?true:false);
}
void __fastcall TfrmPurser::SendDataToComObject()
{
    AnsiString s;
    WriteFieldValue(comServer,fiPurserCode, sePurserCode->Text);
    WriteFieldValue(comServer,fiPurserTel, sePurserTel->Text);
    WriteFieldValue(comServer,fiPurserBeepPage, sePurserBeepPage->Text);
    WriteFieldValue(comServer,fiPurserCheck,(cbPurserCheck->Checked?"1":"0"));  // PurserCheck
    WriteFieldValue(comServer,fiPurserCancel,cbPurserCancel->Checked?"1":"0"); // PurserCancel
    WriteFieldValue(comServer,fiPurserClose, cbPurserClose->Checked?"1":"0");// PurserSettle
    WriteFieldValue(comServer,fiPurserPost,cbPurserPost->Checked?"1":"0");  //PurserPost
}


void __fastcall TfrmPurser::WaitUserInput()
{
   if(sePurserCode->Enabled)
    sePurserCode->SetFocus();
}
AnsiString __fastcall TfrmPurser::GetDataToGrid()
{
    AnsiString  s;
    sePurserCode->LocateKey(GetFieldValue(fiPurserCode));
    s= "\t" + GetFieldValue(fiPurserCode)+
       "\t" + sePurserCode->ItemData[0]+
        "\t"+(GetFieldValue(fiPurserCheck) == "1"?"是":"否")+
        "\t"+(GetFieldValue(fiPurserPost) == "1"?"是":"否")+
        "\t"+(GetFieldValue(fiPurserCancel) == "1"?"是":"否")+
        "\t"+(GetFieldValue(fiPurserClose) == "1"?"是":"否");
      return(s);
}
void __fastcall TfrmPurser::RefreshGridData(int mAction)
{
   AnsiString ItemStr;
   ItemStr=GetDataToGrid();
   if(mAction==0)
    sgPurser->AddItem(ItemStr);
   else if(mAction==1)
   {
     int i   =   sgPurser->Row;
     sgPurser->ChangeItem(ItemStr,i);
   }
   else if(mAction==2)
   {
     sgPurser->RemoveItem(sgPurser->Row);
   }
}
void __fastcall TfrmPurser::FillGridWithData()
{
    AnsiString ItemStr;

    comServer->MoveFirst();
    sgPurser->RowCount    =   1;

    while (comServer->Eof   ==  0)
    {
        ItemStr =   GetDataToGrid();
        sgPurser->AddItem(ItemStr);
        comServer->MoveNext();
     }
}

void __fastcall TfrmPurser::InitEditControl()
{
     ClientGroup->AddComponent(2,true,true,false, sgPurser,sgPurser->Name);
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
     ClientGroup->AddComponent(2,false,true,true, sePurserCode,sePurserCode->Name);
     FillEdit(sePurserCode,"select UserCode,UserName from  sduser order by usercode",
                  "UserName","UserCode");
}
void __fastcall TfrmPurser::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------

void __fastcall TfrmPurser::sgPurserClick(TObject *Sender)
{
    int ARow=sgPurser->Row;
    if (ARow    >   0)
         comServer->LocateByKey(sgPurser->TextMatrix[ARow][1]);
    if (!comServer->Eof)
         GetDataFromComObject();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurser::RefreshUpdateData(int MsgSrc,int MsgType)
{
  switch(MsgSrc)
  {
   case euSdUser:
    if(ShowUpdateMessage(MsgSrc,MsgType))
    {
     FillEdit(sePurserCode,"select UserCode,UserName from  sduser order by usercode",
                  "UserName","UserCode");
    }
    break;
   default:
    break;
  }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPurser::sePurserCodeButtonClick(TObject *Sender)
{
    AnsiString SqlStr;
    TfrmWnQuery *p;
    SqlStr="002[用户代码][用户名称]select usercode, username from sduser  order by usercode ";
    try{
     StartWaitForm("正在查询，请稍候...");
     p=new TfrmWnQuery(this,"用户查询",SqlStr);
    }
    __finally
    {
     EndWaitForm();
    }
    if(p->ShowModal()==mrOk)
    {
     sePurserCode->Text=p->ColData[1];
     sePurserName->Text=p->ColData[2];
    }
    delete p;

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

void __fastcall TfrmPurser::sePurserCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13)
    {
      TComResultSet *TResultSet=NewResultSet();
      AnsiString SQL="select usercode, username from sduser ";
      try
      {
       TResultSet->Close();
       TResultSet->Open(SQL,"");
       if(TResultSet->RecordCount<1)
        throw  Exception("用户代码"+sePurserCode->Text+"'未定义");
       sePurserName->Text=TResultSet->FieldByName("Username");
       TResultSet->Close();
      }
      __finally
      {
           delete TResultSet;
      }     

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