dispensarymanage.cpp

校园刷卡系统

#include"PassWord.h"
#include"Query5_1.h"
#include"Query5_2.h"


#ifndef HIS
#include"../ClassHead/User.hpp"
#include"../ClassHead/Hospitalize.hpp"
#endif


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

#include <vcl.h>
#pragma hdrstop

#include "DispensaryManage.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 GoodsManage* currEmp=NULL;
static int recordNo;

static TQueryForm5_1* MedQForm1=NULL;
static TQueryForm5_2* MedQForm2=NULL;


TDispensaryManageForm *DispensaryManageForm;
//---------------------------------------------------------------------------
__fastcall TDispensaryManageForm::TDispensaryManageForm(TComponent* Owner)
        : TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TDispensaryManageForm::FormCreate(TObject *Sender)
{
 MedQForm1=new TQueryForm5_1(this);
 MedQForm2=new TQueryForm5_2(this);
 currEmp=new GoodsManage();
}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::FormActivate(TObject *Sender)
{
String sql,s1,s2,s3;
currentUser->setStartTime();
if(currEmp->getEmpID()==0)
{
currEmp->setData(currentUser->getEmpID());
s1=IntToStr(currentUser->getEmpID());
showname->Caption=s1+"  "+currentUser->getName();
}
PageControl1->ActivePage=TabSheet1;
RadioGroup1->ItemIndex=0;
PageControl1->ActivePage=TabSheet1;
}
//---------------------------------------------------------------------------


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

void __fastcall TDispensaryManageForm::PageControl1Change(TObject *Sender)
{

if(PageControl1->ActivePage==TabSheet1)
{RadioGroup1->ItemIndex=3;}
if(PageControl1->ActivePage==TabSheet2)
{RadioGroup2->ItemIndex=-1;}

}
//---------------------------------------------------------------------------



void __fastcall TDispensaryManageForm::RadioGroup1Click(TObject *Sender)
{

int index=RadioGroup1->ItemIndex;
String sql,s;
TDataSet* DSPtr=DBGrid1->DataSource->DataSet;
if(DSPtr!=NULL)
{
if(index>0)WarningLabel->Visible=false;
switch(index)
{
case 0:N7Click(this);break;
case 1:sql="select * from StorageGoods where ";
       s=DSPtr->FieldByName("factory")->AsString;
       sql+="factory='"+s+"'";
       HISQuery(Query1,sql,true);
       break;
case 2:sql="select*from StorageGoods";
       HISQuery(Query1,sql,true);

}
}

}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::RadioGroup2Click(TObject *Sender)
{
int index=RadioGroup2->ItemIndex;
recordNo=DBGrid2->DataSource->DataSet->RecNo;
DBNavigator2->VisibleButtons=TButtonSet()<<nbFirst<<nbPrior<<nbNext<<nbLast;
switch(index)
{
case 0:DBNavigator2->VisibleButtons=TButtonSet()<<nbPost<<nbCancel;
       DBNavigator2->BtnClick(nbInsert);
       break;
case 1:DBNavigator2->VisibleButtons=TButtonSet()<<nbPost<<nbCancel;
       DBNavigator2->BtnClick(nbEdit);
       break;
case 2:DBNavigator2->BtnClick(nbDelete);
       break;
case 3:
case 4:Edit1->Enabled=true;
       if(index==3)Label3->Caption="请输入出库数量： ";
       else Label3->Caption="请输入入库数量： ";
       break;
case 5:RadioGroup2->ItemIndex=-1;
}

}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::DBNavigator1Click(TObject *Sender,
      TNavigateBtn Button)
{

if(Button==nbPost)
{RadioGroup2->ItemIndex=-1;}
DBGrid2->ReadOnly=true;

}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::DBGrid2CellClick(TColumn *Column)
{

int index=RadioGroup2->ItemIndex,recNo=DBGrid2->DataSource->DataSet->RecNo;
if((index==0&&(recNo==recordNo||recNo==-1))||(index==1&&recNo==recordNo))
{DBGrid2->ReadOnly=false;}
else
{DBGrid2->ReadOnly=true;}

}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::Edit1KeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{

TDataSet* DSPtr=DBGrid2->DataSource->DataSet;
int index=RadioGroup2->ItemIndex;

if((index==3||index==4)&&Key==13)
{
int amount=DSPtr->FieldByName("amount")->AsInteger;
int least=DSPtr->FieldByName("least")->AsInteger,num=Edit1->Text.ToInt();

if(RadioGroup2->ItemIndex==3)
{
if(amount-num<least)
{ShowMessage("该出库量使得库存量处于警戒线，只能出库："+IntToStr(amount));}
else
{amount-=num;}

}

else if(RadioGroup2->ItemIndex==4)
{amount+=num;}
DSPtr->Edit();
DSPtr->FieldValues["amount"]=amount;
DSPtr->Post();
Query1->Active=false;
Query1->Active=true;

RadioGroup2->ItemIndex=-1;
Label3->Caption="  ";
Edit1->Enabled=false;
}

}
//---------------------------------------------------------------------------



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



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

void __fastcall TDispensaryManageForm::N7Click(TObject *Sender)
{
String sql="select*from StorageGoods where amount<=least";
PageControl1->ActivePage=TabSheet1;
WarningLabel->Visible=true;
HISQuery(Query1,sql,true);
if(Query1->IsEmpty())
{ShowMessage("当前无处于最低库存量的商品。");}
}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::N9Click(TObject *Sender)
{
MedQForm1->Show();
}
//---------------------------------------------------------------------------

void __fastcall TDispensaryManageForm::N10Click(TObject *Sender)
{
DispensaryManageForm->Visible=false;
MedQForm2->Show();
}
//---------------------------------------------------------------------------

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



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

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

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

void __fastcall TDispensaryManageForm::N16Click(TObject *Sender)
{
Application->HelpContext(19);
}
//---------------------------------------------------------------------------

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


void __fastcall TDispensaryManageForm::N18Click(TObject *Sender)
{
Application->HelpContext(21);
}
//---------------------------------------------------------------------------

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