adminmain.~cpp

C++BUILDER实现的高校毕业生就业信息管理系统 是大学本科的毕业设计论文

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

#include <vcl.h>
#pragma hdrstop

#include "AdminMain.h"
#include "AdminMan.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAdminMan *frmAdminMan;
//---------------------------------------------------------------------------
__fastcall TfrmAdminMan::TfrmAdminMan(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdminMan::FormCreate(TObject *Sender)
{
             RefreshAdmin();
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdminMan::RefreshAdmin()
{
          String Loginid;String Name;int i;
          lis_Admin->Clear();
          ADODataSet1->CommandText="select loginid,name from tbAdmin";
          ADODataSet1->Open();
          if(!ADODataSet1->Eof)
          {
          ADODataSet1->First();
          }
          while(!ADODataSet1->Eof)
          {
                Loginid=ADODataSet1->FieldByName("loginid")->AsString;
                Name=ADODataSet1->FieldByName("name")->AsString;
                for(i=Loginid.Length();i<30;++i)
                {
                        Loginid+=" ";
                }
                lis_Admin->Items->Add(Loginid+Name);
                ADODataSet1->Next();
          }
          ADODataSet1->Close();
}
void __fastcall TfrmAdminMan::btn_CancelClick(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmAdminMan::btn_AddClick(TObject *Sender)
{

        TfrmAdmin *fm=new TfrmAdmin(this);
        fm->method=0;
        fm->ShowModal();
        delete fm;
        RefreshAdmin();
}
//---------------------------------------------------------------------------

void __fastcall TfrmAdminMan::btn_UpdClick(TObject *Sender)
{
        if(lis_Admin->ItemIndex<0)
        {
                Application->MessageBoxA("请选择要修改的管理员账户！","警告！",MB_OK);
                return;
        }


        String STRid;
        STRid=lis_Admin->Items->Strings[lis_Admin->ItemIndex];
        STRid=STRid.SubString(0,30);
        STRid=STRid.Trim();
        TfrmAdmin *fm=new TfrmAdmin(this);
        fm->method=1;
        fm->id=STRid;
        fm->ShowModal();
        delete fm;
        RefreshAdmin();
}
//---------------------------------------------------------------------------

void __fastcall TfrmAdminMan::btn_DelClick(TObject *Sender)
{
        if(lis_Admin->ItemIndex<0)
        {
                Application->MessageBoxA("请选择要删除的管理员账户！","警告！",MB_OK);
                return;
        }
        String id;
        id=lis_Admin->Items->Strings[lis_Admin->ItemIndex];
        id=id.SubString(0,30);
        id=id.Trim();
        ADOCommand1->CommandText="delete from tbAdmin where loginid='" + id + "'";
        ADOCommand1->Execute();
        RefreshAdmin();
}
//---------------------------------------------------------------------------