订房信息管理模块代码实现
2008-11-24 19:38:50 来源:WEB开发网下面进行代码设计。为订房信息管理对话框类添加一个数据集对象,对应订房信息记录集,代码如下:
_RecordsetPtr m_pRecordset;
在初始化函数中创建订房信息列表,代码如下:
BOOL COrderDlg::OnInitDialog()
{
CDialog::OnInitDialog();
m_strOrderDinner = _T("");//初始设置用餐标准为空
m_strOrderType = _T("");//初始设置登记类型为空
m_timeOrderD = 0;//初始设置订房日期为0
m_timeOrderT = 0;//初始设置订房时间为0
m_strOrderId = _T("");//初始设置订房编号为空
m_strOrderName = _T("");//初始设置登记人姓名为空
m_strOrderNums = _T("");//初始设置登记人证件号为空
m_nOrderPeople = 0;//初始设置入住人数为0
m_nOrderYajin = 0;//初始设置押金金额为0
m_timeOrderD = CTime::GetCurrentTime();//获取当前日期
m_timeOrderT = CTime::GetCurrentTime();//获取当前时间
//连接数据集
m_pRecordset.CreateInstance("ADODB.Recordset");
//打开订房信息表OrderInfo
m_pRecordset->Open("SELECT * FROM OrderInfo",_variant_t((IDispatch *)theApp.
m_pConnection,true),adOpenDynamic,adLockPessimistic,adCmdText);
//初始化数据显示控件
m_dgOrder.SetRefDataSource(NULL);
//设置数据源为订房信息表
m_dgOrder.SetRefDataSource((LPUNKNOWN)m_pRecordset);
m_dgOrder.SetColumnHeaders(2) ;
//设置列标题和列宽
_variant_t var;
var = long(0);
m_dgOrder.GetColumns().GetItem(var).SetCaption("编号");
m_dgOrder.GetColumns().GetItem(var).SetWidth(40);
var = long(1);
m_dgOrder.GetColumns().GetItem(var).SetCaption("类型");
m_dgOrder.GetColumns().GetItem(var).SetWidth(40);
var = long(2);
m_dgOrder.GetColumns().GetItem(var).SetCaption("登记人");
m_dgOrder.GetColumns().GetItem(var).SetWidth(40);
var = long(3);
m_dgOrder.GetColumns().GetItem(var).SetCaption("证件号");
m_dgOrder.GetColumns().GetItem(var).SetWidth(50);
var = long(4);
m_dgOrder.GetColumns().GetItem(var).SetCaption("人数");
m_dgOrder.GetColumns().GetItem(var).SetWidth(30);
var = long(5);
m_dgOrder.GetColumns().GetItem(var).SetCaption("入住日期");
m_dgOrder.GetColumns().GetItem(var).SetWidth(50);
var = long(6);
m_dgOrder.GetColumns().GetItem(var).SetCaption("入住时间");
m_dgOrder.GetColumns().GetItem(var).SetWidth(50);
var = long(7);
m_dgOrder.GetColumns().GetItem(var).SetCaption("订餐");
m_dgOrder.GetColumns().GetItem(var).SetWidth(30);
var = long(8);
m_dgOrder.GetColumns().GetItem(var).SetCaption("押金");
m_dgOrder.GetColumns().GetItem(var).SetWidth(30);
//更新列表
m_dgOrder.Refresh();
//更新界面
UpdateData(FALSE);
return TRUE;
}
- ››管理/var/spool/clientmqueue/下的大文件
- ››信息安全新观点 敦科尔克大撤退
- ››管理私有云,第 2 部分: 使用 WebSphere CloudBur...
- ››管理 Eclipse 环境:Eclipse 维护的神秘艺术
- ››管理私有云:WebSphere CloudBurst Appliance 命令...
- ››管理启动项 - Windows 7中的BCDEDIT命令
- ››管理Exchange 2003注意事项
- ››信息议程与“信息随需应变”
- ››管理好超级管理员帐户堵住系统漏洞
- ››管理数据中心资源池需要注意的事项
- ››信息系统安全风险评估应用:基础知识
- ››信息系统安全风险评估应用:评估过程
更多精彩
赞助商链接