//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
GetUser UserInfo;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ActionList1Change(TObject *Sender)
{
//
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
UserInfo.GetUserInfo(this->Edit1->Text);
if (this->Edit2->Text == UserInfo.szPassWord) {
ShowMessage(L"腎翹傖髡");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ActionList1Update(TBasicAction *Action, bool &Handled)
{
TAction *pAction = (TAction *) Action;
switch(pAction->Tag)
{
case 1:
pAction->Enabled = this->GetRole("1");
Handled = true;
break;
case 2:
pAction->Enabled = this->GetRole("2");
Handled = true;
break;
case 3:
pAction->Enabled = this->GetRole("3");
Handled = true;
break;
}
}
//---------------------------------------------------------------------------
bool TForm1::GetRole(String nTag)
{
String aa = UserInfo.szQXList;
if(aa.Pos(nTag))
return true;
else
return false;
}
void __fastcall TForm1::Action1Execute(TObject *Sender)
{
ShowMessage(L"粕等1");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Action2Execute(TObject *Sender)
{
ShowMessage(L"粕等2");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Action3Execute(TObject *Sender)
{
ShowMessage(L"粕等3");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1112Click(TObject *Sender)
{
ShowMessage(L"粕等3");
}
//---------------------------------------------------------------------------
没有合适的资源?快使用搜索试试~ 我知道了~
002全局对象测试.7z
共13个文件
h:4个
cpp:4个
dfm:2个
需积分: 0 0 下载量 143 浏览量
2022-01-03
21:28:44
上传
评论
收藏 28KB 7Z 举报
温馨提示
002全局对象测试.7z
资源详情
资源评论
资源推荐
收起资源包目录
002全局对象测试.7z (13个子文件)
Project1.cpp 1006B
Project1PCH1.h 40B
Project1.res 112KB
Unit2.h 1KB
Unit1.dfm 3KB
Unit3.cpp 1KB
Unit1.h 2KB
Unit2.cpp 573B
Unit1.cpp 2KB
Project1.cbproj 56KB
Unit2.dfm 583B
Unit3.h 407B
Project1.cbproj.local 3KB
共 13 条
- 1
非法请求
- 粉丝: 4
- 资源: 1
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0