📄 adminman.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "AdminMan.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAdmin *frmAdmin;
//---------------------------------------------------------------------------
__fastcall TfrmAdmin::TfrmAdmin(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdmin::btn_CancelClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdmin::btn_EnterClick(TObject *Sender)
{
if((txt_Loginid->Text.IsEmpty())||(txt_Name->Text.IsEmpty())||(txt_Pass->Text.IsEmpty()))
{
Application->MessageBoxA("请输入完整的信息!","警告!",MB_OK);
return;
}
if(method==0)//新增管理员
{
ADODataSet1->CommandText="select * from tbAdmin where loginid='" + txt_Loginid->Text + "'";
ADODataSet1->Open();
if(!ADODataSet1->Eof)
{
Application->MessageBoxA("该用户已经存在!","警告!",MB_OK);
ADODataSet1->Close();
return;
}
ADODataSet1->Close();
ADOCommand1->CommandText="insert tbAdmin(loginid,name,pass) values('" + txt_Loginid->Text + "','"+txt_Name->Text + "','" + txt_Pass->Text +"')";
ADOCommand1->Execute();
Application->MessageBoxA("管理员账户添加成功!","成功!",MB_OK);
Close();
}
if(method==1)//修改管理员信息
{
ADOCommand1->CommandText="update tbAdmin set name='" + txt_Name->Text +"',pass='"+txt_Pass->Text+"' where loginid='"+id+"'";
ADOCommand1->Execute();
Application->MessageBoxA("管理员账户修改成功!","成功!",MB_OK);
Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdmin::FrmAdmin_OnShow(TObject *Sender)
{
if(method==1)
{
txt_Loginid->Text=id;
ADODataSet1->CommandText="select * from tbAdmin where Loginid='" + id +"'";
ADODataSet1->Open();
txt_Name->Text=ADODataSet1->FieldByName("name")->AsString;
txt_Pass->Text=ADODataSet1->FieldByName("pass")->AsString;
txt_Name->Text=txt_Name->Text.TrimRight();
txt_Pass->Text=txt_Pass->Text.TrimRight();
ADODataSet1->Close();
txt_Loginid->Enabled=false;
}
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -