sysmanage.cpp

校园刷卡系统

#include"PassWord.h"
#include"Query6_0.h"
#include"Query6_1.h"

#ifndef HIS
#include"../ClassHead/User.hpp"
#include"../ClassHead/Hospitalize.hpp"
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "SysManage.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

extern void HISQuery(TQuery*qPtr,String&s,bool b);
extern void logout(User*u,TForm*form,TQuery*query);
extern User*currentUser;

static SysManager currEmp;
static int recordNo;

static TQueryForm6_0* QForm0=NULL;
static TQueryForm6_1* QForm1=NULL;


bool isInteger(AnsiString str,bool minus)
{
bool b=false;
str=str.TrimLeft().TrimRight();
if(!str.IsEmpty())
{
int i=1,l=str.Length();
char c;
if(str[1]=='-'&&l>1&&minus==true)
{i=2;}
while(i<=l)
{
c=str[i];
if(c>47&&c<58)++i;
else break;
}
if(i>l)b=true;
}
return b;
}

static void ClearPage2(TSysManageForm*fp)
{
 fp->LabeledEdit1->Text="";
 fp->LabeledEdit2->Text="";
 fp->LabeledEdit3->Text="";
 fp->LabeledEdit4->Text="";
 fp->delFlag->ItemIndex=0;
 fp->userTypeList->ItemIndex=0;
}

void __fastcall TSysManageForm::clearcode()
{
LabeledEdit5->Text="";
LabeledEdit6->Text="";
LabeledEdit7->Text="";
LabeledEdit11->Text="";
LabeledEdit12->Text="";
LabeledEdit13->Text="";
}

void __fastcall TSysManageForm::clearcode2()
{
LabeledEdit11->Text="";
LabeledEdit12->Text="";
LabeledEdit13->Text="";
}

TSysManageForm *SysManageForm;
//---------------------------------------------------------------------------
__fastcall TSysManageForm::TSysManageForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::FormCreate(TObject *Sender)
{
QForm0=new TQueryForm6_0(this);
QForm1=new TQueryForm6_1(this);
}
//---------------------------------------------------------------------------


