ggset.cpp

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

        case dsEdit:
        case dsInsert:
                Button4->Enabled = false;
                Button5->Enabled = false;
                Button6->Enabled = false;
                GroupBox5->Enabled = true;
                break;
        default:
                Button4->Enabled = true;
                Button5->Enabled = false;
                Button6->Enabled = false;
                GroupBox5->Enabled = false;
        }
}
//---------------------------------------------------------------------------


void __fastcall TGgSetForm::DBLookupComboBox3Click(TObject *Sender)
{
        ADOQueryqtfy->Close();
        ADOQueryggxx->Close();
        ADOQueryggxx->Open();
        if( ADOQueryggxx->RecordCount > 0)
                ADOQueryqtfy->Open();
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::Button8Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        GroupBox1->Enabled = false;
        GroupBox5->Enabled = false;
        ADOQueryqtfy->Insert();
        ADOQueryqtfy->FieldByName("flbh")->AsString = DBLookupComboBox2->KeyValue;
        ADOQueryqtfy->FieldByName("ppbh")->AsString = DBLookupComboBox3->KeyValue;
        ADOQueryqtfy->FieldByName("ggbh")->AsString = ADOQueryggxx->FieldByName("ggbh")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::Button9Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        GroupBox1->Enabled = false;
        GroupBox5->Enabled = false;
        ADOQueryqtfy->Edit();
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::Button10Click(TObject *Sender)
{
        if(MainForm->setqx!="有") {
                Application->MessageBox("对不起!你无权设置信息!","错误",MB_OK+MB_ICONERROR);
                        Abort();
        }
        if(Application->MessageBox("是否删除当前记录?","确认",MB_OKCANCEL+MB_ICONERROR)!=IDOK)
                Abort();
        ADOQueryqtfy->Delete();
        ADOQueryqtfy->Close();
        ADOQueryqtfy->Open();
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::Button11Click(TObject *Sender)
{
        ADOQueryqtfy->Post();
        GroupBox1->Enabled = true;
        GroupBox5->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::Button12Click(TObject *Sender)
{
        ADOQueryqtfy->Cancel();
        GroupBox1->Enabled = true;
        GroupBox5->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::ADOQueryqtfyBeforePost(TDataSet *DataSet)
{
        if(ADOQueryqtfy->FieldByName("start")->AsString.Trim()=="" || ADOQueryqtfy->FieldByName("start")->AsInteger < 0 ) {
                Application->MessageBox("请输入起始里程","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryqtfy->FieldByName("end")->AsString.Trim()=="" || ADOQueryqtfy->FieldByName("end")->AsInteger < 0 ) {
                Application->MessageBox("请输入终止里程","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryqtfy->FieldByName("wgf")->AsString.Trim()=="" || ADOQueryqtfy->FieldByName("wgf")->AsFloat < 0 ) {
                Application->MessageBox("请输入误工费","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        if(ADOQueryqtfy->FieldByName("jtf")->AsString.Trim()=="" || ADOQueryqtfy->FieldByName("jtf")->AsFloat < 0 ) {
                Application->MessageBox("请输入交通费","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::DataSource5StateChange(TObject *Sender)
{
        switch(ADOQueryqtfy->State) {
        case dsBrowse:
                GroupBox6->Enabled = true;
                Button8->Enabled = true;
                if( ADOQueryqtfy->RecordCount>0){
                        Button9->Enabled = true;
                        Button10->Enabled = true;
                } else {
                        Button9->Enabled = false;
                        Button10->Enabled = false;
                }
                Button11->Enabled = false;
                Button12->Enabled = false;
                DBGrid2->Enabled = false;
                break;
        case dsEdit:
        case dsInsert:
                GroupBox6->Enabled = true;
                Button8->Enabled = false;
                Button9->Enabled = false;
                Button10->Enabled = false;
                Button11->Enabled = true;
                Button12->Enabled = true;
                DBGrid2->Enabled = true;
                break;
        default:
                GroupBox6->Enabled = false;
                Button8->Enabled = false;
                Button9->Enabled = false;
                Button10->Enabled = false;
                Button11->Enabled = false;
                Button12->Enabled = false;
                DBGrid2->Enabled = false;
        }
}
//---------------------------------------------------------------------------


void __fastcall TGgSetForm::DataSource4DataChange(TObject *Sender,
      TField *Field)
{
        if(ADOQueryqtfy->State != dsBrowse)
                return;
        GroupBox6->Enabled = true;
        Button8->Enabled = true;
        if( ADOQueryqtfy->RecordCount>0){
                Button9->Enabled = true;
                Button10->Enabled = true;
        } else {
                Button9->Enabled = false;
                Button10->Enabled = false;
        }
        Button11->Enabled = false;
        Button12->Enabled = false;
}
//---------------------------------------------------------------------------



void __fastcall TGgSetForm::Button13Click(TObject *Sender)
{
        if(ADOQueryggxx->State != dsBrowse || ADOQueryggxx->RecordCount < 1)
                Abort();
        if ( ADOQueryggxx->FieldByName("wxsflx")->AsString != "部位" )
                Abort();
        TWxBwFySetForm *WxBwFySetForm;
        try
        {
                MainForm->MyGsFl = ADOQueryggxx->FieldByName("flbh")->AsString;
                MainForm->MyGsPp = ADOQueryggxx->FieldByName("ppbh")->AsString;
                MainForm->MyGsGg = ADOQueryggxx->FieldByName("ggbh")->AsString;
                WxBwFySetForm = new TWxBwFySetForm(Application);
                WxBwFySetForm->ShowModal();
                delete WxBwFySetForm;
        }
        catch(...)
        {
                delete WxBwFySetForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::DBCheckBox2Click(TObject *Sender)
{
        if( DBCheckBox2->Checked == true ) {
                Button13->Enabled  = true;
                DBEdit3->Enabled = false;
                DBEdit6->Enabled = false;
                DBEdit9->Enabled = false;
                DBEdit14->Enabled = false;
                Label5->Enabled = false;
                Label8->Enabled = false;
                Label11->Enabled = false;
                Label17->Enabled = false;
                if( ADOQueryggxx->State == dsInsert ||ADOQueryggxx->State == dsEdit ) {
                        ADOQueryggxx->FieldByName("wxdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("smwxdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("zfwxdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("rywxdj")->AsFloat = 0;
                }
        } else {
                Button13->Enabled = false;
                DBEdit3->Enabled = true;
                DBEdit6->Enabled = true;
                DBEdit9->Enabled = true;
                DBEdit14->Enabled = true;
                Label5->Enabled = true;
                Label8->Enabled = true;
                Label11->Enabled = true;
                Label17->Enabled = true;
        }
}
//---------------------------------------------------------------------------

void __fastcall TGgSetForm::DBCheckBox1Click(TObject *Sender)
{
        if( ADOQueryggxx->State == dsInsert ||ADOQueryggxx->State == dsEdit ) {
                if(DBCheckBox1->Checked == true)
                        GroupBox2->Enabled = true;
                else {
                        GroupBox2->Enabled = false;
                        ADOQueryggxx->FieldByName("anzdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("wxdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("smwxdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("tsdj")->AsFloat = 0;
                        ADOQueryggxx->FieldByName("hfdj")->AsFloat = 0;
                }
        }
}
//---------------------------------------------------------------------------