【VB开源代码栏目提醒】:网学会员鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“FrmDept.frm”一文,供大家参考学习
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "msadodc.ocx"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmDept
Caption = "部门信息管理"
ClientHeight = 4440
ClientLeft = 60
ClientTop = 345
ClientWidth = 4395
LinkTopic = "Form1"
ScaleHeight = 4440
ScaleWidth = 4395
StartUpPosition = 2 '屏幕中心
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 120
Top = 4080
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Pass
word = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton Cmd_Exit
Caption = "退 出"
Height = 375
Left = 2760
TabIndex = 5
Top = 3840
Width = 1095
End
Begin VB.CommandButton Cmd_Del
Caption = "删 除"
Height = 375
Left = 2760
TabIndex = 4
Top = 2880
Width = 1095
End
Begin VB.CommandButton Cmd_Modi
Caption = "修 改"
Height = 375
Left = 2760
TabIndex = 3
Top = 2040
Width = 1095
End
Begin
VB.CommandButton Cmd_Add
Caption = "添 加"
Height = 375
Left = 2760
TabIndex = 2
Top = 1200
Width = 1095
End
Begin VB.TextBox txtName
Height = 375
Left = 2520
TabIndex = 1
Top = 360
Width = 1575
End
Begin MSDataListLib.DataList DataList1
Height = 3840
Left = 240
TabIndex = 0
Top = 240
Width = 1935
_ExtentX = 3413
_ExtentY = 6773
_Version = 393216
End
End
Attribute VB_Name = "FrmDept"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private OriId As Long
Private OriTypeName As String
Private Sub Cmd_Add_Click()
'添加设备部门名称
'判断域是否为空
If Len(Trim(txtName)) = 0 Then
MsgBox ("请输入部门名称")
txtName.SetFocus
Exit Sub
End If
'判断是否已经存在此部门名称
If MyType.In_DB(Trim(txtName), 2) = True Then
MsgBox ("已经存在此部门名称")
txtName.SetFocus
Exit Sub
End If
With MyType
.TypeName = Trim(txtName)
.TypeId = 2
.Insert
End With
DataRefresh
End Sub
Private Sub Cmd_Del_Click()
If Len(Trim(DataList1.BoundText)) = 0 Then
MsgBox ("请选择记录")
Exit Sub
End If
'确定删除
If MsgBox("是否确定要删除 ", vbYesNo, "请确认") = vbNo Then
Exit Sub
End If
'删除部门
MyType.Delete (Val(DataList1.BoundText))
'刷新DataList1
DataRefresh
End Sub
Private Sub Cmd_Exit_Click()
Unload Me
End Sub
Private Sub Cmd_Modi_Click()
'修改部门名称
If Len(Trim(DataList1.BoundText)) = 0 Then
MsgBox ("请选择记录")
Exit Sub
End If
'判断新的名称是否和原来的相同
If Trim(txtName) = OriTypeName Then
Exit Sub
End If
'判断新的名称是否已经存在
If MyType.In_DB(Trim(txtName), 2) = True Then
MsgBox ("已经存在此部门名称")
txtName.SetFocus
Exit Sub
End If
'更新名称
MyType.TypeName = Trim(txtName)
MyType.Update (OriId)
DataRefresh
End Sub
Private Sub DataList1_Click()
'点击
列表记录,将编号和名称放入变量和txtName域
If Len(Trim(DataList1.BoundText)) = 0 Then
Exit Sub
End If
OriId = Val(DataList1.BoundText)
If MyType.GetInfo(OriId) = True Then
OriTypeName = Trim(MyType.TypeName)
txtName = Trim(MyType.TypeName)
End If
End Sub
Private Sub Form_Load()
DataRefresh
End Sub
Private Sub DataRefresh()
Adodc1.ConnectionString = Conn
Adodc1.RecordSource = "SELECT * FROM Types WHERE TypeId=2"
Adodc1.Refresh
Set DataList1.RowSource = Adodc1
DataList1.ListField = "TypeName"
DataList1.BoundColumn = "Id"
DataList1.Refresh
End Sub