代码管理(1)

转载 2004年09月25日 20:49:00
1--------------从数据库中得到所有注册用户的数据,放在dataSet1中,接着从Application中得到在线的用户名,从dataSet1中过滤出在线用户的记录,与DataGrid绑定
 
'从application中取得所有登录人员的appAllUserId
        userArray = CType(Application("appAllUserId"), ArrayList)

        Dim i As Integer
        Private strOnlinePs As String
'把userArray转换成string,用,分隔
        For i = 0 To usercount - 1
            strOnlinePs = strOnlinePs + "','" + userArray(i)
        Next

'过滤出记录
        Me.dtView = dtUser.DefaultView

        Me.dtView.RowFilter = "user_id in ('" & strOnlinePs & "')"
        Me.dtgTask.DataSource = Me.dtView
'数据绑定        
        Me.dtgTask.DataBind()


2----------------------精确查询和模糊查询

   '如果checkbox被选中则要模糊查询
            If Me.chkSrc.Checked = True Then
                If Me.txtUserID.Text.Trim <> "" Then
                    str = "user_id like '%" & Me.txtUserID.Text.Trim & "%'"
                End If
                If Me.txtUserName.Text.Trim <> "" Then
                    If str <> "" Then
                        str = str + "and c_name like '%" + Me.txtUserName.Text.Trim + "%'"
                    Else
                        str = "c_name like '%" + Me.txtUserName.Text.Trim + "%'"
                    End If
                End If
            Else
                '如果checkbox未被选中则精确查询
                If Me.txtUserID.Text.Trim <> "" Then
                    str = "user_id='" & Me.txtUserID.Text.Trim & "'"
                End If
                If Me.txtUserName.Text.Trim <> "" Then
                    If str <> "" Then
                        str = str + "and c_name='" + Me.txtUserName.Text.Trim + "'"
                    Else
                        str = "c_name='" + Me.txtUserName.Text.Trim + "'"
                    End If
                End If
            End If
            '如果str不为空,先过滤一下
            If str <> "" Then
                Me.dtView.RowFilter = "user_id in ('" & strOnlinePs & "') and " & str
            End If

 
3---------------------时间控件的用法

   ' 当使用时间控件查询是必须3个textBox都不为空,否则报错
            If timeFrom = "" Then
                Return
            End If
            If timeTo = "" Then
                Return
            End If

            '2个时间控件都不为空
            If Me.UCTime1.GetSetTime <> DateTime.MinValue And Me.UCTime2.GetSetTime <> DateTime.MinValue Then
                'dtUser.DefaultView表中记录过滤
                i = Me.dtView.Count
                While i <> 0
                    login_dt = dtView.Item(i - 1).Item("lst_login_dt")

                    temp = login_dt.Substring(0, 10)
                    timeFrom = temp + timeFrom
                    timeTo = temp + timeTo
                    '如果登陆时间在timeFrom和timeTo之间
                    If DateTime.Parse(timeFrom) <= DateTime.Parse(login_dt) And DateTime.Parse(timeTo) >= DateTime.Parse(login_dt) Then
                    Else
                        '如果不在的话删掉这一行
                        dtView.Item(i - 1).Delete()
                    End If
                    timeFrom = timeFrom.Substring(10)
                    timeTo = timeTo.Substring(10)
                    i = i - 1
                End While
            End If

            'UcTime2为空的话
            If Me.UCTime1.GetSetTime <> DateTime.MinValue And Me.UCTime2.GetSetTime = DateTime.MinValue Then
                'dtUser.DefaultView表中记录过滤
                i = Me.dtView.Count
                While i <> 0
                    login_dt = dtView.Item(i - 1).Item("lst_login_dt")

                    temp = login_dt.Substring(0, 10)
                    timeFrom = temp + timeFrom

                    '如果登陆时间大于timeFrom
                    If DateTime.Parse(timeFrom) <= DateTime.Parse(login_dt) Then
                    Else
                        '如果不大于的话删掉这一行
                        dtView.Item(i - 1).Delete()
                    End If
                    timeFrom = timeFrom.Substring(10)
                    i = i - 1
                End While
            End If

            'UcTime1为空的话
            If Me.UCTime1.GetSetTime = DateTime.MinValue And Me.UCTime2.GetSetTime <> DateTime.MinValue Then
                'dtUser.DefaultView表中记录过滤
                ' For i = 0 To dtUser.DefaultView.Count - 1
                i = Me.dtView.Count
                While i <> 0
                    login_dt = Me.dtView.Item(i - 1).Item("lst_login_dt")

                    temp = login_dt.Substring(0, 10)
                    timeTo = temp + timeTo

                    '如果登陆时间小于timeTo
                    If DateTime.Parse(timeTo) >= DateTime.Parse(login_dt) Then
                    Else
                        '如果不小于的话删掉这一行
                        Me.dtView.Item(i - 1).Delete()
                    End If
                    timeTo = timeTo.Substring(10)
                    i = i - 1
                End While
            End If

            'Me.dtgTask.DataSource = Me.dtView
            Me.dtgTask.DataBind()
            'Me.lblPerNum.Text = Me.dtView.Count
        End If


4-----------------给DataGrid添加自动增长列

 <Columns>
              <asp:TemplateColumn>
               <ItemTemplate>
               <!-- 这里是关键,给DataGrid添加自动增长列-->
                <SPAN>
                   <%# Container.ItemIndex+1 %>
                </SPAN>
               </ItemTemplate>
              </asp:TemplateColumn>
              
              
              <asp:BoundColumn DataField="user_id" SortExpression="user_id desc"></asp:BoundColumn>
              <asp:BoundColumn DataField="c_name"></asp:BoundColumn>
              <asp:BoundColumn DataField="lst_lng_ip"></asp:BoundColumn>
              <asp:BoundColumn DataField="lst_login_dt"></asp:BoundColumn>
              <asp:BoundColumn DataField="login_num"></asp:BoundColumn>
              
             </Columns><?xml:namespace prefix = asp /><%# Container.ItemIndex+1 %><%# Container.ItemIndex+1 %><%@ Register TagPrefix="uc1" TagName="UCTimeControl" Src="../controls/UCTime.ascx" %>

技术团队代码管理和部署

主流公司使用svn和git作为代码版本管理,当然也不排除直接copy或者ftp。公司经历了的svn到git的变迁,也深刻体会到不同的版本管理服务,使得技术团队的协作方式变得更为流畅。 简单介绍下背景...
  • fenggou987
  • fenggou987
  • 2015年09月19日 23:55
  • 826

Git代码管理的使用流程

准备工作首先要配置SSH才能对代码进行操作,配置操作请谷歌。1、检出仓库git clone username@host:/path/to/repository2、进入到工程目录cd 工程路径3、获取主...
  • pengkv
  • pengkv
  • 2016年02月26日 10:00
  • 2606

使用免费的代码管理仓库Bitbuket

Bitbucket 好用的免费软件版本管理工具,有利于小团队开发的。github的账号只能创建开源项目,私有仓库要收费,很多人都是用 bitbucket管理项目,它提供5人无限制的私有仓库。 ...
  • a34927341
  • a34927341
  • 2017年02月26日 13:38
  • 298

源代码管理的新15条建议

建议之1:使用好的配置管理工具,也称为版本控制工具(Version Control), 比如Git,SVN。 建议之2:抛弃古老的配置管理三库做法,常说的三库是指开发库(动态库)、受控库和产品库(静...
  • zhangmike
  • zhangmike
  • 2014年08月12日 06:41
  • 17705

代码管理--使用Git的好处

PS:以下主要跟集中式版本控制系统SVN做对比 好处一:本地拥有版本库,随时进行版本后退 比如我们在workspace做一个登录注册的功能,可以先把一部分写好的代码commit到本地库Reposi...
  • Primer01
  • Primer01
  • 2016年03月22日 15:34
  • 805

程序员开发利器:源代码管理的十条建议

英文原版 http://java.dzone.com/articles/10-commandments-good-source
  • zhangmike
  • zhangmike
  • 2014年08月06日 07:34
  • 5589

谈谈源代码管理那点事儿(一)——源代码管理十诫(转)

若是还有可以毫无偏见地涉及各个编程语言,比源代码管理软件更必要的工具,我倒是很想见识一下。源代码管理软件是我们工作的必备工具,是许多开发团队的血液。那为什么我们都会对它有所误解呢?为什么都很难理解版本...
  • u011500356
  • u011500356
  • 2016年04月09日 16:39
  • 5602

代码管理之git服务器搭建

以下是以centos系统为例 搭建Git服务器: 1.yum安装Git服务器 EPEL 是yum的一个软件源,里面包含了许多基本源里没有的软件。 centos 6 64位 安装EPEL > w...
  • daybillion
  • daybillion
  • 2016年03月12日 23:25
  • 358

敏捷开发代码管理规则:为什么要采用单一主干代码管理?如何做到单一主干代码管理?

http://blog.sina.com.cn/s/blog_74bd788f0101aohh.html 在敏捷开发中,单一主干代码管理经常被提及,那为什么要采用单一主干代码管理?单一主干代...
  • tianbaochao
  • tianbaochao
  • 2017年05月12日 14:11
  • 263

用Git 进行分布式代码管理

该入门教程的流程是这样的; 什么是Git----------------->为什么选择Git----------------->如何安装Git到MAC OS X------------------>...
  • Guide_Sun
  • Guide_Sun
  • 2015年08月12日 15:37
  • 1837
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:代码管理(1)
举报原因:
原因补充:

(最多只允许输入30个字)