frmjhsadd.frm

朋友给的

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmJHSADD 
   Caption         =   "计划书添加"
   ClientHeight    =   5745
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9735
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5745
   ScaleWidth      =   9735
   Begin VB.Frame Frame3 
      Height          =   5640
      Left            =   7530
      TabIndex        =   6
      Top             =   30
      Width           =   2175
      Begin VB.CommandButton Command5 
         Caption         =   "运行"
         Height          =   405
         Left            =   360
         TabIndex        =   12
         Top             =   2040
         Width           =   1470
      End
      Begin VB.CommandButton Command3 
         Caption         =   "退出"
         Height          =   405
         Left            =   375
         TabIndex        =   10
         Top             =   2520
         Width           =   1470
      End
      Begin VB.CommandButton Command2 
         Caption         =   "删除"
         Height          =   405
         Left            =   360
         TabIndex        =   9
         Top             =   1560
         Width           =   1470
      End
      Begin VB.CommandButton Command1 
         Caption         =   "保存"
         Height          =   405
         Left            =   375
         TabIndex        =   8
         Top             =   1080
         Width           =   1470
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "计划书列表"
      Height          =   3285
      Left            =   30
      TabIndex        =   1
      Top             =   2385
      Width           =   7440
      Begin MSFlexGridLib.MSFlexGrid MSFLGJHS 
         Height          =   2955
         Left            =   105
         TabIndex        =   7
         Top             =   195
         Width           =   7275
         _ExtentX        =   12832
         _ExtentY        =   5212
         _Version        =   393216
         Cols            =   3
         FormatString    =   "日期               |标题                                                     |"
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "添加计划书"
      Height          =   2325
      Left            =   30
      TabIndex        =   0
      Top             =   30
      Width           =   7440
      Begin MSComDlg.CommonDialog CommonDialog1 
         Left            =   5040
         Top             =   1620
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin VB.CommandButton Command4 
         Caption         =   "．．"
         Height          =   435
         Left            =   6780
         TabIndex        =   11
         Top             =   960
         Width           =   555
      End
      Begin VB.TextBox JHSNR 
         Height          =   405
         Left            =   1275
         MultiLine       =   -1  'True
         TabIndex        =   5
         Top             =   990
         Width           =   5385
      End
      Begin VB.TextBox JHSBT 
         Height          =   330
         Left            =   1275
         TabIndex        =   3
         Top             =   420
         Width           =   6045
      End
      Begin VB.Label Label2 
         Caption         =   "内容"
         Height          =   330
         Left            =   255
         TabIndex        =   4
         Top             =   990
         Width           =   1440
      End
      Begin VB.Label Label1 
         Caption         =   "标题"
         Height          =   330
         Left            =   255
         TabIndex        =   2
         Top             =   525
         Width           =   1440
      End
   End
End
Attribute VB_Name = "frmJHSADD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim id As Long
Dim Filename As String
Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    Dim i As Long
    On Error GoTo ErrHandle
    Set rs = New ADODB.Recordset
'    If id <> 0 Then
        strsql = "select * from jhs where id= " & id
'    Else
'        strsql = "select * from jhs "
'    End If
    rs.Open strsql, gCnn, adOpenStatic, adLockPessimistic
    If rs.EOF Then
        rs.AddNew
    End If
    rs("jhsbt") = Trim(JHSBT)
    rs("jhsnr") = Trim(JHSNR)
    rs("JHSDATE") = Now
    rs("czy") = gUser
    rs.Update
    id = 0
    ClearTxt
    If rs.State = 1 Then rs.Close
    strsql = "select * from jhs where czy='" & gUser & "'"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    MSFLGJHS.Clear
    MSFLGJHS.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        MSFLGJHS.TextMatrix(i, 0) = rs("JHSBT")
        MSFLGJHS.TextMatrix(i, 1) = rs("jhsnr")
        MSFLGJHS.TextMatrix(i, 2) = rs("id")
        rs.MoveNext
    Next
    
    
    
    
    Exit Sub
ErrHandle:
    MsgBox Err.Description, vbCritical, "系统提示"
End Sub
Private Sub ClearTxt()
    JHSBT = ""
    JHSNR = ""
    



End Sub

Private Sub Command2_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    gCnn.Execute "delete from jhs where id=" & id
    rs.Open "select * from jhs where czy='" & gUser & "'", gCnn, adOpenStatic, adLockReadOnly
    MSFLGJHS.Clear
    MSFLGJHS.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        MSFLGJHS.TextMatrix(i, 0) = rs("jhsbt")
        MSFLGJHS.TextMatrix(i, 1) = rs("jhsnr")
        MSFLGJHS.TextMatrix(i, 2) = rs("id")
        rs.MoveNext
    Next
    
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Command4_Click()
   Dim filedir As String
   Dim fso As New FileSystemObject
   Dim DestPFld As Scripting.Folder, DestFld As Scripting.Folder
On Error GoTo ExitNow
   CommonDialog1.Filter = "EXE|*.exe|BAT|*.bat"
   CommonDialog1.FilterIndex = 2
   CommonDialog1.DialogTitle = "选择源文件!"
   CommonDialog1.CancelError = True
   CommonDialog1.ShowOpen
   Filename = CommonDialog1.Filename
   JHSNR = Filename
   Exit Sub
ExitNow:
End Sub

Private Sub Command5_Click()
Shell JHSNR, vbNormalFocus
End Sub

Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 9855, 6150
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Open "select * from jhs where czy='" & gUser & "'", gCnn, adOpenStatic, adLockReadOnly
    MSFLGJHS.Clear
    MSFLGJHS.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        MSFLGJHS.TextMatrix(i, 0) = rs("jhsbt")
        MSFLGJHS.TextMatrix(i, 1) = rs("jhsnr")
        MSFLGJHS.TextMatrix(i, 2) = rs("id")
        rs.MoveNext
    Next
    
End Sub

Private Sub MSFLGJHS_Click()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    Set rs = New ADODB.Recordset
    strsql = "select * from jhs where id=" & MSFLGJHS.TextMatrix(MSFLGJHS.Row, 2)
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    If Not rs.EOF Then
        JHSBT = rs("jhsbt")
        JHSNR = rs("jhsnr")
        id = rs("id")
    End If
    
    
    
    
    
    
End Sub