shfwmain.~cpp

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

void __fastcall TMainForm::SpeedButton4Click(TObject *Sender)
{
       TPassForm *PassForm;
       try
       {
         PassForm = new TPassForm(Application);
         PassForm->ShowModal();
         delete PassForm;
       }
       catch(...)
       {
         delete PassForm;
         Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
       }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N14Click(TObject *Sender)
{
        TGetFwclQdForm *GetFwclQdForm;
        try
        {
                GetFwclQdForm = new TGetFwclQdForm(Application);
                GetFwclQdForm->ShowModal();
                delete GetFwclQdForm;
        }
        catch(...)
        {
                delete GetFwclQdForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::N12Click(TObject *Sender)
{
        TGysJsForm *GysJsForm;
        try
        {
                GysJsForm = new TGysJsForm(Application);
                GysJsForm->ShowModal();
                delete GysJsForm;
        }
        catch(...)
        {
                delete GysJsForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N13Click(TObject *Sender)
{
        TFwRyJsForm *FwRyJsForm;
        try
        {
                FwRyJsForm = new TFwRyJsForm(Application);
                FwRyJsForm->ShowModal();
                delete FwRyJsForm;
        }
        catch(...)
        {
                delete FwRyJsForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }

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

void __fastcall TMainForm::N17Click(TObject *Sender)
{
        TAboutBox *AboutBox;
        try
        {
                AboutBox = new TAboutBox(Application);
                AboutBox->ShowModal();
                delete AboutBox;
        }
        catch(...)
        {
                delete AboutBox;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N18Click(TObject *Sender)
{
        TPjSetForm *PjSetForm;
        try
        {
                PjSetForm = new TPjSetForm(Application);
                PjSetForm->ShowModal();
                delete PjSetForm;
        }
        catch(...)
        {
                delete PjSetForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N23Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N19Click(TObject *Sender)
{
        TFwSlForm *FwSlForm;
        try
        {
                FwSlForm = new TFwSlForm(Application);
                FwSlForm->ShowModal();
                delete FwSlForm;
        }
        catch(...)
        {
                delete FwSlForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N24Click(TObject *Sender)
{
        TKhGlForm *KhGlForm;
        try
        {
                KhGlForm = new TKhGlForm(Application);
                KhGlForm->ShowModal();
                delete KhGlForm;
        }
        catch(...)
        {
                delete KhGlForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::AllTrim( String str, char *tmp)
{
        char *p,*pp;
        int len;
        str.Trim();
        len = str.Length();
        strcpy(tmp,str.c_str());
        tmp[len]='\0';
        for(p=tmp,pp=tmp;*p!='\0';) {
                if(*p==' ')
                        p++;
                else {
                        *pp = *p;
                         pp++;
                         p++;
                }
        }
        *pp='\0';
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N20Click(TObject *Sender)
{
        TFwPgForm *FwPgForm;
        try
        {
                FwPgForm = new TFwPgForm(Application);
                FwPgForm->ShowModal();
                delete FwPgForm;
        }
        catch(...)
        {
                delete FwPgForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N21Click(TObject *Sender)
{
        FwJsForm->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N22Click(TObject *Sender)
{
        TFwHfclForm *FwHfclForm;
        try
        {
                FwHfclForm = new TFwHfclForm(Application);
                FwHfclForm->ShowModal();
                delete FwHfclForm;
        }
        catch(...)
        {
                delete FwHfclForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }       
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N15Click(TObject *Sender)
{
        TSetFwQkxxForm *SetFwQkxxForm;
        try
        {
                SetFwQkxxForm = new TSetFwQkxxForm(Application);
                SetFwQkxxForm->ShowModal();
                delete SetFwQkxxForm;
        }
        catch(...)
        {
                delete SetFwQkxxForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N26Click(TObject *Sender)
{
        TGysSetForm *GysSetForm;
        try
        {
                GysSetForm = new TGysSetForm(Application);
                GysSetForm->ShowModal();
                delete GysSetForm;
        }
        catch(...)
        {
                delete GysSetForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N2Click(TObject *Sender)
{
        TGgSetForm *GgSetForm;
        try
        {
                GgSetForm = new TGgSetForm(Application);
                GgSetForm->ShowModal();
                delete GgSetForm;
        }
        catch(...)
        {
                delete GgSetForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N25Click(TObject *Sender)
{
        TPjclMxForm *PjclMxForm;
        try
        {
                PjclMxForm = new TPjclMxForm(Application);
                PjclMxForm->ShowModal();
                delete PjclMxForm;
        }
        catch(...)
        {
                delete PjclMxForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N27Click(TObject *Sender)
{
        TFwFxForm *FwFxForm;
        try
        {
                FwFxForm = new TFwFxForm(Application);
                FwFxForm->ShowModal();
                delete FwFxForm;
        }
        catch(...)
        {
                delete FwFxForm;
                Application->MessageBox("运行出现错误！","警告",MB_OK+MB_ICONWARNING);
        }
}
//---------------------------------------------------------------------------