login.~cpp

小型CRM客户关系管理

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

#include <vcl.h>
#pragma hdrstop

#include "Login.h"       //登录窗体头文件
#include "DataModule.h"  //数据模块头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Login *F_Login;
//---------------------------------------------------------------------------
__fastcall TF_Login::TF_Login(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TF_Login::FormCreate(TObject *Sender)
{   /*****用户登录窗体创建事件******/
    TStringList *DBList = new TStringList();  //TStringList是TString抽象类的执行类
    try{                                      //捕捉异常
      DM->Database->Session->GetDatabaseNames(DBList); //取得当前计算机上数据库别名列表
      CB_Login->Items = DBList;               //ComboBox的Items属性赋值
    }
    __finally{                                //没有异常抛出时执行finally{}里的代码
      delete DBList;                          //从内存中删除TStringList对象
    }
}
//---------------------------------------------------------------------------
void __fastcall TF_Login::BitBtn1Click(TObject *Sender)
{   /*****登录按钮单击事件******/
    DM->Database->Connected = false;          //挂起与数据库的连接
    DM->Database->AliasName = CB_Login->Text; //给Database组件赋别名
    DM->Database->Connected = true;           //启动与数据库的连接
    DM->T_Customer->Active = true;            //激活客户信息表
    DM->T_Order->Active = true;               //激活订单信息表
    DM->T_City->Active = true;                //激活城市信息表
    DM->T_State->Active = true;               //激活省份信息表
    DM->T_Country->Active = true;             //激活国家信息表
    DM->T_Count->Active = true;               //激活记录号计数数据表
    F_Login->Close();                         //关闭登录窗口
}
//---------------------------------------------------------------------------
void __fastcall TF_Login::BitBtn2Click(TObject *Sender)
{   /*****取消按钮单击事件******/
    Application->Terminate();                 //中止程序运行，退出运行环境
}
//---------------------------------------------------------------------------