main_rsgl_rsbd_lr.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:11k
- 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 main_rsgl_rsbd_lr
- BorderStyle = 3 'Fixed Dialog
- Caption = "添加调动信息"
- ClientHeight = 2190
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 7710
- Icon = "main_rsgl_rsbd_lr.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2190
- ScaleWidth = 7710
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin VB.CommandButton Command2
- Caption = "取消"
- Height = 390
- Left = 3885
- TabIndex = 11
- Top = 1560
- Width = 1950
- End
- Begin VB.CommandButton Command1
- Caption = "确定"
- Height = 390
- Left = 1815
- TabIndex = 10
- Top = 1560
- Width = 1950
- End
- Begin VB.Frame Frame1
- Height = 1440
- Left = 30
- TabIndex = 0
- Top = -30
- Width = 7665
- Begin VB.TextBox Txt1
- Height = 300
- Left = 885
- Locked = -1 'True
- TabIndex = 2
- Top = 210
- Width = 6345
- End
- Begin VB.CommandButton cmdDept
- Caption = "…"
- Height = 300
- Left = 7230
- TabIndex = 1
- Top = 210
- Width = 315
- End
- Begin MSDataListLib.DataCombo DataCombo1
- Bindings = "main_rsgl_rsbd_lr.frx":000C
- Height = 330
- Left = 885
- TabIndex = 3
- Top = 585
- Width = 2625
- _ExtentX = 4630
- _ExtentY = 582
- _Version = 393216
- ListField = "工种"
- Text = ""
- End
- Begin MSDataListLib.DataCombo DataCombo2
- Bindings = "main_rsgl_rsbd_lr.frx":0021
- Height = 330
- Left = 4290
- TabIndex = 4
- Top = 585
- Width = 3255
- _ExtentX = 5741
- _ExtentY = 582
- _Version = 393216
- ListField = "职务名称"
- Text = ""
- End
- Begin MSDataListLib.DataCombo DataCombo3
- Bindings = "main_rsgl_rsbd_lr.frx":0036
- Height = 330
- Left = 885
- TabIndex = 5
- Top = 990
- Width = 6645
- _ExtentX = 11721
- _ExtentY = 582
- _Version = 393216
- ListField = "职称名称"
- Text = ""
- End
- Begin VB.Label Label21
- Caption = "新部门:"
- Height = 165
- Left = 135
- TabIndex = 9
- Top = 240
- Width = 735
- End
- Begin VB.Label Label22
- Caption = "新工种:"
- Height = 165
- Left = 135
- TabIndex = 8
- Top = 675
- Width = 735
- End
- Begin VB.Label Label23
- Caption = "新职务:"
- Height = 165
- Left = 3600
- TabIndex = 7
- Top = 660
- Width = 735
- End
- Begin VB.Label Label24
- Caption = "新职称:"
- Height = 165
- Left = 135
- TabIndex = 6
- Top = 1065
- Width = 720
- End
- End
- Begin MSAdodcLib.Adodc Adodc1
- Height = 330
- Left = 15
- Top = 1245
- Visible = 0 'False
- Width = 2595
- _ExtentX = 4577
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- 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 MSAdodcLib.Adodc Adodc2
- Height = 330
- Left = -45
- Top = 1620
- Visible = 0 'False
- Width = 2595
- _ExtentX = 4577
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- 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 MSAdodcLib.Adodc Adodc3
- Height = 330
- Left = -60
- Top = 1935
- Visible = 0 'False
- Width = 2595
- _ExtentX = 4577
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 2
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- 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
- End
- Attribute VB_Name = "main_rsgl_rsbd_lr"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Activate()
- If deptMark = 1 Then
- DataCombo1.SetFocus
- Else
- Txt1.SetFocus
- End If
- End Sub
- Private Sub cmdDept_Click()
- deptMark = 1
- Load main_datatree
- main_datatree.Show 1
- End Sub
- Private Sub Command1_Click()
- Cnn.Execute ("update 人事表 set 部门='" + Txt1 + "',工种='" + DataCombo1 + "',职务='" + DataCombo2 + _
- "',职称='" + DataCombo3 + "'where 编号='" + main_rsgl_rsbd.Text1(0) + "'")
- With main_rsgl_rsbd
- Cnn.Execute ("insert into 人事调动表(职员编号,职员姓名,原部门,现部门,原工种,原职务,原职称,现工种,现职务,现职称,调动时间,登记人)values('" + _
- .Text1(0) + "','" + .Text1(1) + "','" + .Text1(2) + "','" + Txt1 + "','" + .Text1(3) + "','" + .Text1(4) + "','" + .Text1(5) + _
- "','" + DataCombo1 + "','" + DataCombo2 + "','" + DataCombo3 + "','" + str(Date) + "','" + czy + "')")
- .Adodc1.Refresh
- End With
- Unload Me
- End Sub
- Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyReturn Then DataCombo2.SetFocus
- End Sub
- Private Sub DataCombo2_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyReturn Then DataCombo3.SetFocus
- End Sub
- Private Sub DataCombo3_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyReturn Then Command1.SetFocus
- End Sub
- Private Sub Txt1_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyReturn Then cmdDept.SetFocus
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub