企业管理

开发平台：
Visual Basic

fixFixed2.frm：源码内容
							VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form fixFixed2 
   Caption         =   "修改固定资产"
   ClientHeight    =   6165
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7140
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   6165
   ScaleWidth      =   7140
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      Height          =   1095
      Left            =   120
      TabIndex        =   17
      Top             =   4800
      Width           =   6855
      Begin VB.CommandButton Command2 
         Caption         =   "放弃修改"
         Height          =   615
         Left            =   3720
         TabIndex        =   21
         Top             =   240
         Width           =   2895
      End
      Begin VB.CommandButton Command1 
         Caption         =   "修改资产信息"
         Default         =   -1  'True
         Height          =   615
         Left            =   240
         TabIndex        =   20
         Top             =   240
         Width           =   2895
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "固定资产修改"
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6855
      Begin VB.TextBox Text7 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   2520
         TabIndex        =   19
         Text            =   "Text7"
         Top             =   1440
         Width           =   1815
      End
      Begin VB.TextBox Text6 
         Appearance      =   0  'Flat
         Height          =   1335
         Left            =   240
         MaxLength       =   100
         MultiLine       =   -1  'True
         TabIndex        =   15
         Text            =   "fixFixed2.frx":0000
         Top             =   3000
         Width           =   6375
      End
      Begin VB.TextBox Text5 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   4800
         TabIndex        =   13
         Text            =   "Text5"
         Top             =   1440
         Width           =   1815
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   255
         Left            =   2520
         TabIndex        =   11
         Top             =   2280
         Width           =   1815
         _ExtentX        =   3201
         _ExtentY        =   450
         _Version        =   393216
         Format          =   27000833
         CurrentDate     =   38012
      End
      Begin VB.ComboBox PartCombo 
         Height          =   300
         Left            =   240
         TabIndex        =   10
         Text            =   "Combo1"
         Top             =   2280
         Width           =   1815
      End
      Begin VB.TextBox Text4 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   240
         TabIndex        =   7
         Text            =   "Text4"
         Top             =   1440
         Width           =   1815
      End
      Begin VB.TextBox Text3 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   4800
         TabIndex        =   6
         Text            =   "Text3"
         Top             =   600
         Width           =   1815
      End
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   2520
         TabIndex        =   4
         Text            =   "Text2"
         Top             =   600
         Width           =   1815
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Enabled         =   0   'False
         Height          =   270
         Left            =   240
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label9 
         Caption         =   "经手人ID"
         Height          =   255
         Left            =   2520
         TabIndex        =   18
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label8 
         Caption         =   "资产说明"
         Height          =   255
         Left            =   240
         TabIndex        =   16
         Top             =   2760
         Width           =   2055
      End
      Begin VB.Label Label7 
         Caption         =   "联系电话"
         Height          =   255
         Left            =   4800
         TabIndex        =   14
         Top             =   1200
         Width           =   1455
      End
      Begin VB.Label Label6 
         Caption         =   "购买日期"
         Height          =   255
         Left            =   2520
         TabIndex        =   12
         Top             =   2040
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "购买部门"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "单价（元）"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label3 
         Caption         =   "资产数目"
         Height          =   255
         Left            =   4800
         TabIndex        =   5
         Top             =   360
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "资产名称"
         Height          =   255
         Left            =   2520
         TabIndex        =   3
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "资产编号"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   360
         Width           =   1575
      End
   End
End
Attribute VB_Name = "fixFixed2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim sql As String
    Dim rs As New ADODB.Recordset
    
    If Text1.Text = "" Then     '检查输入数据是否有效以及输入是否完整
        MsgBox "资产编号不能为空！", vbCritical
        Text1.SetFocus
        Exit Sub
    End If
    If Text2.Text = "" Then
        MsgBox "资产名称不能为空！", vbCritical
        Text2.SetFocus
        Exit Sub
    End If
    If Text3.Text = "" Then
        MsgBox "资产数目不能为空！", vbCritical
        Text3.SetFocus
        Exit Sub
    End If
    If Text4.Text = "" Then
        MsgBox "资产单价不能为空！", vbCritical
        Text4.SetFocus
        Exit Sub
    End If
    If Text7.Text = "" Then
        MsgBox "经手人ID不能为空！", vbCritical
        Text7.SetFocus
        Exit Sub
    End If
    If Text5.Text = "" Then
        MsgBox "联系电话不能为空！", vbCritical
        Text5.SetFocus
        Exit Sub
    End If
    If Text6.Text = "" Then
        MsgBox "资产说明不能为空！", vbCritical
        Text6.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Text3.Text) Then
        MsgBox "资产数目必须是数字！", vbCritical
        Text3.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(Text4.Text) Then
        MsgBox "资产单价必须是数字！", vbCritical
        Text4.SetFocus
        Exit Sub
    End If
    If PartCombo.ListIndex = -1 Then
        MsgBox "部门必须选择！", vbCritical
        PartCombo.SetFocus
        Exit Sub
    End If
    
    If DbHandle.DbConnection Then
        sql = "TBL_USER"        '打开职工表,查询输入的职工ID是否存在
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Filter = "USER_ID='" & Text7.Text & "'"
        rs.Open sql, DbFinance
        If DbHandle.resultcount(rs) <> 1 Then       '不存在要求用户重新输入职工ID号
            MsgBox "错误，不存在的ID号！", vbExclamation
            Text7.SetFocus
            rs.Close
            Set rs = Nothing
            DbHandle.DbClose
            Exit Sub
        End If
        rs.Close
        sql = "TBL_FIXED"
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Filter = "FIXED_ID='" & Text1.Text & "'"
        rs.Open sql, DbFinance '如果职工存在,定位固定资产表中的记录,修改记录属性值
        rs("FIXED_NAME") = Text2.Text
        rs("FIXED_NUM") = Val(Text3.Text)
        rs("FIXED_MONEY") = Val(Text4.Text)
        rs("FIXED_PART") = PartCombo.ItemData(PartCombo.ListIndex)
        rs("FIXED_USER") = Text7.Text
        rs("FIXED_PHONE") = Text5.Text
        rs("FIXED_DATE") = DTPicker1.Value
        rs("FIXED_REMARK") = Text6.Text
        rs.Update
        rs.Close        '释放资源,提示修改成功,返回主窗体
        MsgBox "固定资产信息成功修改！"
        Unload Me
    Else        '数据库连接出错,退出
        MsgBox "数据库错误！", vbExclamation
        DbHandle.DbClose
        End
    End If
End Sub
Private Sub Command2_Click()
    Unload Me       '返回主窗体
End Sub

						