dm.cpp

是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.

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

#include <vcl.h>
#pragma hdrstop
#include "DM.h"
#include "Public.h"


#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmDM *frmDM;
//---------------------------------------------------------------------------
__fastcall TfrmDM::TfrmDM(TComponent* Owner)
        : TDataModule(Owner)
{
  /*  AnsiString  FileName,  Password;

    FileName=ExtractFilePath(ParamStr(0));
    Password="";

    Con->LoginPrompt  =  false;
    Con->ConnectionString  =
        "Provider  =  Microsoft.Jet.OLEDB.4.0;Data  Source  =  "  +  FileName  +  ";Persist  Security  Info=False;Jet  OLEDB:Database  Password=  "
        +  Password;   */




}
//---------------------------------------------------------------------------
void __fastcall TfrmDM::DataModuleCreate(TObject *Sender)
{

    try
    {

        Con->Connected = false;
        String  FileName;
        FileName=ExtractFileDir(Application->ExeName)+ "\\Data.mdb";

        String str;
        str="Provider=Microsoft.Jet.OLEDB.4.0;User ID=";
        str+="Admin";//数据库用户，admin
        str+=";Data Source=";
        str+=FileName;//数据库
        str+=";Jet OLEDB:Database Password=";
        str+=";Persist Security Info=False";

        Con->ConnectionString  = WideString(str);
        Con->Connected = true;
    }
    catch(Exception &Err)
    {
       Message("连接指定数据库失败!");
       Application->Terminate();
    }


    OpenSQL(QurClass,"select * from Class");
    OpenSQL(QurDefClass,"select * from DefClass");
    OpenSQL(QurDefVac,"select * from DefVac");
    OpenSQL(QurEmployee,"select a.EmployeeID,a.Code,a.Name,a.Card,b.DefClassName,c.DefVacName from (Employee a  "
        "left outer join DefClass b on a.DefClassID=b.DefClassID) "
        "Left outer join DefVac c on a.DefVacID=c.DefVacID");
    OpenSQL(QurSetClass," select a.DataID,a.BeginDate,a.EndDate,a.TimeMode,a.BeginTime,a.EndTime,a.Memo1,b.Name,c.ClassName from (SetClass a "
        " left outer join Employee b on a.EmployeeID=b.EmployeeID) "
        " left outer join Class c on a.ClassID=c.ClassID where a.AddClass=false ");
    OpenSQL(QurAddClass," select a.DataID,a.BeginDate,a.EndDate,a.TimeMode,a.BeginTime,a.EndTime,a.Memo1,b.Name,c.ClassName from (SetClass a "
        " left outer join Employee b on a.EmployeeID=b.EmployeeID) "
        " left outer join Class c on a.ClassID=c.ClassID where a.AddClass=true ");
    OpenSQL(QurSetVac," select b.Name,a.DataID,a.BeginDate,EndDate,TimeMode,BeginTime,EndTime,TimePos,Memo1 from SetVac a "
        " left outer join Employee b on a.EmployeeID=b.EmployeeID ");
    OpenSQL(QurLeave,"select a.LeaveID,a.BillNo,b.Name,a.LeaveDate,a.Memo1 from LeaveInfo a "
        "left outer join Employee b on a.EmployeeID=b.EmployeeID");

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