📄 frmmodijiashu.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{B25498A2-5592-11D3-8644-DA5FB01D9D37}#1.2#0"; "EXRAINBUTTON6.OCX"
Begin VB.Form FrmModiJiaShu
BackColor = &H00C0C0C0&
Caption = "修改休假天数"
ClientHeight = 6900
ClientLeft = 60
ClientTop = 345
ClientWidth = 9780
LinkTopic = "Form2"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 6900
ScaleWidth = 9780
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
BackColor = &H00C0C0C0&
ForeColor = &H000000FF&
Height = 975
Left = 7440
TabIndex = 11
Top = 5280
Width = 2175
Begin ExRainButton.RainButton Command2
Height = 615
Left = 1080
TabIndex = 13
Top = 240
Width = 855
_ExtentX = 1508
_ExtentY = 1085
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "结束"
End
Begin ExRainButton.RainButton Command1
Height = 615
Left = 120
TabIndex = 12
Top = 240
Width = 855
_ExtentX = 1508
_ExtentY = 1085
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "确定"
End
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 10
Top = 6405
Width = 9780
_ExtentX = 17251
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 12347
MinWidth = 12347
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "02-10-7"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "9:42"
EndProperty
EndProperty
End
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "修改休假天数"
ForeColor = &H000000FF&
Height = 3735
Left = 2160
TabIndex = 1
Top = 1680
Width = 6135
Begin VB.TextBox TianShu
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
TabIndex = 9
Top = 2760
Width = 1575
End
Begin VB.TextBox JiaLei
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
TabIndex = 7
Top = 1920
Width = 1575
End
Begin VB.ComboBox Xingming
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1800
TabIndex = 5
Top = 1200
Width = 1575
End
Begin VB.TextBox Bumen
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1800
TabIndex = 4
Top = 420
Width = 1575
End
Begin VB.Label Label5
BackColor = &H00C0C0C0&
Caption = "天数："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 8
Top = 2760
Width = 735
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "假期类型："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 720
TabIndex = 6
Top = 1995
Width = 1095
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "部门："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 3
Top = 480
Width = 735
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1080
TabIndex = 2
Top = 1245
Width = 735
End
End
Begin VB.Label Label1
BackColor = &H80000012&
Caption = "修改休假天数"
BeginProperty Font
Name = "宋体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 975
Left = 2640
TabIndex = 0
Top = 240
Width = 5295
End
End
Attribute VB_Name = "FrmModiJiaShu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public RstShuju As ADODB.Recordset
Public Cnnshuju As ADODB.Connection
Private Sub bumen_Change()
If Bumen.Text = "1" Then
Bumen.Text = "筹建处"
End If
If Bumen.Text = "2" Then
Bumen.Text = "管理处"
End If
If Bumen.Text = "3" Then
Bumen.Text = "会所"
End If
End Sub
Private Sub bumen_GotFocus()
StatusBar1.Panels(1).Text = "1、筹建处 2、管理处 3、会所"
End Sub
Private Sub bumen_LostFocus()
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub Command1_Click()
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from qingjiatianshu where bumen='" + Bumen.Text + "'and xingming='" + XingMing.Text + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
If Not RstShuju.EOF Then
If Jialei.Text = "月假" Then
RstShuju.Fields(1) = Jialei.Text
End If
If Jialei.Text = "年假" Then
RstShuju.Fields(2) = Jialei.Text
End If
If Jialei.Text = "事假" Then
RstShuju.Fields(3) = Jialei.Text
End If
If Jialei.Text = "病假" Then
RstShuju.Fields(4) = Jialei.Text
End If
RstShuju.UpdateBatch
MsgBox "数据已保存！", vbOKOnly, "提醒！！"
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set Cnnshuju = New ADODB.Connection
Cnnshuju.Open "kaoqin1", "sa", ""
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from qingjiatianshu", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
End Sub
Private Sub Jialei_Change()
If Jialei.Text = "1" Then
Jialei.Text = "月假"
End If
If Jialei.Text = "2" Then
Jialei.Text = "病假"
End If
If Jialei.Text = "3" Then
Jialei.Text = "事假"
End If
If Jialei.Text = "4" Then
Jialei.Text = "年假"
End If
End Sub
Private Sub Jialei_GotFocus()
StatusBar1.Panels(1).Text = "1、月假 2、病假 3、事假 4、年假"
End Sub
Private Sub Jialei_LostFocus()
StatusBar1.Panels(1).Text = ""
End Sub
Private Sub Xingming_GotFocus()
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select xingming from cardinfo where bumen='" + Bumen.Text + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not RstShuju.EOF
XingMing.AddItem RstShuju!XingMing
RstShuju.MoveNext
Loop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -