English
- VERSION 5.00
- 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_yyxx
- BorderStyle = 3 'Fixed Dialog
- Caption = "员工信息"
- ClientHeight = 3840
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 5925
- Icon = "main_yyxx.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3840
- ScaleWidth = 5925
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin VB.CommandButton Command2
- Caption = "取消"
- Height = 390
- Left = 3105
- TabIndex = 7
- Top = 3285
- Width = 1695
- End
- Begin VB.CommandButton Command1
- Caption = "确定"
- Height = 390
- Left = 1260
- TabIndex = 6
- Top = 3285
- Width = 1695
- End
- Begin VB.Frame Frame1
- Caption = "选择员工信息"
- Height = 825
- Left = 60
- TabIndex = 0
- Top = 90
- Width = 5820
- Begin VB.TextBox Text1
- Height = 330
- Index = 1
- Left = 2670
- Locked = -1 'True
- TabIndex = 4
- Top = 330
- Width = 3045
- End
- Begin VB.TextBox Text1
- Height = 330
- Index = 0
- Left = 630
- Locked = -1 'True
- TabIndex = 2
- Top = 330
- Width = 1380
- End
- Begin VB.Label Label2
- Caption = "姓名："
- Height = 225
- Left = 2115
- TabIndex = 3
- Top = 405
- Width = 585
- End
- Begin VB.Label Label1
- Caption = "编号："
- Height = 225
- Left = 90
- TabIndex = 1
- Top = 390
- Width = 585
- End
- End
- Begin MSAdodcLib.Adodc Adodc1
- Height = 330
- Left = 765
- Top = 2685
- Visible = 0 'False
- Width = 2040
- _ExtentX = 3598
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 1
- 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 = "select * from 人事表 order by 编号"
- 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_yyxx.frx":000C
- Height = 2190
- Left = 60
- TabIndex = 5
- Top = 915
- Width = 5820
- _ExtentX = 10266
- _ExtentY = 3863
- _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 = 599.811
- EndProperty
- BeginProperty Column01
- ColumnWidth = 3344.882
- EndProperty
- EndProperty
- End
- End
- Attribute VB_Name = "main_yyxx"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Select Case Me.Tag
- Case 1
- main_rsgl_pxgl_lr.Text1(0) = Text1(0)
- main_rsgl_pxgl_lr.Text1(1) = Text1(1)
- Load main_rsgl_pxgl_lr
- main_rsgl_pxgl_lr.Show 1
- Unload Me
- Case 2
- main_rsgl_khgl_lr.Text1(0) = Text1(0)
- main_rsgl_khgl_lr.Text1(1) = Text1(1)
- Load main_rsgl_khgl_lr
- main_rsgl_khgl_lr.Show 1
- Unload Me
- Case 3
- HTygbh = Text1(0)
- main_rsgl_htgl_lr.Text1(1) = Text1(0)
- main_rsgl_htgl_lr.Text1(2) = Text1(1)
- Load main_rsgl_htgl_lr
- main_rsgl_htgl_lr.Show 1
- Unload Me
- Case 4
- PYygbh = Text1(0)
- main_rsgl_pygl_lr.Text1(1) = Text1(0)
- main_rsgl_pygl_lr.Text1(2) = Text1(1)
- Load main_rsgl_pygl_lr
- main_rsgl_pygl_lr.Show 1
- Unload Me
- Case 5
- main_rsgl_bxgl_lr.Text1(0) = Text1(0)
- main_rsgl_bxgl_lr.Text1(1) = Text1(1)
- Load main_rsgl_bxgl_lr
- main_rsgl_bxgl_lr.Show 1
- Unload Me
- Case 6
- main_gzgl_jlgl_lr.Text1(0) = Text1(0)
- main_gzgl_jlgl_lr.Text1(1) = Text1(1)
- Load main_gzgl_jlgl_lr
- main_gzgl_jlgl_lr.Show 1
- Unload Me
- Case 7
- main_gzgl_cfgl_lr.Text1(0) = Text1(0)
- main_gzgl_cfgl_lr.Text1(1) = Text1(1)
- Load main_gzgl_cfgl_lr
- main_gzgl_cfgl_lr.Show 1
- Unload Me
- End Select
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub
- Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
- With Adodc1.Recordset
- If .RecordCount > 0 Then
- Text1(0) = .Fields("编号")
- Text1(1) = .Fields("姓名")
- End If
- End With
- End Sub
- Private Sub Form_Load()
- DataGrid1_RowColChange 0, 0
- End Sub
