khfwxx.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "ShFwMain.h"
#include "khfwxx.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TKhFwxxForm *KhFwxxForm;
//---------------------------------------------------------------------------
__fastcall TKhFwxxForm::TKhFwxxForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TKhFwxxForm::Button1Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------
void __fastcall TKhFwxxForm::FormCreate(TObject *Sender)
{
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add(MainForm->MyKhBh);
        ADOQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TKhFwxxForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ADOQuery1->Close();
}
//---------------------------------------------------------------------------