customer_input.~cpp

来自「小型CRM客户关系管理」· ~CPP 代码 · 共 52 行

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

#include <vcl.h>
#pragma hdrstop

#include "Customer_Input.h"  //客户信息输入窗体头文件
#include "DataModule.h"      //数据模块头文件
#include "Customer.h"        //客户订单查看窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Cust_Input *F_Cust_Input;
//---------------------------------------------------------------------------
__fastcall TF_Cust_Input::TF_Cust_Input(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
                                          
void __fastcall TF_Cust_Input::FormCreate(TObject *Sender)
{   /*****客户信息输入窗体创建事件******/
//    DM->T_Count->RecNo = 1;    //设定记录号计数数据表指针指向第1条记录
    DM->T_Count->First();      //设定记录号计数数据表当前活动记录是第一个记录
    E_Customer_ID->Text = DM->T_Count->FieldValues["Count_Value"]+1;  //取得计数表中Count_Value字段第1条记录的值，并加1
}
//---------------------------------------------------------------------------
void __fastcall TF_Cust_Input::BitBtn1Click(TObject *Sender)
{   /*****确定按钮单击事件******/
    DM->T_Customer->Insert();  //进入插入记录环境
//    DM->T_Customer->FieldValues["Customer_ID"] = E_Customer_ID->Text;
    DM->T_Customer->Post();    //执行插入记录操作
    DM->T_Count->First();      //设定记录号计数数据表当前活动记录是第一个记录
//    DM->T_Count->RecNo = 1;    //设定计数表指针指向第1条记录
    DM->T_Count->Edit();       //进入编辑记录环境
    DM->T_Count->FieldValues["Count_Value"] = E_Customer_ID->Text;  //给计数表中Count_Value字段第1条记录的赋值
    DM->T_Count->Post();       //执行编辑记录操作
    F_Disp->Show();            //在将客户订单查看窗口显示在MDI窗口中最面前 
}
//---------------------------------------------------------------------------
void __fastcall TF_Cust_Input::BitBtn2Click(TObject *Sender)
{  /*****取消按钮单击事件******/
    F_Disp->Show();            //在将客户订单查看窗口显示在MDI窗口中最面前
}
//---------------------------------------------------------------------------
void __fastcall TF_Cust_Input::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
}
//---------------------------------------------------------------------------