在Labwindows/CVI上封装ADO数据库

2万 · 2007-4-21 02:55

哈哈~~~跑题了~~~不过我说过暂不在其他版面发主帖~~~
同时也是我给我的两位CVI老师交的CVI菜鸟毕业水文...
#include "MSDATGRD.h"//数据库表格控件头文件
#include "ADODB.h"//ADO2.7头文件
#include <cvirte.h>
#include <cviauto.h>
#include "ADOToolkit.h"//菜农封装的ADO
#include <userint.h>
#include "test.h" //ADO测试程序头文件
#include <formatio.h>

static int panelHandle;
static CAObjHandle DataGrid1;
static CAObjHandle DataGrid2;
int main (int argc, char *argv[])
{
static HRESULT status;
int DataBase, Table1, Table2;
CA_InitActiveXThreadStyleForCurrentThread (0, COINIT_APARTMENTTHREADED);
    if (InitCVIRTE (0, argv, 0) == 0)
        return -1;  /* out of memory */
    if ((panelHandle = LoadPanel (0, "test.uir", PANEL)) < 0)
        return -1;
    GetObjHandleFromActiveXCtrl (panelHandle, PANEL_DATAGRID_1, &DataGrid1);//数据库表格控件1
    GetObjHandleFromActiveXCtrl (panelHandle, PANEL_DATAGRID_2, &DataGrid2);//数据库表格控件2
ADO_DataBaseInit ();//ADO初始化
status = ADO_OpenDataBase ("DSN=SampleDatabase", &DataBase);//打开数据库
if (status == S_OK)
{
  status = ADO_OpenTable ("SELECT * FROM  [myTable]", &Table1);//用SQL语句打开表1
  if (status == S_OK)
  {
   status = ADO_OpenTable ("myOtherTable", &Table2);//直接打开表2
   if (status == S_OK)
   {
    ADO_DataGrid (DataGrid1, Table1);//将Table1绑定到DataGrid1
    ADO_DataGrid (DataGrid2, Table2);//将Table1绑定到DataGrid1
   }
  }
}
DisplayPanel (panelHandle);
    RunUserInterface ();
ADO_DataBaseQuit ();//ADO退出(自动关闭数据库及表和释放系统资源)
    DiscardPanel (panelHandle);
    return 0;
}

哈哈~~~准备进一步完善,肯定比$598的SQL Toolkit好玩,快捷~~~

刚刚做CVI的函数面板菜鸟,准备继续完善.

要没有此功能,真该要倒塌了~~~

相关链接:http://www.**/blog/hotpower/23169/message.aspx

2万 · 2007-4-21 02:59

2万 · 2007-4-21 03:35

倒塌了~~~你和汽车人是不用说的~~~

不过工作量很大,我正构思用什么架构,因为C语言真是混球!!!真很难发挥"水能"~~~

工控的网友们整天责怪我在MCU/ARM/DSP上都采用喜欢C++,可是要变PC的软件.
C就真不是"东西"了~~~

好在CVI还有点良心,搞个函数面板.哈哈~~~真有点控件的感觉~~~

我喜欢Delphi就是满地的控件不花银两~~~

再者我准备用CVI做个"漂亮"的LPCISP通用软件.

同时也暂别Delphi,故这2天公开Delphi变的FMShell源码.

2万 · 2007-4-21 14:15

最近有些晕~~~

看了工控论坛有些人会几种OS或有些认为别人的程序不好而改编通过的,
就认为自己高高在上了~~~为人类做出了什么巨大贡献...

实在是晕呀!!!

天地之大,什么鸟没有???惟独菜鸟最纯真~~~

IT业包含的知识及技术不是任何人一个人能完成或解决的.

人都有不同的精力和能力,不会并不等于菜~~~只是他们没介入或不愿介入吧了.

但菜人发起进攻时,估计总有些人要趴下~~~

我晕之又晕~~~倒之又倒~~~

我相信成果永远属于虚心实干的鸟们~~

相关链接:http://www.**/blog/hotpower/23231/message.aspx