complaint.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Complaint.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "DateEdit"
#pragma link "SDGrid"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma resource "*.dfm"

TfrmComplaint *frmComplaint;
//---------------------------------------------------------------------------
__fastcall TfrmComplaint::TfrmComplaint(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::ClearControl(bool BringToNext)
{
    //清除编辑构件内容
    if(!BringToNext)
    {
      seComplaintCode->Text="";   //单号
      scComplaintClient->Text="";   //客户编号
      seComplaintLinkMan->Text="";   //联系人
      scComplainteMail->Text="";   //E_MAIL
      seComplaintLinkTel->Text="";   //联系电话
      seComplaintGoods->Text="";   //衣服型号
      scComplaintCloth->Text="";   //面料号
      scComplaintStyle->Text="";   //款号
//      deComplaintBuyDate->Text="";   //购买时间
      seComplaintDealer->Text="";   //经销商名称
      meComplaintRr->Text="";   //投诉原因
      meComplaintResult->Text="";   //处理结果
      seComplaintAppellater->Text= g_sdUserCode;   //受理人
      deComplaintDate->Text=g_sdCurDate;   //受理日期
      meComplaintFeedback->Text="";   //反馈结果
      scComplaintDeptCheck->ItemIndex = 0 ;   //部门签认
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::InitEditControl()
{
   //初始化构件在增加 修改 浏览时的属性 false -可编辑  true -不可编辑
    ClientGroup->AddComponent(2,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false,sgComplaint,sgComplaint->Name);

    FillComboBox(Handle,scComplaintClient,"select ClientCode,ClientName from sdClient where ClientCancel=0 order by ClientCode","ClientName","ClientCode");
    FillComboBox(Handle,scComplaintCloth,"SELECT ClothCode, ClothName FROM ksCloth ORDER BY ClothCode","ClothName","ClothCode");
    FillComboBox(Handle,scComplaintStyle,"SELECT StyleCode, StyleName FROM ksStyle ORDER BY StyleCode","StyleName","StyleCode");
    FillEdit(Handle, seComplaintGoods, "SELECT GoodsCode, GoodsName FROM SdGoods","GoodsName","GoodsCode");
    
    scComplaintDeptCheck->Clear();
    scComplaintDeptCheck->AddItems("1 - 已签认","1");
    scComplaintDeptCheck->AddItems("2 - 未签认","2");
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::WaitUserInput()
{
    //设置焦点构件
    if(seComplaintCode->CanFocus())
      seComplaintCode->SetFocus();   //单号
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::GetDataFromComObject()
{
    //得到数据填充编辑构件
    seComplaintCode->Text=GetFieldValue("ComplaintCode");   //单号
    sgComplaint->LocateGrid(1,seComplaintCode->Text);
    scComplaintClient->Text=GetFieldValue("ComplaintClient");   //客户编号
    seComplaintLinkMan->Text=GetFieldValue("ComplaintLinkMan");   //联系人
    scComplainteMail->Text=GetFieldValue("ComplainteMail");   //E_MAIL
    seComplaintLinkTel->Text=GetFieldValue("ComplaintLinkTel");   //联系电话
    seComplaintGoods->LocateKey(GetFieldValue("ComplaintGoods"));   //衣服型号
    scComplaintCloth->LocateKey(GetFieldValue("ComplaintCloth"));   //面料号
    scComplaintStyle->LocateKey(GetFieldValue("ComplaintStyle"));   //款号
    deComplaintBuyDate->Text=GetFieldValue("ComplaintBuyDate");   //购买时间
    seComplaintDealer->Text=GetFieldValue("ComplaintDealer");   //经销商名称
    meComplaintRr->Text=GetFieldValue("ComplaintRr");   //投诉原因
    meComplaintResult->Text=GetFieldValue("ComplaintResult");   //处理结果
    seComplaintAppellater->Text=GetFieldValue("ComplaintAppellater");   //受理人
    deComplaintDate->Text=GetFieldValue("ComplaintDate");   //受理日期
    meComplaintFeedback->Text=GetFieldValue("ComplaintFeedback");   //反馈结果
    scComplaintDeptCheck->LocateKey(GetFieldValue("ComplaintDeptCheck"));   //部门签认
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::SendDataToComObject()
{
   //发送数据
    SetFieldValue("ComplaintCode",seComplaintCode->Text);   //单号
    SetFieldValue("ComplaintClient",scComplaintClient->ItemData[1]);   //客户编号
    SetFieldValue("ComplaintLinkMan",seComplaintLinkMan->Text);   //联系人
    SetFieldValue("ComplainteMail",scComplainteMail->Text);   //E_MAIL
    SetFieldValue("ComplaintLinkTel",seComplaintLinkTel->Text);   //联系电话
    SetFieldValue("ComplaintGoods",seComplaintGoods->Text);   //衣服型号
    SetFieldValue("ComplaintCloth",scComplaintCloth->ItemData[1]);   //面料号
    SetFieldValue("ComplaintStyle",scComplaintStyle->ItemData[1]);   //款号
    SetFieldValue("ComplaintBuyDate",deComplaintBuyDate->Text);   //购买时间
    SetFieldValue("ComplaintDealer",seComplaintDealer->Text);   //经销商名称
    SetFieldValue("ComplaintRr",meComplaintRr->Text);   //投诉原因
    SetFieldValue("ComplaintResult",meComplaintResult->Text);   //处理结果
    SetFieldValue("ComplaintAppellater",seComplaintAppellater->Text);   //受理人
    SetFieldValue("ComplaintDate",deComplaintDate->Text);   //受理日期
    SetFieldValue("ComplaintFeedback",meComplaintFeedback->Text);   //反馈结果
    SetFieldValue("ComplaintDeptCheck",scComplaintDeptCheck->ItemData[1]);   //部门签认
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmComplaint::GetDataToGrid()
{
    //组成网格行数据
    AnsiString  s="";
    s+="\t"+GetFieldValue("ComplaintCode") +  //单号
    s+="\t"+GetFieldValue("ComplaintClient") +  //客户编号
    s+="\t"+GetFieldValue("ComplaintGoods") +  //衣服型号
    s+="\t"+GetFieldValue("ComplaintCloth") +  //面料号
    s+="\t"+GetFieldValue("ComplaintStyle") +  //款号
    s+="\t"+GetFieldValue("ComplaintAppellater") +  //受理人
    s+="\t"+GetFieldValue("ComplaintDate") ;  //受理日期
    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::RefreshGridData(int mAction)
{
    //刷新网格数据
    AnsiString ItemStr;
    ItemStr =  GetDataToGrid();
    if (mAction ==  0)     //Add
    {
        sgComplaint->AddItem(ItemStr);
    }
    else if(mAction ==  1) //Edit
    {
        int i  =  sgComplaint->Row;
        sgComplaint->RemoveItem(i);
        sgComplaint->AddItem(ItemStr,i);
    }
    else if(mAction ==  2) //Del
    {
        sgComplaint->RemoveItem(sgComplaint->Row);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::FillGridWithData()
{
    //填充网格
    AnsiString ItemStr;
    comServer->MoveFirst();
    sgComplaint->RowCount = 1;

    while (comServer->Eof == 0)
    {
        ItemStr = GetDataToGrid();
        sgComplaint->AddItem(ItemStr);
        comServer->MoveNext();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::FormShow(TObject *Sender)
{

    FillGridWithData();
    comServer->MoveFirst();
    GetDataFromComObject();

}
//---------------------------------------------------------------------------
void __fastcall TfrmComplaint::sgComplaintClick(TObject *Sender)
{
    //定位数据
    if (sgComplaint->Row    >   0)
         comServer->LocateByIndex(sgComplaint->Row -1);
    if (!comServer->Eof)
         GetDataFromComObject();

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

void __fastcall TfrmComplaint::seComplaintGoodsButtonClick(TObject *Sender)
{
 AnsiString SqlStr;
  SqlStr="004[衣服型号][衣服名称][面料号][款号]";
  SqlStr += "SELECT GoodsCode, GoodsName, GoodsCloth, GoodsDesign FROM SdGoods Where GoodsClass <>3 ";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"衣服型号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
   	seComplaintGoods->LocateKey(p->ColData[1]);
  }
  delete p;

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



void __fastcall TfrmComplaint::seComplaintGoodsExit(TObject *Sender)
{
        scComplaintCloth->LocateKey( Query->FieldByName( seComplaintGoods->ItemData[3] ) );

        scComplaintStyle->LocateKey( seComplaintGoods->ItemData[3] );
    
}
//---------------------------------------------------------------------------