getfwry.cpp

来自「售后服务系统优质的售后服务是企业生存和市场竞争的保障」· C++ 代码 · 共 45 行

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "GetFwRy.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TGetFwRyForm *GetFwRyForm;
//---------------------------------------------------------------------------
__fastcall TGetFwRyForm::TGetFwRyForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TGetFwRyForm::Button2Click(TObject *Sender)
{
        MainForm->MyGsFl = "0000";
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TGetFwRyForm::FormCreate(TObject *Sender)
{
        ADOQueryryxx->Open();
}
//---------------------------------------------------------------------------
void __fastcall TGetFwRyForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQueryryxx->Close();
}
//---------------------------------------------------------------------------
void __fastcall TGetFwRyForm::Button1Click(TObject *Sender)
{
        if(DBLookupComboBox1->Text.Trim()=="" ) {
                Application->MessageBox("请指定执行人员","错误",MB_OK+MB_ICONERROR);
                Abort();
        }
        MainForm->MyGsFl = DBLookupComboBox1->KeyValue;
        MainForm->MyGsPp = DBLookupComboBox1->Text;
        Close();
}
//---------------------------------------------------------------------------