开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
DelFixed.frm
资源名称：financial_manage.rar　[点击查看]
上传用户：cntx88
上传日期：2022-08-07
资源大小：169k
文件大小：3k
源码类别：

企业管理

开发平台：

Visual Basic

DelFixed.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form DelFixed 
  3.    Caption         =   "删除"
  4.    ClientHeight    =   2775
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   3780
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2775
  10.    ScaleWidth      =   3780
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Frame Frame1 
  13.       Caption         =   "删除资产记录"
  14.       Height          =   2535
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   120
  18.       Width           =   3495
  19.       Begin VB.TextBox FID 
  20.          Appearance      =   0  'Flat
  21.          Height          =   270
  22.          Left            =   240
  23.          TabIndex        =   3
  24.          Top             =   720
  25.          Width           =   3015
  26.       End
  27.       Begin VB.CommandButton Command1 
  28.          Caption         =   "删除"
  29.          Default         =   -1  'True
  30.          Height          =   495
  31.          Left            =   240
  32.          TabIndex        =   2
  33.          Top             =   1200
  34.          Width           =   3015
  35.       End
  36.       Begin VB.CommandButton Command2 
  37.          Cancel          =   -1  'True
  38.          Caption         =   "退出"
  39.          Height          =   495
  40.          Left            =   240
  41.          TabIndex        =   1
  42.          Top             =   1800
  43.          Width           =   3015
  44.       End
  45.       Begin VB.Label Label1 
  46.          Caption         =   "欲删除固定资产ID编号"
  47.          Height          =   255
  48.          Left            =   240
  49.          TabIndex        =   4
  50.          Top             =   480
  51.          Width           =   2775
  52.       End
  53.    End
  54. End
  55. Attribute VB_Name = "DelFixed"
  56. Attribute VB_GlobalNameSpace = False
  57. Attribute VB_Creatable = False
  58. Attribute VB_PredeclaredId = True
  59. Attribute VB_Exposed = False
  60. Option Explicit
  62. Private Sub Command1_Click()
  63.     Dim sql As String
  64.     Dim rs As New ADODB.Recordset
  65.     Dim i As Integer
  66.     If FID.Text = "" Then       '固定资产编号对话框不可为空
  67.         MsgBox "请输入固定资产编号！", vbExclamation
  68.         FID.SetFocus
  69.         Exit Sub
  70.     End If
  71.     
  72.     If DbHandle.DbConnection Then       '检查输入的固定资产记录是否存在
  73.         sql = "TBL_FIXED"
  74.         rs.CursorType = adOpenDynamic
  75.         rs.LockType = adLockOptimistic
  76.         rs.Filter = "FIXED_ID='" & FID.Text & "'"
  77.         rs.Open sql, DbFinance
  78.         If DbHandle.resultcount(rs) <> 1 Then       '不存在固定资产记录删除失败,退出
  79.             MsgBox "错误，不存在的固定资产记录！", vbExclamation
  80.             FID.SetFocus
  81.             rs.Close
  82.             Set rs = Nothing
  83.             DbHandle.DbClose
  84.             Exit Sub
  85.         End If
  86.         rs.Delete       '找到这样的记录,删除记录,并且释放结果集,显示删除成功并且退出
  87.         rs.Close
  88.         Set rs = Nothing
  89.         DbHandle.DbClose
  90.         MsgBox "固定资产记录【" & FID.Text & "】删除成功。"
  91.         Unload Me
  92.     Else        '连接数据库失败退出
  93.         MsgBox "数据库错误！", vbExclamation
  94.         DbHandle.DbClose
  95.         End
  96.     End If
  97. End Sub
  99. Private Sub Command2_Click()
  100.     Me.Hide     '返回主窗体
  101. End Sub
  103. Private Sub Form_Load()
  104.     Me.Left = (Screen.Width - Me.ScaleWidth) / 2        '窗体居中显示
  105.     Me.Top = (Screen.Height - Me.ScaleHeight) / 2
  106. End Sub
  108. Private Sub Form_Unload(Cancel As Integer)
  109.     On Error Resume Next
  110.     DbHandle.DbClose        '窗体关闭时关闭数据库连接
  111. End Sub