void __fastcall TSysManageForm::FormActivate(TObject *Sender)
{
currentUser->setStartTime();

if(currEmp.getEmpID()==0)
{
String name=currentUser->getName();
currEmp.setData(currentUser->getEmpID(),name);
showname->Caption=IntToStr(currentUser->getEmpID())+" "+name;
}
date->Text=Now().CurrentDate();
GroupBox2->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TSysManageForm::RadioGroup1Click(TObject *Sender)
{
TDataSet*DSPtr=DBGrid1->DataSource->DataSet;
recordNo=DBGrid1->DataSource->DataSet->RecNo;
int choice=RadioGroup1->ItemIndex;

if(choice==1)
{DBNavigator1->VisibleButtons=TButtonSet()<<nbPost<<nbCancel;}
else
{
DBGrid1->ReadOnly=true;
DBNavigator1->VisibleButtons=TButtonSet()<<nbFirst<<nbPrior<<nbNext<<nbLast;
switch(choice)
{
case 0:PageControl1->ActivePage=TabSheet2;
       break;
case 2:DBNavigator1->BtnClick(nbDelete);
       break;
case 3:
case 4:DSPtr->Edit();
       if(choice==3)DSPtr->FieldValues["delFlag"]="1";
       else         DSPtr->FieldValues["delFlag"]="0";
       DSPtr->Post();
       break;
case 5:ClearPage2(this);
       break;
}
}
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{
if(Button==nbPost)
{RadioGroup1->ItemIndex=-1;}
DBGrid1->ReadOnly=true;
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::DBGrid1CellClick(TColumn *Column)
{
int index=RadioGroup1->ItemIndex,recNo=DBGrid1->DataSource->DataSet->RecNo;
if(index==1&&recNo==recordNo)
{DBGrid1->ReadOnly=false;}
else
{DBGrid1->ReadOnly=true;}
}
//---------------------------------------------------------------------------


void __fastcall TSysManageForm::Button2Click(TObject *Sender)
{
if(isInteger(LabeledEdit1->Text,false))
{String s1=LabeledEdit1->Text,s2=LabeledEdit2->Text,s3=LabeledEdit3->Text;
String s4=date->Text,sql,valStr,typeStr="",delStr="0";
int sameName=0;
if(s1!=""&&s2!=""&&s3!="")
{
sql="select userName from UserK";
HISQuery(Query1,sql,true);
while(!Query1->Eof)
{
if(s3==Query1->FieldByName("userName")->AsString)
{sameName=1;break;}
else Query1->Next();
}
if(sameName==0)
{
if(delFlag->ItemIndex==1)delStr="1";
typeStr=userTypeList->Text+typeStr;
valStr=s1+",'"+s2+"','"+s3+"','"+"111111"+"','"+typeStr+"','"+delStr;
valStr=valStr+"','"+s4+"','','','')";
sql="insert into UserK(empID,name,userName,userPass,userType,delFlag,newDate,";
sql=sql+"useDate,startTime,endTime)values("+valStr;
HISQuery(Query1,sql,false);
Table1->Active=false;
Table1->Active=true;
ClearPage2(this);
}
else
{ShowMessage("该登录名已存在，清换名！");}
}
else
{ShowMessage("工号，姓名，登录名不能为空！");}
}
else
{ShowMessage("工号非法，必须是整型数！");}
}
//---------------------------------------------------------------------------


void __fastcall TSysManageForm::LabeledEdit5KeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
TField*f1,*f2;
if(Key==13)
{
if(LabeledEdit5->Text!="")
{
if(isInteger(LabeledEdit5->Text,false))
{
String s1=LabeledEdit5->Text;
String sql="select*from UserK where EmpID="+s1;
HISQuery(Query1,sql,true);
if(Query1->IsEmpty())
{ShowMessage("此工号不存在！");}
else
{
f1=Query1->FieldByName("name");
f2=Query1->FieldByName("UserType");
LabeledEdit6->Text=f1->AsString;
LabeledEdit7->Text=f2->AsString;
Query1->Close();
GroupBox2->Visible=true;
}
}
else
{ShowMessage("工号必须为整型数！");}
}
else{ShowMessage("工号不能为空！");}
}
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::Button3Click(TObject *Sender)
{
TField*f;
String s1=LabeledEdit5->Text;
String sql="select*from UserK where EmpID="+s1;
HISQuery(Query1,sql,true);
f=Query1->FieldByName("UserPass");
String s2=f->AsString;
String s3=LabeledEdit11->Text;
String s4=LabeledEdit12->Text;
String s5=LabeledEdit13->Text;
if(s3!=""&&s4!=""&&s5!="")
{
if(s3==s2)
{
if(s4!=s3)
{
if(s4==s5)
{
sql="update UserK set UserPass=("+LabeledEdit13->Text+") where EmpID='"+s1+"'";
HISQuery(Query1,sql,false);
{ShowMessage("密码已修改！");clearcode();}
GroupBox2->Visible=false;
}
else
{ShowMessage("新密码两次输入必须相同！");clearcode2();}
}
else
{ShowMessage("新密码不能与原密码相同！");clearcode2();}
}
else
{ShowMessage("原密码错误！");clearcode2();}
}
else
{ShowMessage("密码不能为空！");clearcode2();}
}

//---------------------------------------------------------------------------


void __fastcall TSysManageForm::N2Click(TObject *Sender)
{
logout(currentUser,this,PassWordForm->Query1);
}
//---------------------------------------------------------------------------


void __fastcall TSysManageForm::N4Click(TObject *Sender)
{
PassWordForm->Close();
}
//---------------------------------------------------------------------------



void __fastcall TSysManageForm::N6Click(TObject *Sender)
{
ShowMessage("开始工作时间："+currentUser->getStartTime().TimeString());
}
//---------------------------------------------------------------------------


void __fastcall TSysManageForm::Timer1Timer(TObject *Sender)
{
showtime->Caption=Now().CurrentDateTime();
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N8Click(TObject *Sender)
{
QForm0->Show();
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N10Click(TObject *Sender)
{
QForm1->Show();
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N11Click(TObject *Sender)
{
Application->HelpContext(22);
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N12Click(TObject *Sender)
{
Application->HelpContext(23);
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N13Click(TObject *Sender)
{
Application->HelpContext(24);
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N14Click(TObject *Sender)
{
Application->HelpContext(25);
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N15Click(TObject *Sender)
{
Application->HelpContext(26);
}
//---------------------------------------------------------------------------

void __fastcall TSysManageForm::N17Click(TObject *Sender)
{
Application->HelpContext(27);
}
//---------------------------------------------------------------------------