⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 getwxpj.cpp

📁 售后服务系统优质的售后服务是企业生存和市场竞争的保障
💻 CPP
字号:
🔍 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "GetWxPj.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TGetPjForm *GetPjForm;
//---------------------------------------------------------------------------
__fastcall TGetPjForm::TGetPjForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::Button2Click(TObject *Sender)
{
        MaskEdit1->Text="1";
        ADOQuerypjpzxx->Close();
        ADOQuerypjkc->Close();
        ADOTableflxx->Close();
        ADOTableflxx->Open();
        ADOQuerypjpzxx->Parameters->ParamByName("P_flbh")->Value = MainForm->MyGsFl;
        ADOQuerypjpzxx->Open();
        if(ADOQuerypjpzxx->RecordCount > 0) {
                ADOQuerypjkc->Parameters->ParamByName("P_flbh")->Value = ADOQuerypjpzxx->FieldByName("flbh")->AsString;
                ADOQuerypjkc->Parameters->ParamByName("P_pzbh")->Value = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
                ADOQuerypjkc->Open();
        }
        ADOQuery1->Insert();
}
//---------------------------------------------------------------------------


void __fastcall TGetPjForm::Button4Click(TObject *Sender)
{
        if(DBLookupComboBox3->Text.Trim()=="") {
                Application->MessageBox("请选择分类","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(DBLookupComboBox1->Text.Trim()=="") {
                Application->MessageBox("请选择种类","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(DBLookupComboBox2->Text.Trim()=="") {
                Application->MessageBox("请选择型号","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(MaskEdit1->Text.Trim()=="" || MaskEdit1->Text.ToInt()<1) {
                Application->MessageBox("请输入数量","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(MaskEdit1->Text.ToInt()>ADOQuerypjkc->FieldByName("kcsl")->AsInteger ) {
                Application->MessageBox("库存数量不足","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerypjkc->Edit();
        ADOQuerypjkc->FieldByName("kcsl")->AsInteger = ADOQuerypjkc->FieldByName("kcsl")->AsInteger - MaskEdit1->Text.ToInt();
        ADOQuerypjkc->Post();
        ADOQuery1->Post();
        ADOQuerypjpzxx->Close();
        ADOQuerypjkc->Close();
        ADOTableflxx->Close();
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::Button5Click(TObject *Sender)
{
        ADOQuery1->Cancel();
        ADOQuerypjpzxx->Close();
        ADOQuerypjkc->Close();
        ADOTableflxx->Close();
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::Button6Click(TObject *Sender)
{
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select * from pjkc where pjbh=:P_pjbh and flbh=:P_gsfl and pzbh=:P_gspz");
        ADOQuerytmp->Parameters->ParamByName("P_pjbh")->Value = ADOQuery1->FieldByName("pjbh")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_gsfl")->Value = ADOQuery1->FieldByName("gsfl")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_gspz")->Value = ADOQuery1->FieldByName("gspz")->AsString;
        ADOQuerytmp->Open();
        if(ADOQuerytmp->RecordCount != 1) {
                Application->MessageBox("无法定位库存信息！","警告",MB_OK+MB_ICONWARNING);
                Abort();
        }
        ADOQuerytmp->Edit();
        ADOQuerytmp->FieldByName("kcsl")->AsInteger = ADOQuerytmp->FieldByName("kcsl")->AsInteger + ADOQuery1->FieldByName("sl")->AsInteger;
        ADOQuerytmp->Post();
        
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("delete * from wxpjxx where dabh=:P_dabh and khbh=:P_khbh and pjbh=:P_pjbh and gsfl=:P_gsfl and gspz=:P_gspz and lx=:P_lx and sl=:P_sl");
        ADOQuerytmp->Parameters->ParamByName("P_dabh")->Value = MainForm->MyDaBh;
        ADOQuerytmp->Parameters->ParamByName("P_khbh")->Value = MainForm->MyKhBh;
        ADOQuerytmp->Parameters->ParamByName("P_pjbh")->Value = ADOQuery1->FieldByName("pjbh")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_gsfl")->Value = ADOQuery1->FieldByName("gsfl")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_gspz")->Value = ADOQuery1->FieldByName("gspz")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_lx")->Value = ADOQuery1->FieldByName("lx")->AsString;
        ADOQuerytmp->Parameters->ParamByName("P_sl")->Value = ADOQuery1->FieldByName("sl")->AsInteger;
        ADOQuerytmp->ExecSQL();

        ADOQuery1->Close();
        ADOQuery1->Open();
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::Button7Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::ADOQuery1BeforePost(TDataSet *DataSet)
{
        ADOQuery1->FieldByName("dabh")->Value = MainForm->MyDaBh;
        ADOQuery1->FieldByName("khbh")->Value = MainForm->MyKhBh;
        ADOQuery1->FieldByName("flmc")->Value = DBLookupComboBox3->Text;
        ADOQuery1->FieldByName("pzmc")->Value = DBLookupComboBox1->Text;
        ADOQuery1->FieldByName("pjmc")->Value = DBLookupComboBox2->Text;
        ADOQuery1->FieldByName("rybh")->AsString = MainForm->MyLoginBh;
        ADOQuery1->FieldByName("clrm")->AsString = MainForm->MyLoginName;
        ADOQuery1->FieldByName("clrq")->Value = Date();
        ADOQuery1->FieldByName("slrq")->Value = Date();
        ADOQuery1->FieldByName("cllx")->AsString = MainForm->MyCllx;
        ADOQuery1->FieldByName("endflag")->AsString = "是";
        ADOQuery1->FieldByName("sl")->AsInteger = MaskEdit1->Text.ToInt();
        ADOQuery1->FieldByName("je")->AsFloat =  ADOQuery1->FieldByName("sl")->AsInteger *  ADOQuery1->FieldByName("dj")->AsFloat;
        ADOQuery1->FieldByName("cbdj")->AsFloat = ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
        ADOQuery1->FieldByName("lsdj")->AsFloat = ADOQuerypjkc->FieldByName("lsdj")->AsFloat;
        ADOQuery1->FieldByName("lx")->AsString = RadioGroup1->Items->Strings[RadioGroup1->ItemIndex];
}
//---------------------------------------------------------------------------


void __fastcall TGetPjForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQuery1->Close();
        ADOQuery1->Parameters->ParamByName("P_dabh")->Value = MainForm->MyDaBh;
        ADOQuery1->Open();
        MainForm->bxje = MainForm->zfje = MainForm->fwsje = MainForm->fwpjcb = 0;
        while(!ADOQuery1->Eof) {
                MainForm->fwpjcb += ADOQuery1->FieldByName("cbdj")->AsFloat * ADOQuery1->FieldByName("sl")->AsInteger;
                if( ADOQuery1->FieldByName("lx")->AsString == "保修")
                        MainForm->bxje += ADOQuery1->FieldByName("je")->AsFloat;
                else  if( ADOQuery1->FieldByName("lx")->AsString == "自费")
                        MainForm->zfje += ADOQuery1->FieldByName("je")->AsFloat;
                else
                        MainForm->fwsje += ADOQuery1->FieldByName("je")->AsFloat;
                ADOQuery1->Next();
        }
        ADOQuery1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::DataSource1StateChange(TObject *Sender)
{
        switch(ADOQuery1->State) {
        case dsBrowse:
                GroupBox2->Enabled = false;
                Button2->Enabled = true;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if(ADOQuery1->RecordCount > 0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsInsert:
        case dsEdit:
                GroupBox2->Enabled = true;
                Button2->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                Button2->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
                GroupBox2->Enabled = false;
                break;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::FormCreate(TObject *Sender)
{
        GroupBox2->Enabled = false;
        Button2->Enabled = false;
        Button4->Enabled = false;
        Button5->Enabled = false;
        Button6->Enabled = false;

        if( MainForm->MySflx == "商场保修" || MainForm->MySflx == "外购保修" ) {
                if( MainForm->jsflag == false )
                        RadioGroup1->ItemIndex = 2;
                else
                        RadioGroup1->ItemIndex = 0;
        } else
                RadioGroup1->ItemIndex = 1;

        ADOQuery1->Close();
        ADOQuery1->Parameters->ParamByName("P_dabh")->Value = MainForm->MyDaBh;
        ADOQuery1->Open();
}
//---------------------------------------------------------------------------


void __fastcall TGetPjForm::ADOQuery1AfterInsert(TDataSet *DataSet)
{
        ADOQuery1->FieldByName("sl")->AsInteger = 1;
        RadioGroup1->ItemIndex = MainForm->jsflag == true ? 0:2;
        ADOQuery1->FieldByName("gsfl")->AsString = MainForm->MyGsFl;
        if(ADOQuerypjpzxx->RecordCount > 0)
                ADOQuery1->FieldByName("gspz")->AsString = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
        if(ADOQuerypjkc->State == dsBrowse && ADOQuerypjkc->RecordCount > 0) {
                ADOQuery1->FieldByName("pjbh")->AsString = ADOQuerypjkc->FieldByName("pjbh")->AsString;
                ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
        } else
                ADOQuery1->FieldByName("dj")->AsFloat =0;
}
//---------------------------------------------------------------------------


void __fastcall TGetPjForm::DBLookupComboBox1Click(TObject *Sender)
{
        ADOQuerypjkc->Close();
        ADOQuery1->FieldByName("pjbh")->AsString = "0000";
        ADOQuery1->FieldByName("dj")->AsFloat =0;
        if(DBLookupComboBox3->Text.Trim()=="")
                Abort();
        if(DBLookupComboBox1->Text.Trim()=="")
                Abort();
        ADOQuerypjkc->Parameters->ParamByName("P_flbh")->Value = DBLookupComboBox3->KeyValue;
        ADOQuerypjkc->Parameters->ParamByName("P_pzbh")->Value = DBLookupComboBox1->KeyValue;
        ADOQuerypjkc->Open();
        if( ADOQuerypjkc->RecordCount > 0) {
                ADOQuery1->FieldByName("pjbh")->AsString = ADOQuerypjkc->FieldByName("pjbh")->AsString;
                if( RadioGroup1->ItemIndex != 1 )  //非自费
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
                else
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("lsdj")->AsFloat;
        } else
                ADOQuery1->FieldByName("dj")->AsFloat =0;
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::DBLookupComboBox2Click(TObject *Sender)
{
        if(DBLookupComboBox3->Text.Trim()=="")
                Abort();
        if(DBLookupComboBox2->Text.Trim()=="")
                Abort();
        ADOQuery1->FieldByName("pjbh")->AsString = ADOQuerypjkc->FieldByName("pjbh")->AsString;
        if( RadioGroup1->ItemIndex != 1 )  //非自费
                ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
        else
                ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("lsdj")->AsFloat;
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::DBLookupComboBox3Click(TObject *Sender)
{
        ADOQuerypjpzxx->Close();
        ADOQuerypjkc->Close();
        ADOQuery1->FieldByName("gspz")->AsString = "0000";
        ADOQuery1->FieldByName("pjbh")->AsString = "0000";
        ADOQuery1->FieldByName("dj")->AsFloat =0;
        if(DBLookupComboBox3->Text.Trim()=="")
                Abort();
        ADOQuerypjpzxx->Parameters->ParamByName("P_flbh")->Value = DBLookupComboBox3->KeyValue;
        ADOQuerypjpzxx->Open();
        if(ADOQuerypjpzxx->RecordCount > 0) {
                ADOQuerypjkc->Parameters->ParamByName("P_flbh")->Value = ADOQuerypjpzxx->FieldByName("flbh")->AsString;
                ADOQuerypjkc->Parameters->ParamByName("P_pzbh")->Value = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
                ADOQuerypjkc->Open();
        }
        if(ADOQuerypjpzxx->RecordCount > 0)
                ADOQuery1->FieldByName("gspz")->AsString = ADOQuerypjpzxx->FieldByName("pzbh")->AsString;
        if(ADOQuerypjkc->State == dsBrowse && ADOQuerypjkc->RecordCount > 0) {
                ADOQuery1->FieldByName("pjbh")->AsString = ADOQuerypjkc->FieldByName("pjbh")->AsString;
                if( RadioGroup1->ItemIndex != 1 )  //非自费
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
                else
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("lsdj")->AsFloat;
        } else
                ADOQuery1->FieldByName("dj")->AsFloat =0;
}
//---------------------------------------------------------------------------

void __fastcall TGetPjForm::RadioGroup1Click(TObject *Sender)
{
        if( RadioGroup1->ItemIndex == 0 ) {
                if( MainForm->MySflx == "商场保修" || MainForm->MySflx == "外购保修" ) {
                        if( MainForm->jsflag == false ) {
                                RadioGroup1->ItemIndex = 2;
                        }
                } else
                        RadioGroup1->ItemIndex = 1;
        }

        if(ADOQuerypjkc->State == dsBrowse && ADOQuerypjkc->RecordCount > 0) {
                if( RadioGroup1->ItemIndex != 1 )  //非自费
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("bxdj")->AsFloat;
                else
                        ADOQuery1->FieldByName("dj")->AsFloat =ADOQuerypjkc->FieldByName("lsdj")->AsFloat;
        }
}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -