以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  懒人心得，狐友共享  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51415)
--  作者：lsy
--  发布时间：2014/5/26 16:02:00
--  懒人心得，狐友共享

本人生性懒惰。

开发项目的每个环节，都想琢磨点通用的玩意。

潜水数日，摸着几条小鱼，慢慢红烧，烧熟一条，分享一条。

 

今天端上来的是：多数据源下日期括号、逻辑值的通用函数。

全局代码：

Public _cmd As New SQLCommand

Public _dt As DataTable   \'SQLCommand临时DataTable
Public _rq As String   \'日期括号
Public _true As Object   \'逻辑真
Public _false As Object   \'逻辑假

 

内部函数：

响应ddon的号召，改造一下：

If DataTables.Contains(Args(0)) Then
    _dt = DataTables(Args(0))
    If _dt.SourceType = 1 Then
        _rq = "#"
        _true = True
        _false = False
    Else
        _rq = "\'"
        _true = 1
        _false = 0
    End If
Else
    _cmd.Connection Name = Args(0)
    If _cmd.Connection Name = "" Then
        _rq = "#"
        _true = True
        _false = False
    Else
        If Connections.Contains(_cmd.Connection Name) Then
            If Connections(_cmd.Connection Name).SourceType = 1 Then
                _rq = "#"
                _true = True
                _false = False
            Else
                _rq = "\'"
                _true = 1
                _false = 0
            End If
        End If
    End If
End If
If IsDate(Args(1)) Then
    Return _rq & Args(1) & _rq
Else
    Return _rq & "1900-01-01" & _rq
End If

 

调用：

\'\'调用*******************************
Dim d As String = ""
_cmd.CommandText = "Select * From {药品库存} Where 效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
Output.Show(_cmd.ExecuteReader.DataRows(1)("效期"))

 

d = "2015-03-29"
_cmd.CommandText = "Select * From {药品库存} Where 效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
Output.Show(_cmd.ExecuteReader.DataRows(1)("效期"))

 

Functions.Execute("数据源通用代码","药品库存",d)
DataTables("药品库存").LoadFilter = "灭菌效期 = "  & _true

DataTables("药品库存").Load

 

DataTables("药品库存").LoadFilter = "效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
DataTables("药品库存").Load
\'\'调用*******************************

 

且听下回分解
[此贴子已经被作者于2014-5-26 20:06:47编辑过]
--  作者：Bin
--  发布时间：2014/5/26 16:03:00
--  
先顶,后看.
--  作者：lsy
--  发布时间：2014/5/26 16:10:00
--  
论坛的数据源名，不给正常显示，代码都弄乱了。
--  作者：有点甜
--  发布时间：2014/5/26 16:12:00
--  

 你可以粘贴这一个 ConnectionName
--  作者：fpx406
--  发布时间：2014/5/26 16:13:00
--  
kankan
--  作者：hbhb
--  发布时间：2014/5/26 18:02:00
--  
好，国宴冷蝶第一道，味道好极了！
--  作者：don
--  发布时间：2014/5/26 18:08:00
--  
& _rq & "1999-06-03" & _rq 還是有些麻煩 ,

應該:
Dim  d1 As Date = Date.Totay() 
_cmd.CommandText = "Select * From {订单} Where 日期 > " &  Functions.Execute("通用日期前後綴",d1)
--  作者：don
--  发布时间：2014/5/26 18:10:00
--  
老大應該整合一下的
--  作者：lsy
--  发布时间：2014/5/26 18:42:00
--  

不用写数据源条件判断了。

 

变量放在日期的前后，是照顾狐友的使用习惯。
--  作者：花开的声音
--  发布时间：2014/5/26 18:44:00
--  
虽然还看不懂，先顶先。