//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "fwserver_TLB.h"
#include "quanxianserverImpl.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
IquanxianserverDisp fwserv;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::dengluClick(TObject *Sender)
{
/*
// DataModule2->DCOMConnection1->Connected = true;
if(yonghuming->Text!=""&& mima->Text!="" )
{
DataModule2->ClientDataSet1->Active=false;
DataModule2->ClientDataSet1->Params->ParamByName("username")->Value=yonghuming->Text;
DataModule2->ClientDataSet1->Params->ParamByName("yonghumima")->Value=mima->Text;
DataModule2->ClientDataSet1->Active=true;
/* AnsiString name1 = "Select * from memberdata where Name =";
name1 += yonghuming->Text;
//AnsiString mima1 = "Select * from memberdata where Name =";
// mima1 += mima->Text;
if(DataModule2->ClientDataSet1->Active)
DataModule2->ClientDataSet1->Close();
DataModule2->ClientDataSet1->CommandText = name1;
//DataModule2->ClientDataSet1->CommandText = mima1;
try
{
DataModule2->ClientDataSet1->Open();
}
catch(...)
{
Application->MessageBoxA(" 错误～～！","",MB_OK);
return;
}
if(DataModule2->ClientDataSet1->RecordCount>0)
{
if(DataModule2->ClientDataSet1->FieldByName("Quanxian")->Value==1)
{
Form1->Hide();
Form3->ShowModal();
}
if(DataModule2->ClientDataSet1->FieldByName("Quanxian")->Value==2)
{
Form1->Hide();
Form4->ShowModal();
}
if(DataModule2->ClientDataSet1->FieldByName("Quanxian")->Value==3)
{
Form1->Hide();
Form5->ShowModal();
}
}
else
{
//表示没有该用户名
MessageBox(NULL,"用户名不存在请从新输入","登录数据库错误",MB_OK);
yonghuming->Text="";
yonghuming->SetFocus();
mima->Text = "";
ModalResult = mrNone;
}
}
else
{
MessageBox(NULL,"请输入用户名和密码","登录数据库错误",MB_OK);
yonghuming->Text="";
yonghuming->SetFocus();
mima->Text = "";
ModalResult = mrNone;
} */
AnsiString str;
DataModule2->DCOMConnection1->Connected = true;
if(!fwserv.IsBound())
fwserv.Bind(DataModule2->DCOMConnection1->GetServer());//获得接口；
//midasserv->Query1->First();
str = fwserv->yanzheng(WideString(yonghuming->Text),WideString(mima->Text));
//ShowMessage(str+"123132");
if(str=="1")
{ Form1->Hide();
Form3->Show();
}
else if(str=="2")
{ Form1->Hide();
Form4->Show();
}
else if(str=="3")
{Form1->Hide();
Form5->Show();
}
else if(str=="4")
{ ShowMessage("请输入完整的用户名和密码！");
yonghuming->Text="";
yonghuming->SetFocus();
mima->Text = "";
}
else if(str=="5")
{
ShowMessage("输入的用户名不存在！请重新输入！");
yonghuming->Text="";
yonghuming->SetFocus();
mima->Text = "";
}
else if(str=="6")
{
ShowMessage("输入的密码错误！请重新输入！");
mima->SetFocus();
mima->Text="";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tuichuClick(TObject *Sender)
{
exit(EXIT_SUCCESS);
}
//---------------------------------------------------------------------------
权限管理系统 C/S模式C++ 完整程序，源代码 （144个子文件） 
Unit1.cpp.bak 3KB 权限管理.bpg 948B quanxianguanli.bpr 5KB Project1.bpr 4KB Project1.bpr 4KB client.bpr 4KB Unit1.cpp 4KB quanxianserverImpl.cpp 3KB quanxianserverImpl.cpp 3KB Project1_TLB.cpp 2KB fwserver_TLB.cpp 2KB fwserver_TLB.cpp 2KB quanxianguanli.cpp 2KB Project1.cpp 2KB client.cpp 1KB Project1.cpp 1KB Unit5.cpp 1KB Unit4.cpp 963B Unit3.cpp 788B Unit2.cpp 650B quanxianguanli_ATL.cpp 568B quanxianguanli_ATL.cpp 568B Project1_ATL.cpp 562B fwUnit1.cpp 525B fwUnit1.cpp 525B Unit1.cpp 523B memberdata.DB 4KB xueshengxinxi.db 4KB fwUnit1.ddp 51B Unit4.ddp 51B Unit2.ddp 51B Unit5.ddp 51B Unit3.ddp 51B quanxianserverImpl.ddp 51B Unit1.ddp 51B Unit1.ddp 51B Unit5.dfm 2KB Unit1.dfm 2KB Unit4.dfm 2KB Unit2.dfm 1KB Unit3.dfm 1KB quanxianserverImpl.dfm 1KB fwUnit1.dfm 758B Unit1.dfm 755B
quanxianguanli.exe 165KB Project1.exe 161KB client.exe 48KB Project1.exe 45KB fwserver_TLB.h 19KB fwserver_TLB.h 19KB Project1_TLB.h 19KB quanxianserverImpl.h 3KB quanxianserverImpl.h 3KB Unit5.h 1KB Unit2.h 1KB Unit4.h 1KB Unit3.h 1KB Unit1.h 1KB fwUnit1.h 779B fwUnit1.h 779B Unit1.h 775B quanxianguanli_ATL.h 769B quanxianguanli_ATL.h 769B Project1_ATL.h 757B Unit1.obj 474KB quanxianguanli.obj 392KB Project1.obj 386KB Unit5.obj 335KB Unit4.obj 334KB Unit3.obj 254KB Unit2.obj 212KB quanxianserverImpl.obj 160KB quanxianguanli_ATL.obj 153KB Project1_ATL.obj 153KB fwUnit1.obj 56KB Unit1.obj 56KB Project1_TLB.obj 51KB fwserver_TLB.obj 51KB Project1.obj 18KB client.obj 18KB memberdata.PX 4KB xueshengxinxi.PX 4KB Project1.res 876B quanxianguanli.res 876B client.res 876B Project1.res 876B quanxianguanli.tds 3.31MB client.tds 2.63MB Project1.tds 2.5MB Project1.tlb 2KB fwProject1.tlb 2KB fwserver.tlb 2KB fwProject_TLB.tlb 2KB 权限管理.~bpg 954B quanxianguanli.~bpr 5KB Project1.~bpr 4KB Project1.~bpr 4KB client.~bpr 4KB Unit1.~cpp 4KB quanxianserverImpl.~cpp 3KB共 144 条
- 1
- 2
- 1
- 2
- 3
- 4
- 5
前往页