📄 frmdwsz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmDWSZ
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 5400
ClientLeft = 45
ClientTop = 435
ClientWidth = 7095
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5400
ScaleWidth = 7095
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "单位编辑"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 1800
TabIndex = 3
Top = 3960
Width = 5175
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 240
ScaleHeight = 975
ScaleWidth = 4815
TabIndex = 4
Top = 240
Width = 4815
Begin VB.CommandButton cmdSCDW
Caption = "删除单位"
Enabled = 0 'False
Height = 345
Left = 1320
TabIndex = 11
Top = 600
Width = 1095
End
Begin VB.CommandButton cmdSC
Caption = "删除部门"
Height = 345
Left = 2640
TabIndex = 10
Top = 600
Width = 1095
End
Begin VB.CommandButton cmdXZ
Caption = "添加"
Height = 345
Left = 3960
TabIndex = 9
Top = 600
Width = 735
End
Begin VB.TextBox Text1
Height = 345
Left = 3120
TabIndex = 6
Top = 120
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 345
Left = 720
Style = 2 'Dropdown List
TabIndex = 5
Top = 120
Width = 1695
End
Begin VB.Label Label2
Caption = "部门"
Height = 375
Left = 2640
TabIndex = 8
Top = 120
Width = 375
End
Begin VB.Label Label1
Caption = "单位"
Height = 255
Left = 240
TabIndex = 7
Top = 120
Width = 495
End
End
End
Begin VB.PictureBox Picture1
BackColor = &H8000000D&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
ScaleHeight = 495
ScaleWidth = 7095
TabIndex = 1
Top = 0
Width = 7095
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "单位设置"
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 2
Top = 120
Width = 1695
End
End
Begin MSComctlLib.ListView ListView1
Height = 3255
Left = 1800
TabIndex = 0
Top = 600
Width = 5175
_ExtentX = 9128
_ExtentY = 5741
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.PictureBox picLEFT
Height = 4935
Left = 0
ScaleHeight = 4875
ScaleWidth = 1635
TabIndex = 12
Top = 480
Width = 1695
End
End
Attribute VB_Name = "frmDWSZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描 述：企事业单位人事管理系统 Ver 2007
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim addLVW As ListItem
Dim Cdid As Integer '传递ID
Private Sub cmdSCDW_Click()
If Me.Combo1.Text = "" Then Exit Sub
SQL = "select * from 单位设置 where 单位名称='" & Me.Combo1.Text & "'"
Call OpenConn
rs.Open SQL, cn, 3, 3
If rs.RecordCount > 1 Then
MsgBox "该单位有关联部门，如要删除，请先删除关联部门！", 48, "提示"
Exit Sub
Else
rs.Delete
End If
Call CloseConn
Me.cmdSCDW.Enabled = False
Call addCOM
End Sub
Private Sub Combo1_Click()
If Me.Combo1.Text = "作为新单位添加" Then
Me.cmdSCDW.Enabled = False
Exit Sub
Else
Me.cmdSCDW.Enabled = True
End If
End Sub
Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub
Private Sub cmdSC_Click()
If Cdid = 0 Then
MsgBox "请选择要删除的记录！", 48, "提示"
Exit Sub
End If
Call OpenConn
cn.Execute ("delete * from 单位设置 where dwid=" & Cdid)
Call CloseConn
Call addLIST
Cdid = 0
End Sub
Private Sub cmdXZ_Click()
If Me.Combo1.Text = "" Then
MsgBox "请选择单位！", 48, "提示"
Exit Sub
End If
If Me.Text1.Text = "" Then
MsgBox "请填写部门名称！", 48, "提示"
Exit Sub
End If
For i = 1 To Me.Combo1.ListCount
If Me.Text1.Text = Me.Combo1.List(i) Then
MsgBox "该名称已经存在，不能重复添加！", 48, "提示"
Exit Sub
End If
Next
Call OpenConn
SQL = "select * from 单位设置 where 单位名称='" & Me.Combo1.Text & "' and 部门名称='" & Me.Text1.Text & "'"
rs.Open SQL, cn, 1, 1
If rs.RecordCount > 0 Then
MsgBox "该名称已经存在，不能重复添加！", 48, "提示"
Exit Sub
End If
Call CloseConn
If Me.Combo1.Text = "作为新单位添加" Then
Call OpenConn
SQL = "select * from 单位设置 where 部门名称='" & Me.Text1.Text & "'"
rs.Open SQL, cn, 1, 1
If rs.RecordCount > 0 Then
MsgBox "该名称已在部门名称中存在，不能做新单位添加！", 48, "提示"
Exit Sub
End If
Call CloseConn
End If
Call OpenConn
SQL = "select * from 单位设置"
rs.Open SQL, cn, 3, 3
If Me.Combo1.Text = "作为新单位添加" Then
rs.AddNew
rs!单位名称 = Me.Text1.Text
rs!部门名称 = Me.Text1.Text
rs!Root = 0
rs.Update
Else
rs.AddNew
rs!单位名称 = Me.Combo1.Text
rs!部门名称 = Me.Text1.Text
rs!Root = 1
rs.Update
End If
Call CloseConn
Me.Text1.Text = ""
Call addLIST
Call addCOM
Cdid = 0
End Sub
Private Sub Form_Load()
Me.Caption = gXtmc
Me.Icon = MDIfrm.Icon '图标
Me.picLEFT.Picture = LoadPicture(App.Path & "\bg\bg1.jpg")
With Me.ListView1
.ColumnHeaders.Add = "ID"
.ColumnHeaders.Add = "顺序号"
.ColumnHeaders.Add = "单位名称"
.ColumnHeaders.Add = "部门名称"
.ColumnHeaders(1).Width = 0
.ColumnHeaders(2).Width = 800
.ColumnHeaders(3).Width = 2000
.ColumnHeaders(4).Width = 2000
End With
Call addLIST
Call addCOM
End Sub
Private Sub addLIST()
Me.ListView1.ListItems.Clear
i = 1
Call OpenConn
SQL = "select * from 单位设置 where root=1 ORDER BY 单位名称 ASC"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Set addLVW = Me.ListView1.ListItems.Add(, , rs!dwid)
addLVW.SubItems(1) = i
addLVW.SubItems(2) = rs!单位名称
addLVW.SubItems(3) = rs!部门名称
rs.MoveNext
i = i + 1
Loop
Call CloseConn
End Sub
Private Sub addCOM()
Me.Combo1.Clear
Me.Combo1.AddItem "作为新单位添加"
Call OpenConn
SQL = "select * from 单位设置 where root=0"
rs.Open SQL, cn, 1, 1
Do While Not rs.EOF
Me.Combo1.AddItem rs!单位名称
rs.MoveNext
Loop
Call CloseConn
'Me.Combo1.ListIndex = 0 'combox初始值为第0项
End Sub
Private Sub ListView1_Click()
If Me.ListView1.ListItems.Count <= 0 Then Exit Sub
Cdid = Me.ListView1.SelectedItem
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -