act_上传主界面.frm

适合于中小型企业管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Act_UpdateFrm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "上传主界面"
   ClientHeight    =   5295
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8895
   Icon            =   "act_上传主界面.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5295
   ScaleWidth      =   8895
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Cmd_Quit 
      Caption         =   "退出(&X)"
      Height          =   300
      Left            =   4410
      TabIndex        =   1
      Top             =   4740
      Width           =   1120
   End
   Begin VB.CommandButton Cmd_Update 
      Caption         =   "上传(&U)"
      Height          =   300
      Left            =   2820
      TabIndex        =   0
      Top             =   4740
      Width           =   1120
   End
   Begin MSComctlLib.ListView lstContracts 
      Height          =   4455
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   8535
      _ExtentX        =   15055
      _ExtentY        =   7858
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
End
Attribute VB_Name = "Act_UpdateFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public gbRefresh As Boolean



Private Sub Cmd_Quit_Click()
    Unload Me
End Sub

Private Sub Cmd_Update_Click()
    Act_UploadFrm.Show 1
End Sub

Private Sub Form_Load()
    lstContracts.ColumnHeaders.Clear
    lstContracts.ColumnHeaders.Add , , "序号", 600
    lstContracts.ColumnHeaders.Add , , "文件名称", 1400
    lstContracts.ColumnHeaders.Add , , "版本号", 2000
    lstContracts.ColumnHeaders.Add , , "上传时间", 1200
    lstContracts.ColumnHeaders.Add , , "文件大小", 1200
    lstContracts.ColumnHeaders.Add , , "更新次数", 900
    lstContracts.ColumnHeaders.Add , , "备注", 1800
    Call Sub_FillGrid
End Sub

Public Sub Sub_FillGrid()
Dim sSql As String
Dim rs As New ADODB.Recordset
Dim i As Integer
    
    sSql = "SELECT iNo, ModelName, Version, CreateTime " & Chr(13) _
          & " , FileSize, UpdateTimes, Remark " & Chr(13) _
          & "FROM EboSys..sys_Update " & Chr(13) _
          & "WHERE ProjectName='" & CurrentDBName & "'"
          
    Set rs = Cw_DataEnvi.DataConnect.Execute(sSql)
    
        lstContracts.ListItems.Clear
        Do While Not rs.EOF
            Set ItmX = lstContracts.ListItems.Add(, , rs!iNo & "")
             ItmX.SubItems(1) = rs!ModelName & ""
             ItmX.SubItems(2) = rs!Version & ""
             ItmX.SubItems(3) = Format(Trim(rs.Fields("CreateTime") & ""), "YYYY-MM-DD")
             ItmX.SubItems(4) = Format(Trim(rs.Fields("FileSize") & ""), "###,###,###")
             ItmX.SubItems(5) = rs!UpdateTimes & ""
             ItmX.SubItems(6) = Trim(rs.Fields("Remark") & "")
            rs.MoveNext
        Loop
    
End Sub