utadmin.cpp

来自「库存管理系统源码」· C++ 代码 · 共 89 行

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

#include <vcl.h>
#pragma hdrstop

#include "utAdmin.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmAdmin *fmAdmin;
//---------------------------------------------------------------------------
__fastcall TfmAdmin::TfmAdmin(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button1Click(TObject *Sender)
{
    QryAdmin->First();    
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button3Click(TObject *Sender)
{
    QryAdmin->Next();    
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button6Click(TObject *Sender)
{
    QryAdmin->Delete();    
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button7Click(TObject *Sender)
{
    QryAdmin->Edit();    
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button2Click(TObject *Sender)
{
    QryAdmin->Prior();
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button4Click(TObject *Sender)
{
    QryAdmin->Last();
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button5Click(TObject *Sender)
{
    QryAdmin->Insert();
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button8Click(TObject *Sender)
{
    QryAdmin->Post();
}
//---------------------------------------------------------------------------
void __fastcall TfmAdmin::Button10Click(TObject *Sender)
{
    AnsiString sSql;
    sSql = "select * from 管理员 where " + ComboBox1->Text + "  "
        + ComboBox2->Text + " '" + Edit1->Text + "'" ;
    QryAdmin->Active = FALSE;
    QryAdmin->SQL->Clear();
    QryAdmin->SQL->Add(sSql);
    QryAdmin->Active = TRUE;
    Edit1->Text= IntToStr(QryAdmin->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall TfmAdmin::Button9Click(TObject *Sender)
{
    AnsiString sSql;
    sSql = "select * from 管理员";
    QryAdmin->Active = FALSE;
    QryAdmin->SQL->Clear();
    QryAdmin->SQL->Add(sSql);
    QryAdmin->Active = TRUE;
    Edit1->Text= IntToStr(QryAdmin->RecordCount);
}
//---------------------------------------------------------------------------

void __fastcall TfmAdmin::Button11Click(TObject *Sender)
{
   QryAdmin->Cancel();
}
//---------------------------------------------------------------------------