📄 register.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Register.h" //用户注册窗体头文件
#include "Person.h" //主窗体头文件
#include "Crypt.cpp" //加密、解密程序文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Register *F_Register;
//---------------------------------------------------------------------------
__fastcall TF_Register::TF_Register(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TF_Register::BitBtn1Click(TObject *Sender)
{ /*****确定按钮点击事件******/
if(Edit1->Text.IsEmpty()||Edit3->Text!=Edit4->Text||ComboBox1->Text.IsEmpty()){
if(Edit1->Text.IsEmpty()){ //输入工号为空判断
ShowMessage("请输入用户工号");
Edit1->SetFocus();
}
if(Edit3->Text!=Edit4->Text){ //输入密码不一致判断
ShowMessage("输入新密码不一致,请您重新输入");
Edit3->SetFocus();
}
if(ComboBox1->Text.IsEmpty()){ //权限为空判断
ShowMessage("请您选择权限类型");
ComboBox1->SetFocus();
}
}
else{
ADOQ_Reg->Close();
ADOQ_Reg->SQL->Clear(); //清除SQL语句
ADOQ_Reg->SQL->Add("INSERT INTO Person_User"); //插入一条记录 (User_ID,User_Name,User_Password,User_Popedom)
ADOQ_Reg->SQL->Add("VALUES(:ID_Val,:Name_Val,:Pass_Val,:Pope_Val)"); //设置插入记录数据的四个参数ID_Val,Name_Val,Pass_Val,Pope_Val
ADOQ_Reg->Parameters->ParamByName("ID_Val")->Value = Edit1->Text; //四个参数分别赋值
ADOQ_Reg->Parameters->ParamByName("Name_Val")->Value = Edit2->Text;
ADOQ_Reg->Parameters->ParamByName("Pass_Val")->Value = Encrypt(Edit3->Text);
ADOQ_Reg->Parameters->ParamByName("Pope_Val")->Value = ComboBox1->Text;
ADOQ_Reg->Open(); //执行SQL语句]
ShowMessage("恭喜恭喜,您已经注册成功了");
F_Register->Close(); //关闭注册窗口,退出注册环境
}
}
//---------------------------------------------------------------------------
void __fastcall TF_Register::BitBtn2Click(TObject *Sender)
{
/*****取消按钮点击事件******/
F_Register->Close(); //关闭注册窗口,退出注册环境
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -