order_input.cpp

小型CRM客户关系管理

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

#include <vcl.h>
#pragma hdrstop

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