gysset.cpp

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

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

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

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TGysSetForm *GysSetForm;
//---------------------------------------------------------------------------
__fastcall TGysSetForm::TGysSetForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TGysSetForm::FormCreate(TObject *Sender)
{
        MainForm->ADOConnection1->Open();
        GroupBox3->Enabled  = true;
        GroupBox4->Enabled  = false;
        Button10->Enabled = false;
        Button11->Enabled = false;
        Button12->Enabled = false;
        Button13->Enabled = false;
        Button14->Enabled = false;
        ADOTablegysxx->Close();
        ADOTablegysxx->Open();
}
//---------------------------------------------------------------------------
void __fastcall TGysSetForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        MainForm->ADOConnection1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TGysSetForm::Button7Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------



void __fastcall TGysSetForm::Button10Click(TObject *Sender)
{
        ADOTablegysxx->Insert();        
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::Button11Click(TObject *Sender)
{
        ADOTablegysxx->Edit();        
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::Button12Click(TObject *Sender)
{
        ADOTablegysxx->Post();        
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::Button13Click(TObject *Sender)
{
        ADOTablegysxx->Cancel();        
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::Button14Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add("select count(*) from fwsl where gysbh='"+ADOTablegysxx->FieldByName("bh")->AsString +"'");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsInteger > 0) {
                ADOQuerytmp->Close();
                Application->MessageBox("发现相关的服务记录，为了保护档案的完整，你不能删除此记录","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        ADOQuerytmp->Close();
        ADOTablegysxx->Delete();
        ADOTablegysxx->Close();
        ADOTablegysxx->Open();
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::ADOTablegysxxAfterInsert(
      TDataSet *DataSet)
{
        ADOQuerytmp->Close();
        ADOQuerytmp->SQL->Clear();
        ADOQuerytmp->SQL->Add( "select max(bh) from gysxx ");
        ADOQuerytmp->Open();
        if(ADOQuerytmp->Fields->Fields[0]->AsString.Trim()=="")
                ADOTablegysxx->FieldByName("bh")->AsString = "0001";
        else
                ADOTablegysxx->FieldByName("bh")->AsString = ADOTablegysxx->FieldByName("bh")->AsString.sprintf("%04d",ADOQuerytmp->Fields->Fields[0]->AsString.ToInt()+1);
        ADOQuerytmp->Close();
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::ADOTablegysxxBeforePost(TDataSet *DataSet)
{
        if(ADOTablegysxx->FieldByName("mc")->AsString.Trim()=="") {
                Application->MessageBox("请输入供应商名称！","警告",MB_OK+MB_ICONWARNING);
                Abort();
        }
}
//---------------------------------------------------------------------------

void __fastcall TGysSetForm::DataSourcegysxxStateChange(
      TObject *Sender)
{
        switch(ADOTablegysxx->State) {
        case dsBrowse:
                GroupBox3->Enabled  = true;
                GroupBox4->Enabled  = false;
                Button10->Enabled = true;
                if(ADOTablegysxx->RecordCount > 0)
                        Button11->Enabled = true;
                else
                        Button11->Enabled = false;
                Button12->Enabled = false;
                Button13->Enabled = false;
                if(ADOTablegysxx->RecordCount > 0)
                        Button14->Enabled = true;
                else
                        Button14->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                GroupBox3->Enabled  = false;
                GroupBox4->Enabled  = true;
                Button10->Enabled = false;
                Button11->Enabled = false;
                Button12->Enabled = true;
                Button13->Enabled = true;
                Button14->Enabled = false;
                break;
        default:
                GroupBox3->Enabled  = true;
                GroupBox4->Enabled  = false;
                Button10->Enabled = false;
                Button11->Enabled = false;
                Button12->Enabled = false;
                Button13->Enabled = false;
                Button14->Enabled = false;
        }
}
//---------------------------------------------------------------------------