main_jbzl_khlx.frm
上传用户：wd52qq
上传日期：2022-07-24
资源大小：5366k
文件大小：14k
- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Begin VB.Form main_jbzl_khlx
- BorderStyle = 3 'Fixed Dialog
- Caption = "Form1"
- ClientHeight = 3945
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 8205
- Icon = "main_jbzl_khlx.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3945
- ScaleWidth = 8205
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin MSAdodcLib.Adodc Adodc1
- Height = 330
- Left = 15
- Top = 3120
- Visible = 0 'False
- Width = 2040
- _ExtentX = 3598
- _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 MSDataGridLib.DataGrid DataGrid1
- Bindings = "main_jbzl_khlx.frx":000C
- Height = 2505
- Left = 15
- TabIndex = 4
- Top = 1410
- Width = 8160
- _ExtentX = 14393
- _ExtentY = 4419
- _Version = 393216
- AllowUpdate = 0 'False
- HeadLines = 1
- RowHeight = 15
- FormatLocked = -1 'True
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 2
- BeginProperty Column00
- DataField = "编号"
- Caption = "编号"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column01
- DataField = "考核项目"
- Caption = "考核项目"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- SplitCount = 1
- BeginProperty Split0
- MarqueeStyle = 4
- BeginProperty Column00
- ColumnWidth = 2115.213
- EndProperty
- BeginProperty Column01
- ColumnWidth = 5339.906
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.ImageList ImageList1
- Left = 0
- Top = 2550
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 32
- ImageHeight = 32
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 8
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":0021
- Key = ""
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":08FB
- Key = ""
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":11D5
- Key = ""
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":1AAF
- Key = ""
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":2789
- Key = ""
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":3063
- Key = ""
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":37DD
- Key = ""
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "main_jbzl_khlx.frx":44B7
- Key = ""
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.Toolbar Toolbar1
- Align = 1 'Align Top
- Height = 795
- Left = 0
- TabIndex = 6
- Top = 0
- Width = 8205
- _ExtentX = 14473
- _ExtentY = 1402
- ButtonWidth = 1138
- ButtonHeight = 1349
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 11
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = " 增加 "
- Key = "add"
- ImageIndex = 1
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "修改"
- Key = "modify"
- ImageIndex = 2
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "删除"
- Key = "delete"
- ImageIndex = 3
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存"
- Key = "save"
- ImageIndex = 4
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "取消"
- Key = "cancel"
- ImageIndex = 5
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "查找"
- Key = "find"
- ImageIndex = 6
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "全部"
- Key = "all"
- ImageIndex = 7
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "关闭"
- Key = "close"
- ImageIndex = 8
- EndProperty
- EndProperty
- BorderStyle = 1
- End
- Begin VB.Frame Frame1
- Height = 585
- Left = 15
- TabIndex = 0
- Top = 810
- Width = 8175
- Begin VB.TextBox Text1
- Height = 330
- Index = 1
- Left = 3120
- Locked = -1 'True
- TabIndex = 3
- Top = 165
- Width = 4815
- End
- Begin VB.TextBox Text1
- Height = 330
- Index = 0
- Left = 735
- Locked = -1 'True
- TabIndex = 2
- Top = 165
- Width = 1530
- End
- Begin VB.Label Label2
- Caption = "考核项目"
- ForeColor = &H000000FF&
- Height = 165
- Left = 2340
- TabIndex = 5
- Top = 225
- Width = 975
- End
- Begin VB.Label Label1
- Caption = "编号"
- ForeColor = &H000000FF&
- Height = 165
- Left = 180
- TabIndex = 1
- Top = 240
- Width = 435
- End
- End
- End
- Attribute VB_Name = "main_jbzl_khlx"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Dim rs1 As New ADODB.Recordset
- Public blnAdd As Boolean
- Dim mybookmark
- Sub view_data()
- Dim sdate, edate
- Dim i As Integer
- If Adodc1.Recordset.RecordCount > 0 Then
- For i = 0 To 1
- Text1(i) = DataGrid1.Columns(i).text
- Next i
- End If
- End Sub
- Sub tlbState(state As Boolean)
- With Toolbar1
- If state = True Then
- .Buttons(1).Enabled = False
- .Buttons(2).Enabled = False
- .Buttons(3).Enabled = False
- .Buttons(5).Enabled = True
- .Buttons(6).Enabled = True
- For i = 1 To Text1.UBound
- Text1(i).Locked = False
- Next i
- Else
- .Buttons(1).Enabled = True
- .Buttons(2).Enabled = True
- .Buttons(3).Enabled = True
- .Buttons(5).Enabled = False
- .Buttons(6).Enabled = False
- For i = 1 To Text1.UBound
- Text1(i).Locked = True
- Next i
- End If
- End With
- End Sub
- Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
- view_data
- End Sub
- Private Sub Form_Activate()
- If sql <> "" Then
- Adodc1.RecordSource = sql
- Adodc1.Refresh
- If Adodc1.Recordset.RecordCount > 0 Then
- view_data
- Else
- MsgBox "没有找到符合条件的记录！", , "提示窗口"
- End If
- End If
- End Sub
- Private Sub Form_Load()
- Me.Caption = text
- tlbState False
- End Sub
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- sql = ""
- End Sub
- Private Sub Text1_GotFocus(Index As Integer)
- Text1(Index).BackColor = &HFFFF00
- Text1(Index).SelStart = 0
- Text1(Index).SelLength = Len(Text1(Index))
- End Sub
- Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyReturn And Index < 1 Then Text1(Index + 1).SetFocus
- End Sub
- Private Sub Text1_LostFocus(Index As Integer)
- Text1(Index).BackColor = &H80000005
- End Sub
- Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "add"
- blnAdd = True
- tlbState True
- rs1.Open "select * from 考核项目表", Cnn, adOpenStatic
- If rs1.RecordCount > 0 Then
- rs1.MoveLast
- Text1(0) = Format(Val(rs1.Fields("编号")) + 1, "00")
- Else
- Text1(0) = "01"
- End If
- rs1.Close
- For i = 1 To Text1.UBound
- Text1(i) = ""
- Next i
- Text1(1).SetFocus
- Case "modify"
- If Adodc1.Recordset.RecordCount > 0 Then
- blnAdd = False
- tlbState True
- view_data
- mybookmark = DataGrid1.Bookmark
- Else
- MsgBox "系统没有要修改的数据！", , "提示窗口"
- End If
- Case "delete"
- If Adodc1.Recordset.RecordCount > 0 Then
- Adodc1.Recordset.Delete
- Adodc1.Refresh
- Else
- MsgBox "系统没有要删除的数据！", , "提示窗口"
- End If
- Case "save"
- On Error GoTo SaveErr
- If blnAdd = True Then
- Cnn.Execute ("insert into 考核项目表(编号,考核项目) values('" + Text1(0) + "','" + Text1(1) + "')")
- Adodc1.Refresh
- tlbState False
- Else
- Cnn.Execute ("update 考核项目表 set 考核项目 ='" + Text1(1) + "'where 编号='" + Text1(0) + "'")
- Adodc1.Refresh
- DataGrid1.Bookmark = mybookmark
- view_data
- tlbState False
- End If
- Exit Sub
- SaveErr:
- MsgBox Err.Description
- Case "cancel"
- tlbState False
- Case "find"
- tb = "考核项目表"
- Load main_find
- main_find.Show 1
- Case "all"
- Adodc1.RecordSource = "考核项目表 order by 编号"
- Adodc1.Refresh
- Case "close"
- Unload Me
- End Select
- End Sub
English
