qingli.cpp

来自「一个用VC写的超市管理系统」· C++ 代码 · 共 61 行

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

#include <vcl.h>
#pragma hdrstop

#include "qingli.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfm_qingli *fm_qingli;
//---------------------------------------------------------------------------
__fastcall Tfm_qingli::Tfm_qingli(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfm_qingli::Button1Click(TObject *Sender)
{
    if(Application->MessageBoxA((lingshou->Caption+" 此删除不可恢复,请慎重!").c_str(),"警告",MB_OKCANCEL)==IDOK)
    {
        dm_data->cm_guest->CommandText="delete from xiaoshou";
        dm_data->cm_guest->Execute();
    }
}
//---------------------------------------------------------------------------

void __fastcall Tfm_qingli::Button2Click(TObject *Sender)
{
    if(Application->MessageBoxA((jinhuo->Caption+" 此删除不可恢复,请慎重!").c_str(),"警告",MB_OKCANCEL)==IDOK)
    {
        dm_data->cm_guest->CommandText="delete from xiaoshou";
        dm_data->cm_guest->Execute();
        dm_data->cm_guest->CommandText="delete from jinhuo";
        dm_data->cm_guest->Execute();
    }
}
//---------------------------------------------------------------------------

void __fastcall Tfm_qingli::Button3Click(TObject *Sender)
{
    if(Application->MessageBoxA((name->Caption+" 此删除不可恢复,请慎重!").c_str(),"警告",MB_OKCANCEL)==IDOK)
    {
        dm_data->cm_guest->CommandText="delete from xiaoshou";
        dm_data->cm_guest->Execute();
        dm_data->cm_guest->CommandText="delete from jinhuo";
        dm_data->cm_guest->Execute();
        dm_data->cm_guest->CommandText="delete from name";
        dm_data->cm_guest->Execute();
    }

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

void __fastcall Tfm_qingli::Button4Click(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------