rygl.cpp

售后服务系统优质的售后服务是企业生存和市场竞争的保障

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "RyGl.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TRyGlForm *RyGlForm;
//---------------------------------------------------------------------------
__fastcall TRyGlForm::TRyGlForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        Button2->Enabled = false;
        Button3->Enabled = false;
        Button4->Enabled = false;
        Button5->Enabled = false;
        Button6->Enabled = false;
        GroupBox1->Enabled = false;
        GroupBox2->Enabled = true;
        ADOTable1->Close();
        ADOTable1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button2Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        GroupBox1->Enabled = true;
        GroupBox2->Enabled = false;
        ADOTable1->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button3Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(ADOTable1->FieldByName("rybh")->AsString == "0001") {
                Application->MessageBox("总经理柜员不能修改","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        GroupBox1->Enabled = true;
        GroupBox2->Enabled = false;
        ADOTable1->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button4Click(TObject *Sender)
{
        ADOTable1->Post();
        GroupBox1->Enabled = false;
        GroupBox2->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button5Click(TObject *Sender)
{
        ADOTable1->Cancel();
        GroupBox1->Enabled = false;
        GroupBox2->Enabled = true;        
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button6Click(TObject *Sender)
{
        AnsiString rybh;
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        if(ADOTable1->FieldByName("rybh")->AsString == "0001") {
                Application->MessageBox("总经理柜员不能删除","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        rybh = ADOTable1->FieldByName("rybh")->AsString;
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from fwsl where delrybh='"+rybh+"' or slrbh='"+rybh+"' or pgrybh='"+rybh+"' or zxrybh='"+rybh+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from fwjs where jsrybh='"+rybh+"' or zxrybh='"+rybh+"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOTable1->Delete();
        ADOTable1->Close();
        ADOTable1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button7Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::FormClose(TObject *Sender, TCloseAction &Action)
{
        ADOTable1->Close();
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::ADOTable1AfterInsert(TDataSet *DataSet)
{
        ADOTable1->FieldByName("passwd")->Value="123456";
        ADOTable1->FieldByName("jb")->Value="业务人员";
        ADOTable1->FieldByName("czqx")->Value="有";
        ADOTable1->FieldByName("fwslqx")->Value="有";
        ADOTable1->FieldByName("fwpgqx")->Value="无";
        ADOTable1->FieldByName("fwjsqx")->Value="无";
        ADOTable1->FieldByName("hfjsqx")->Value="无";
        ADOTable1->FieldByName("pjglqx")->Value="无";
        ADOTable1->FieldByName("setqx")->Value="无";
        ADOTable1->FieldByName("bmxxcxqx")->Value="无";
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select max(rybh) from ryxx");
        ADOQuerytmp->Open();
        if ( ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOTable1->FieldByName("rybh")->AsString = "0001";
        else
                ADOTable1->FieldByName("rybh")->AsString = ADOTable1->FieldByName("rybh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::DataSource1StateChange(TObject *Sender)
{
        switch(ADOTable1->State) {
        case dsBrowse:
                Button2->Enabled = true;
                Button3->Enabled = true;
                Button4->Enabled = false;
                Button5->Enabled = false;
                if( ADOTable1->RecordCount >0)
                        Button6->Enabled = true;
                else
                        Button6->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button4->Enabled = true;
                Button5->Enabled = true;
                Button6->Enabled = false;
                break;
        default:
                Button2->Enabled = true;
                Button3->Enabled = false;
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
                break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::ADOTable1BeforePost(TDataSet *DataSet)
{
        if(ADOTable1->FieldByName("ryxm")->AsString.Trim()=="") {
                Application->MessageBox("请输入姓名","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
}
//---------------------------------------------------------------------------
void __fastcall TRyGlForm::Button1Click(TObject *Sender)
{
        if( ADOTable1->State != dsBrowse ||  ADOTable1->RecordCount <= 0 )
                Abort();
        if( MainForm->MyLoginJb!="总经理" ) {
                Application->MessageBox("对不起!只有总经理才能重置密码!","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(Application->MessageBox("是否重置当前人员的密码?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        if(ADOTable1->FieldByName("rybh")->AsString == MainForm->MyLoginBh ) {
                Application->MessageBox("你不能重置自己的密码","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOTable1->Edit();
        ADOTable1->FieldByName("passwd")->AsString = "123456";
        ADOTable1->Post();
        Application->MessageBox("密码重置成功！新的密码为123456","提示",MB_OK + MB_ICONASTERISK );
}
//---------------------------------------------------------------------------