📄 my_view.prg
字号:
Close all database
Close all data
*****创建远程视图
If messagebox("确实创建远程视图吗？ ",4+32+256,"警告")<>6
Retu
Endif
Set talk off
Set safe off
If dbused("wenjian")
Set database to "wenjian"
Close database
Endif
Sele 0
Open database data\wenjian exclusive
MY_USERID="sa"
MY_PASSWORD=""
MY_DATASOURCE="my_cswdglsql"
********创建远程数据连接
handle=sqlconnect(my_datasource,my_userid,my_password)
If handle<0
Messagebox("未连接到数据服务器,退出！ ",0+48+0,"警告")
Close all data
Retu
Endif
sqldisconnect(handle)
Set database to "wenjian"
Close database
***********************************************************
Open database data\wenjian exclusive
If empty(MY_PASSWORD)
Create connection "远程数据" datasource &my_datasource userid &my_userid password ""
Else
Create connection "远程数据" datasource &my_datasource userid &my_userid password &my_password
Endif
DBSetProp('远程数据', 'Connection', 'Asynchronous', .F.)
DBSetProp('远程数据', 'Connection', 'BatchMode', .T.)
DBSetProp('远程数据', 'Connection', 'Comment', '')
DBSetProp('远程数据', 'Connection', 'DispLogin', 3)
DBSetProp('远程数据', 'Connection', 'ConnectTimeOut', 20)
DBSetProp('远程数据', 'Connection', 'DispWarnings', .F.)
DBSetProp('远程数据', 'Connection', 'IdleTimeOut', 60)
DBSetProp('远程数据', 'Connection', 'QueryTimeOut', 60)
DBSetProp('远程数据', 'Connection', 'Transactions', 1)
DBSetProp('远程数据', 'Connection', 'Database', '')
Wait wind " 正在创建远程视图，请稍候... " nowait
***********(shouwen_bm)
Create sql view shouwen_bm ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen shouwen;
WHERE shouwen.大类 = ?mydalei;
order by shouwen.序号
DBSetProp("shouwen_bm.序号","field","keyfield",.T.)
DBSetProp("shouwen_bm","view","sendupdates",.T.)
DBSetProp("shouwen_bm","view","comparememo",.F.)
DBSetProp('shouwen_bm', 'View', 'FetchSize', -1)
DBSetProp('shouwen_bm', 'View', 'FetchAsNeeded', .F.)
DBSetProp('shouwen_bm', 'View', 'FetchMemo', .F.)
*********创建字段默认值
DBSetProp("shouwen_bm.my_id","field","keyfield",.T.)
DBSetProp("shouwen_bm.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_bm.页数","Field","DefaultValue",'2')
DBSetProp("shouwen_bm.份数","Field","DefaultValue",'1')
DBSetProp("shouwen_bm.登记日期","Field","DefaultValue",'date()')
DBSetProp("shouwen_bm.文件日期","Field","DefaultValue",'date()-1')
DBSetProp("shouwen_bm.密级","Field","DefaultValue",'"非密"')
DBSetProp("shouwen_bm.主抄送","Field","DefaultValue",'"普发"')
DBSetProp("shouwen_bm.缓急程度","Field","DefaultValue",'"缓"')
DBSetProp("shouwen_bm.状态","Field","DefaultValue",'"待拟办"')
*********改变数据类型
DBSetProp("shouwen_bm.登记日期","Field","datatype",'D')
DBSetProp("shouwen_bm.文件日期","Field","datatype",'D')
DBSetProp("shouwen_bm.办文期限","Field","datatype",'D')
DBSetProp("shouwen_bm.承收日期","Field","datatype",'D')
DBSetProp("shouwen_bm.处理日期","Field","datatype",'D')
DBSetProp("shouwen_bm.归档日期","Field","datatype",'D')
DBSetProp("shouwen_bm.移交时间","Field","datatype",'D')
***********收文办理
***********(shouwen_banli)
Create sql view shouwen_banli ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
WHERE Shouwen.状态 <> ?zhuangtai;
AND Shouwen.登记日期 >= ?qsdate;
AND Shouwen.登记日期 <= ?jsdate;
AND Shouwen.大类 = ?mydalei;
order by shouwen.序号
DBSetProp("shouwen_banli.序号","field","keyfield",.T.)
DBSetProp("shouwen_banli","view","sendupdates",.T.)
DBSetProp('shouwen_banli', 'View', 'FetchSize', -1)
DBSetProp("shouwen_banli.my_id","field","keyfield",.T.)
DBSetProp("shouwen_banli.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_banli.登记日期","Field","datatype",'D')
DBSetProp("shouwen_banli.文件日期","Field","datatype",'D')
DBSetProp("shouwen_banli.办文期限","Field","datatype",'D')
DBSetProp("shouwen_banli.承收日期","Field","datatype",'D')
DBSetProp("shouwen_banli.处理日期","Field","datatype",'D')
DBSetProp("shouwen_banli.归档日期","Field","datatype",'D')
DBSetProp("shouwen_banli.移交时间","Field","datatype",'D')
***********指定序号收文记录
***********(shouwen_myxuhao)
Create sql view shouwen_myxuhao ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
WHERE Shouwen.序号 = ?xuhao
DBSetProp("shouwen_myxuhao.序号","field","keyfield",.T.)
DBSetProp("shouwen_myxuhao","view","sendupdates",.T.)
DBSetProp("shouwen_myxuhao.my_id","field","keyfield",.T.)
DBSetProp("shouwen_myxuhao.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_myxuhao.登记日期","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.文件日期","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.办文期限","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.承收日期","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.处理日期","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.归档日期","Field","datatype",'D')
DBSetProp("shouwen_myxuhao.页数","Field","DefaultValue",'2')
DBSetProp("shouwen_myxuhao.份数","Field","DefaultValue",'1')
DBSetProp("shouwen_myxuhao.登记日期","Field","DefaultValue",'date()')
DBSetProp("shouwen_myxuhao.文件日期","Field","DefaultValue",'date()-1')
DBSetProp("shouwen_myxuhao.密级","Field","DefaultValue",'"非密"')
DBSetProp("shouwen_myxuhao.主抄送","Field","DefaultValue",'"普发"')
DBSetProp("shouwen_myxuhao.缓急程度","Field","DefaultValue",'"缓"')
DBSetProp("shouwen_myxuhao.状态","Field","DefaultValue",'"待拟办"')
***********收文拟办
***********(shouwen_niban)
Create sql view shouwen_niban ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
WHERE Shouwen.状态 = ?zhuangtai;
AND Shouwen.大类 = ?mydalei;
order by shouwen.序号
DBSetProp("shouwen_niban.序号","field","keyfield",.T.)
DBSetProp("shouwen_niban","view","sendupdates",.T.)
DBSetProp('shouwen_niban', 'View', 'FetchSize', -1)
DBSetProp("shouwen_niban.my_id","field","keyfield",.T.)
DBSetProp("shouwen_niban.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_niban.登记日期","Field","datatype",'D')
DBSetProp("shouwen_niban.文件日期","Field","datatype",'D')
DBSetProp("shouwen_niban.办文期限","Field","datatype",'D')
DBSetProp("shouwen_niban.承收日期","Field","datatype",'D')
DBSetProp("shouwen_niban.处理日期","Field","datatype",'D')
DBSetProp("shouwen_niban.归档日期","Field","datatype",'D')
DBSetProp("shouwen_niban.移交时间","Field","datatype",'D')
***********收文拟办修改
***********(shouwen_nbxiugai)
Create sql view shouwen_nbxiugai ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
WHERE Shouwen.状态 = ?zhuangtai;
AND Shouwen.登记日期 >= ?qsdate;
AND Shouwen.登记日期 <= ?jsdate;
AND Shouwen.大类 = ?mydalei;
order by shouwen.序号
DBSetProp("shouwen_nbxiugai.序号","field","keyfield",.T.)
DBSetProp("shouwen_nbxiugai","view","sendupdates",.T.)
DBSetProp("shouwen_nbxiugai.my_id","field","keyfield",.T.)
DBSetProp("shouwen_nbxiugai.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_nbxiugai.登记日期","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.文件日期","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.办文期限","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.承收日期","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.处理日期","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.归档日期","Field","datatype",'D')
DBSetProp("shouwen_nbxiugai.移交时间","Field","datatype",'D')
***********收文拟办意见
***********(shouwen_nbyijian)
Create sql view shouwen_nbyijian ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
WHERE Shouwen.序号 = ?xuhao
DBSetProp("shouwen_nbyijian.序号","field","keyfield",.T.)
DBSetProp("shouwen_nbyijian","view","sendupdates",.T.)
DBSetProp("shouwen_nbyijian.my_id","field","keyfield",.T.)
DBSetProp("shouwen_nbyijian.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen_nbyijian.登记日期","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.文件日期","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.办文期限","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.承收日期","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.处理日期","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.归档日期","Field","datatype",'D')
DBSetProp("shouwen_nbyijian.移交时间","Field","datatype",'D')
***********22、收文序号
***********(shouwen_xuhao)
Create sql view shouwen_xuhao ;
remote connection 远程数据 AS ;
SELECT Shouwen.序号;
FROM shouwen Shouwen;
ORDER BY Shouwen.序号 DESC
DBSetProp("shouwen_xuhao.序号","field","keyfield",.T.)
DBSetProp("shouwen_xuhao","view","sendupdates",.T.)
***********23、收文
***********(shouwen)
Create sql view shouwen ;
remote connection 远程数据 AS ;
SELECT *;
FROM shouwen Shouwen;
order by shouwen.序号
DBSetProp("shouwen.序号","field","keyfield",.T.)
DBSetProp("shouwen.大类","field","keyfield",.T.)
DBSetProp("shouwen.登记日期","field","keyfield",.T.)
DBSetProp("shouwen.文件日期","field","keyfield",.T.)
DBSetProp("shouwen","view","sendupdates",.T.)
DBSetProp("shouwen.my_id","field","keyfield",.T.)
DBSetProp("shouwen.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("shouwen","view","comparememo",.F.)
DBSetProp('shouwen', 'View', 'FetchSize', -1)
DBSetProp('shouwen', 'View', 'FetchAsNeeded', .F.)
DBSetProp('shouwen', 'View', 'FetchMemo', .F.)
DBSetProp("shouwen.登记日期","Field","datatype",'D')
DBSetProp("shouwen.文件日期","Field","datatype",'D')
DBSetProp("shouwen.办文期限","Field","datatype",'D')
DBSetProp("shouwen.承收日期","Field","datatype",'D')
DBSetProp("shouwen.处理日期","Field","datatype",'D')
DBSetProp("shouwen.归档日期","Field","datatype",'D')
DBSetProp("shouwen.页数","Field","datatype",'N(3,0)')
DBSetProp("shouwen.份数","Field","datatype",'N(3,0)')
DBSetProp("shouwen.移交时间","Field","datatype",'D')
***********代码、标准术语
***********(biaozhun)
Create sql view biaozhun ;
remote connection 远程数据 AS ;
SELECT *;
FROM biaozhun biaozhun;
order by biaozhun.my_id
DBSetProp("biaozhun.my_id","field","keyfield",.T.)
DBSetProp("biaozhun","view","sendupdates",.T.)
DBSetProp("biaozhun.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("biaozhun","view","comparememo",.F.)
DBSetProp('biaozhun', 'View', 'FetchSize', -1)
DBSetProp('biaozhun', 'View', 'FetchAsNeeded', .F.)
DBSetProp('biaozhun', 'View', 'FetchMemo', .F.)
Create sql view biaozhun_dalei ;
connection 远程数据 as ;
SELECT biaozhun.代号,大类;
FROM biaozhun biaozhun;
where biaozhun.大类 <> '';
and biaozhun.大类 is not null ;
and biaozhun.代号 <> '';
and biaozhun.代号 is not null ;
order by biaozhun.代号
DBSetProp("biaozhun_dalei.代号","field","keyfield",.T.)
DBSetProp("biaozhun_dalei.大类","field","keyfield",.T.)
DBSetProp("biaozhun_dalei","view","sendupdates",.T.)
DBSetProp('biaozhun_dalei', 'View', 'FetchSize', -1)
DBSetProp('biaozhun_dalei', 'View', 'FetchAsNeeded', .F.)
Create sql view biaozhun_bm ;
connection 远程数据 as ;
SELECT biaozhun.承办单位,单位号;
FROM biaozhun biaozhun;
where biaozhun.承办单位 <> '';
and biaozhun.承办单位 is not null ;
and biaozhun.单位号 <> '';
and biaozhun.单位号 is not null ;
order by biaozhun.单位号
DBSetProp("biaozhun_bm.单位号","field","keyfield",.T.)
DBSetProp("biaozhun_bm.承办单位","field","keyfield",.T.)
DBSetProp("biaozhun_bm","view","sendupdates",.T.)
DBSetProp('biaozhun_bm', 'View', 'FetchSize', -1)
DBSetProp('biaozhun_bm', 'View', 'FetchAsNeeded', .F.)
Create sql view biaozhun_wenzhong ;
connection 远程数据 as ;
SELECT biaozhun.代号,文种;
FROM biaozhun biaozhun;
where biaozhun.文种 <> '';
and biaozhun.文种 is not null ;
and biaozhun.代号 <> '';
and biaozhun.代号 is not null ;
order by biaozhun.代号
DBSetProp("biaozhun_wenzhong.代号","field","keyfield",.T.)
DBSetProp("biaozhun_wenzhong.文种","field","keyfield",.T.)
DBSetProp("biaozhun_wenzhong","view","sendupdates",.T.)
DBSetProp('biaozhun_wenzhong', 'View', 'FetchSize', -1)
DBSetProp('biaozhun_wenzhong', 'View', 'FetchAsNeeded', .F.)
Create sql view biaozhun_gdlm ;
connection 远程数据 as ;
SELECT biaozhun.归档类目;
FROM biaozhun biaozhun;
where biaozhun.归档类目 <> '';
and biaozhun.归档类目 is not null ;
DBSetProp("biaozhun_gdlm.归档类目","field","keyfield",.T.)
DBSetProp("biaozhun_gdlm","view","sendupdates",.T.)
DBSetProp('biaozhun_gdlm', 'View', 'FetchSize', -1)
DBSetProp('biaozhun_gdlm', 'View', 'FetchAsNeeded', .F.)
***********(wzt)
Create sql view wzt ;
remote connection 远程数据 AS ;
SELECT *;
FROM wzt wzt;
order by wzt.my_id
DBSetProp("wzt.my_id","field","keyfield",.T.)
DBSetProp("wzt","view","sendupdates",.T.)
DBSetProp("wzt.my_id","Field","DefaultValue",'ttoc(datetime(),1)+subst(sys(2015),8,3)+subst(sys(2015),8,3)')
DBSetProp("wzt","view","comparememo",.F.)
DBSetProp('wzt', 'View', 'FetchSize', -1)
DBSetProp('wzt', 'View', 'FetchAsNeeded', .F.)
DBSetProp('wzt', 'View', 'FetchMemo', .F.)
Wait clear
Messagebox("远程视图创建结束！ ",0+64+0,"创建远程视图")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -