main.cpp

小型CRM客户关系管理

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"            //MDI主窗体头文件
#include "DataModule.h"      //数据模块头文件
#include "Login.h"           //登录窗体头文件
#include "Customer_Input.h"  //客户信息输入窗体头文件
#include "Customer_Modify.h" //客户信息修改窗体头文件
#include "Customer_Qurey.h"  //客户信息查询窗体头文件
#include "Order_Input.h"     //订单信息输入窗体头文件
#include "Order_Modify.h"    //订单信息修改窗体头文件
#include "Client_Print.h"    //客户订单打印窗体头文件
#include "About.h"           //关于窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Main *F_Main;
//---------------------------------------------------------------------------
__fastcall TF_Main::TF_Main(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::FormShow(TObject *Sender)
{   /*****主窗体OnShow事件******/
    F_Login->ShowModal();  //打开客户管理系统登录窗口
    Timer1->Enabled = true; //开启定时器
    Timer1Timer(this);    //运行一次Timer1定时器间隔响应函数
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Cli_InputClick(TObject *Sender)
{   /*****客户输入菜单项单击事件******/
    F_Cust_Input->Show();    //将客户信息输入窗口显示在最前面       
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Cli_ModifyClick(TObject *Sender)
{   /*****客户修改菜单项单击事件******/
    F_Cust_Modify->ShowModal();  //显示客户信息修改窗口
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Cli_DelClick(TObject *Sender)
{   /*****客户删除菜单项单击事件******/
    DM->T_Customer->Delete();  //删除一条记录       
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Cli_QueryClick(TObject *Sender)
{   /*****客户查询菜单项单击事件******/
    F_Cust_Query->ShowModal();   //显示客户信息查询窗口
    if(!F_Cust_Query->Edit1->Text.IsEmpty()){  //客户编号输入框为空判断
    DM->T_Customer->Filter = "Customer_ID="+F_Cust_Query->Edit1->Text; //设置过渡条件
    DM->T_Customer->Filtered = true;  //激活过滤器
    }
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Cli_PrintClick(TObject *Sender)
{   /*****客户打印菜单项单击事件******/
    F_Client_Print->QuickRep1->Preview();  //打印预览
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Ord_InputClick(TObject *Sender)
{   /*****订单输入菜单项单击事件******/
    F_Order_Input->Show();   //将订单信息输入窗口显示在最前面
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Ord_ModiClick(TObject *Sender)
{   /*****订单修改菜单项单击事件******/
    F_Order_Modify->ShowModal();  //显示订单信息修改窗口
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Ord_DelClick(TObject *Sender)
{   /*****订单删除菜单项单击事件******/
    DM->T_Order->Delete();  //删除一条订单记录
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Rank_CodeClick(TObject *Sender)
{   /*****按编号菜单项单击事件******/
    DM->T_Customer->IndexFieldNames = "Customer_ID";  //以客户编号为索引字段
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Rand_ComClick(TObject *Sender)
{   /*****按公司菜单项单击事件******/
    DM->T_Customer->IndexFieldNames = "Customer_Company";  //以公司名称为索引字段
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Rand_CityClick(TObject *Sender)
{   /*****按城市菜单项单击事件******/
    DM->T_Customer->IndexFieldNames = "Customer_City";  //以公司所在城市为索引字段
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::M_Help_AboutClick(TObject *Sender)
{   /*****关于...菜单项单击事件******/
    AboutBox->ShowModal();  //显示关于窗口
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::Timer1Timer(TObject *Sender)
{   /*****Timer1事件器间隔响应事件******/
    SYSTEMTIME Date;      //Windows API中用来保存由系统时间获取函数(GetSystemTime)获取的系统时间值
    GetSystemTime(&Date); //获取系统时间
    //另外C++ Builder提供有专门函数来提供系统当前时间，如Now()提供当前时刻的时间
    StatusBar1->Panels->Items[1]->Text = IntToStr(Date.wYear)+"年"+IntToStr(Date.wMonth)+"月"+IntToStr(Date.wDay)+"日"; //状态条上显示当前日期
    //IntToStr()是将整数转换为字符串函数
}
//---------------------------------------------------------------------------

void __fastcall TF_Main::FormCreate(TObject *Sender)
{
//    F_Login->ShowModal();   //打开客户管理系统登录窗口
//    Timer1->Enabled = true; //开启定时器
}
//---------------------------------------------------------------------------