【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:Main_Ysgl.frm绩等信息,祝愿广大网友取得需要的信息,参考学习。
VERSION 5.00
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Main_Ysgl
BackColor = &H00C0EAFC&
Caption = "数据维护-医生管理"
ClientHeight = 4110
ClientLeft = 2220
ClientTop = 2460
ClientWidth = 7695
Icon = "Main_Ysgl.frx":0000
LinkTopic = "Form1"
ScaleHeight = 4110
ScaleWidth = 7695
StartUpPosition = 1 '所有者中心
Begin VB.ComboBox Combo1
Height = 300
Left = 180
TabIndex = 9
Top = 990
Width = 1485
End
Begin VB.TextBox Text1
Height = 300
Left = 1695
TabIndex = 8
Top = 990
Width = 4245
End
Begin VB.CommandButton CmdFind
Caption = "(&F)
查询"
Height = 375
Left = 6030
TabIndex = 7
Top = 945
Width = 1380
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "Main_Ysgl.frx":000C
Height = 2115
Left = 165
TabIndex = 4
Top = 1365
Width = 7290
_ExtentX = 12859
_ExtentY = 3731
_Version = 393216
BackColor = 12643068
ForeColor = 0
Cols = 9
FixedCols = 0
BackColorFixed = 8421376
ForeColorFixed = 16777215
BackColorSel = 8388608
BackColorBkg = 12643068
GridColor = 12632256
SelectionMode = 1
_NumberOfBands = 1
_Band(0).Cols = 9
_Band(0)._NumMapCols= 9
_Band(0)._MapCol(0)._Name= "编号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= ""
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "拼音码"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(3)._Name= "性别"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(4)._Name= "职称"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(5)._Name= "职务"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(6)._Name= "联系电话"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(7)._Name= "所在科室"
_Band(0)._MapCol(7)._RSIndex= 7
_Band(0)._MapCol(8)._Name= "兼职科室"
_Band(0)._MapCol(8)._RSIndex= 8
End
Begin MSAdodcLib.Adodc Adodc1
Height = 345
Left = -300
Top = 2265
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 609
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=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Pass
word = ""
RecordSource = "select * from 医生信息表"
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 VB.CommandButton CmdEnd
Caption = "(&E)返回"
Height = 375
Left = 5295
TabIndex = 2
Top = 3630
Width = 2160
End
Begin VB.CommandButton CmdDelete
Caption = "(&D)删除"
Height = 375
Left = 2970
TabIndex = 1
Top = 3630
Width = 1380
End
Begin
VB.CommandButton CmdModify
Caption = "(&M)修改"
Height = 375
Left = 1605
TabIndex = 3
Top = 3630
Width = 1380
End
Begin VB.CommandButton CmdAdd
Caption = "(&A)新增医生"
Height = 375
Left = 240
TabIndex = 0
Top = 3630
Width = 1380
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00CFFEE2&
BorderStyle = 1 'Fixed Single
Caption = " 医生管理"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 450
Left = 2085
TabIndex = 5
Top = 210
Width = 3540
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 450
Left = 2130
TabIndex = 6
Top = 255
Width = 3540
End
End
Attribute VB_Name = "Main_Ysgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Combo1.AddItem ("编号")
Combo1.AddItem ("")
Combo1.AddItem ("电话")
Combo1.AddItem ("科室")
Combo1.ListIndex = 0
End Sub
Private Sub CmdAdd_Click()
Lo