002全局对象测试.7z

//--------------------------------------------------------------------------- #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"); } //---------------------------------------------------------------------------