用力控7.0的ADO组件和脚本把数据写入SQLSERVER

先在SQL SERVER中建立一个表Table_1，包含3个字段：

d_t 日期时间型

int_1 整数型

float_1 浮点型

1.在配置》关系数据源配置中，添加一个数据源，保证测试通过。

2.双击后台组件》双击ADO组件,在基本属性下的链接下选择建好的数据源，数据表名称选择SQL SERVER要插入数据的表Table_1。数据表管理下的数据绑定下，增加一个绑定，把SQL SERVER表的三个字段写到字段下，参数类型选择成各字段定义时的类型，变量名选择成已经在力控中建立的变量，其中str_1是字符串型，int_2是整数型，float_1是浮点型

设置的结果可以点击菜单查看》后台管理，在屏幕右边弹出的框内看到，本例子建立的后台组件为ADOMODULE

3.在全局脚本》动作》应用程序动作处双击，弹出脚本编辑器

在进入程序处，写#ADOModule.OpenDataBase(); 表示在启动力控运行界面时，打开数据库在退出程序处，写#ADOModule.CloseDataBase(); 表示在退出力控运行界面时，关闭数据库在程序运行周期执行栏下，设定周期为2000MS,脚本如下：

int_2=int_2+10;IF int_2>100 THEN int_2=0;ENDIF

float_2=float_2+15.0;IF float_2>100.0 THEN float_2=0.0;ENDIF

str_1="'"+IntToStr($Year,10)+"-"+ IntToStr($Month,10)+"-"+ IntToStr($Day,10);

str_1=str_1+" "+IntToStr($Hour,10)+":"+ IntToStr($Minute,10)+":"+ IntToStr($Second,10)+"'";

insert_1="INSERT INTO Table_1 VALUES("+str_1+","+IntToStr(int_2,10)+","+RealToStr(float_2,5,1)+")";

//#ADOModule.OpenRecordSet("select * from Table_1"); 本条及最后那条可加可不加

#ADOModule.ExcuteSQL(insert_1);

//#ADOModule.CloseRecordset();

搞定。

不难任意修改，把自己想要的数据写进关系数据库，方便自己编写报表，也方便改动历史数据。