saler.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Saler.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmSaler *frmSaler;
//---------------------------------------------------------------------------
__fastcall TfrmSaler::TfrmSaler(TComponent* Owner)
        : TRecBaseForm(Owner,euSdSaler,"")
{
}
//---------------------------------------------------------------------------


AnsiString __fastcall TfrmSaler::GetFieldValue(int FieldIndex)
{
  WideString S;
    S   =   ReadFieldValue(comServer,FieldIndex);
   return(S);
}


void __fastcall TfrmSaler::ClearControl(bool BringToNext)
{
   // BringToNext为真时，不清空
   if(BringToNext)
       return;

    seSalerCode->ItemIndex  =-1;
    seSalerTel->Text        =   "";
    seSalerBeepPage->Text    =   "";
    cbSalerCheck->Checked   =   false;
    cbSalerStop->Checked    =   false;
    cbSalerCancel->Checked  =   false;
    cbSalerClose->Checked  =   false;
    cbSalerPost->Checked    =   false;

}


void __fastcall TfrmSaler::GetDataFromComObject()
{
    seSalerCode->LocateKey(GetFieldValue(fiSalerCode));
    seSalerTel->Text        =    GetFieldValue(fiSalerTel);
    seSalerBeepPage->Text    =    GetFieldValue(fiSalerBeepPage);
    cbSalerCheck->Checked   =   (GetFieldValue(fiSalerCheck)  ==  "1");
    cbSalerStop->Checked    =   (GetFieldValue(fiSalerStop)  ==  "1");
    cbSalerCancel->Checked  =   (GetFieldValue(fiSalerCancel)  ==  "1");
    cbSalerClose->Checked  =   (GetFieldValue(fiSalerClose)  ==  "1");
    cbSalerPost->Checked    =   (GetFieldValue(fiSalerPost)  ==  "1");
    sgSaler->LocateGrid(1,seSalerCode->ItemData[cbItem2]);
}


void __fastcall TfrmSaler::SendDataToComObject()
{
    AnsiString s;
    WriteFieldValue(comServer,fiSalerCode,WideString(seSalerCode->ItemData[cbItem2]));   // SalerCode
    WriteFieldValue(comServer,fiSalerTel,WideString(seSalerTel->Text));
    WriteFieldValue(comServer,fiSalerBeepPage,WideString(seSalerBeepPage->Text));
    if(cbSalerCheck->Checked)
        s   =   "1";
    else
        s   =   "0";
    WriteFieldValue(comServer,fiSalerCheck,WideString(s));  // SalerCheck
    if(cbSalerStop->Checked)
        s   =   "1";
    else
        s   =   "0";
    WriteFieldValue(comServer,fiSalerStop,WideString(s));   // SalerStop
    if(cbSalerCancel->Checked)
        s   =   "1";
    else
        s   =   "0";
    WriteFieldValue(comServer,fiSalerCancel,WideString(s)); // SalerCancel
    if(cbSalerClose->Checked)
        s   =   "1";
    else
        s   =   "0";
    WriteFieldValue(comServer,fiSalerClose,WideString(s));// SalerSettle
    if(cbSalerPost->Checked)
        s   =   "1";
    else
        s   =   "0";
    WriteFieldValue(comServer,fiSalerPost,WideString(s));  //SalerPost

}


void __fastcall TfrmSaler::WaitUserInput()
{
    if(seSalerCode->Enabled)
    seSalerCode->SetFocus();
}


AnsiString __fastcall TfrmSaler::GetDataToGrid()
{
   AnsiString  s;

    s   =   "\t" + GetFieldValue(fiSalerCode);
    if(GetFieldValue(fiSalerCheck) == "1")
        s   =   s + "\t" + "是";
    else
        s   =   s + "\t" + "否";
    if(GetFieldValue(fiSalerStop) == "1")
        s   =   s + "\t" + "是";
    else
        s   =   s + "\t" + "否";
    if(GetFieldValue(fiSalerCancel) == "1")
        s   =   s + "\t" + "是";
    else
        s   =   s + "\t" + "否";
    if(GetFieldValue(fiSalerClose) == "1")
        s   =   s + "\t" + "是";
    else
        s   =   s + "\t" + "否";
    if(GetFieldValue(fiSalerPost) == "1")
        s   =   s + "\t" + "是";
    else
        s   =   s + "\t" + "否";
      return(s);
}


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

   ItemStr=GetDataToGrid();

   if(mAction==0)
   {
    sgSaler->AddItem(ItemStr);
    sgSaler->Row=sgSaler->RowCount-1;
    }
   else if(mAction==1)
   {
     sgSaler->ChangeItem(ItemStr,sgSaler->Row);
     }
   else if(mAction==2)
   {
     sgSaler->RemoveItem(sgSaler->Row);
   }
}


void __fastcall TfrmSaler::FillGridWithData()
{
    AnsiString ItemStr;

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

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


void __fastcall TfrmSaler::InitEditControl()
{
     ClientGroup->AddComponent(2,true,true,false, sgSaler,sgSaler->Name);
     ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
     ClientGroup->AddComponent(2,false,true,true, seSalerCode,seSalerCode->Name);
     FillEdit(seSalerCode,"select UserName,UserCode from sdUser order by Usercode","UserName","UserCode");
}
void __fastcall TfrmSaler::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSaler::sgSalerClick(TObject *Sender)
{
    if (sgSaler->Row > 0)
         comServer->LocateByKey(WideString(sgSaler->TextMatrix[sgSaler->Row][1]));
    if (!comServer->Eof)
         GetDataFromComObject();

}
//---------------------------------------------------------------------------
void  __fastcall TfrmSaler::RefreshUpdateData(int MsgSrc,int MsgType)
{
    if(MsgSrc==euSdUser)
      if(ShowUpdateMessage(MsgSrc,MsgType))
       FillEdit(seSalerCode,"select UserName,UserCode from sdUser order by Usercode","UserName","UserCode");

}
void __fastcall TfrmSaler::seSalerCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="003[用户编码][用户名称][用户组]select Usercode,Username,UserGroupName from sdUser,sdUserGroup where UserGroup=UserGroupCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"用户资料查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
    seSalerCode->LocateKey(p->ColData[1]);
  }
  delete p;

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