www.pudn.com > 西南医院.rar > FrmAdd2.frm
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmAdd2
Caption = "就诊资料登记"
ClientHeight = 6975
ClientLeft = 60
ClientTop = 345
ClientWidth = 9645
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6975
ScaleWidth = 9645
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 7320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6240
Visible = 0 'False
Width = 2055
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "F:\yanganquan\message.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 300
Left = 7320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "case"
Top = 5880
Visible = 0 'False
Width = 1815
End
Begin VB.CommandButton Command10
Caption = "保存"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5880
TabIndex = 68
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command9
Caption = "删除"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4005
TabIndex = 67
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command8
Caption = "修改"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2115
TabIndex = 66
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command7
Caption = "添加"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 65
Top = 6480
Width = 1215
End
Begin VB.CommandButton Command6
Caption = ">>"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5880
TabIndex = 64
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command5
Caption = ">"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4005
TabIndex = 63
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "<"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2115
TabIndex = 62
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "<<"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 61
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command11
Caption = "关闭"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7920
TabIndex = 60
Top = 6480
Width = 1215
End
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 0
TabIndex = 0
Top = 0
Width = 9645
_ExtentX = 17013
_ExtentY = 9975
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "就诊资料添加"
TabPicture(0) = "FrmAdd2.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label5"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label6"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label7"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label8"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label9"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label30"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Text1"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Text2"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Text3"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Text4"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Text5"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Text7"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Text6"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Text8"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Text9"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Command1"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).ControlCount= 20
TabCaption(1) = "检验检查"
TabPicture(1) = "FrmAdd2.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command12"
Tab(1).Control(1)= "Frame1"
Tab(1).Control(2)= "CommonDialog1"
Tab(1).Control(3)= "Command2"
Tab(1).Control(4)= "Text18"
Tab(1).Control(5)= "Text17"
Tab(1).Control(6)= "Text16"
Tab(1).Control(7)= "Text15"
Tab(1).Control(8)= "Text14"
Tab(1).Control(9)= "Text13"
Tab(1).Control(10)= "Text12"
Tab(1).Control(11)= "Text11"
Tab(1).Control(12)= "Text10"
Tab(1).Control(13)= "Text28"
Tab(1).Control(14)= "Text27"
Tab(1).Control(15)= "Text26"
Tab(1).Control(16)= "Text25"
Tab(1).Control(17)= "Text24"
Tab(1).Control(18)= "Text23"
Tab(1).Control(19)= "Text22"
Tab(1).Control(20)= "Text21"
Tab(1).Control(21)= "Text20"
Tab(1).Control(22)= "Text19"
Tab(1).Control(23)= "Label29"
Tab(1).Control(24)= "Label28"
Tab(1).Control(25)= "Label27"
Tab(1).Control(26)= "Label26"
Tab(1).Control(27)= "Label25"
Tab(1).Control(28)= "Label24"
Tab(1).Control(29)= "Label23"
Tab(1).Control(30)= "Label22"
Tab(1).Control(31)= "Label21"
Tab(1).Control(32)= "Label20"
Tab(1).Control(33)= "Label19"
Tab(1).Control(34)= "Label18"
Tab(1).Control(35)= "Label17"
Tab(1).Control(36)= "Label16"
Tab(1).Control(37)= "Label15"
Tab(1).Control(38)= "Label14"
Tab(1).Control(39)= "Label13"
Tab(1).Control(40)= "Label12"
Tab(1).Control(41)= "Label11"
Tab(1).Control(42)= "Label10"
Tab(1).ControlCount= 43
Begin VB.CommandButton Command12
Caption = "删除图片..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -67440
TabIndex = 71
Top = 1920
Width = 1095
End
Begin VB.Frame Frame1
Caption = "X线照片"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = -69720
TabIndex = 69
Top = 2400
Width = 4335
Begin VB.Image Image1
Height = 2900
Left = 100
Stretch = -1 'True
Top = 200
Width = 4100
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = -66360
Top = 1080
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = "2"
End
Begin VB.CommandButton Command2
Caption = "添加图片..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -68880
TabIndex = 59
Top = 1920
Width = 1095
End
Begin VB.TextBox Text18
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 58
Top = 5040
Width = 1455
End
Begin VB.TextBox Text17
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 57
Top = 4470
Width = 1455
End
Begin VB.TextBox Text16
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 56
Top = 3900
Width = 1455
End
Begin VB.TextBox Text15
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 55
Top = 3330
Width = 1455
End
Begin VB.TextBox Text14
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 54
Top = 2760
Width = 1455
End
Begin VB.TextBox Text13
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 53
Top = 2190
Width = 1455
End
Begin VB.TextBox Text12
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 52
Top = 1620
Width = 1455
End
Begin VB.TextBox Text11
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 51
Top = 1050
Width = 1455
End
Begin VB.TextBox Text10
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -73920
TabIndex = 50
Top = 480
Width = 1455
End
Begin VB.TextBox Text28
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = -69480
TabIndex = 49
Top = 720
Width = 3015
End
Begin VB.TextBox Text27
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 48
Top = 5040
Width = 1455
End
Begin VB.TextBox Text26
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 47
Top = 4470
Width = 1455
End
Begin VB.TextBox Text25
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 46
Top = 3900
Width = 1455
End
Begin VB.TextBox Text24
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 45
Top = 3330
Width = 1455
End
Begin VB.TextBox Text23
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 44
Top = 2760
Width = 1455
End
Begin VB.TextBox Text22
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 43
Top = 2190
Width = 1455
End
Begin VB.TextBox Text21
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 42
Top = 1620
Width = 1455
End
Begin VB.TextBox Text20
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 41
Top = 1050
Width = 1455
End
Begin VB.TextBox Text19
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = -71400
TabIndex = 40
Top = 480
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "添加..."
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 19
Top = 3960
Width = 1215
End
Begin VB.TextBox Text9
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 6240
TabIndex = 18
Top = 600
Width = 1455
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6240
MultiLine = -1 'True
TabIndex = 17
Top = 1296
Width = 3135
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 6240
MultiLine = -1 'True
TabIndex = 16
Top = 2207
Width = 3135
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 840
MultiLine = -1 'True
TabIndex = 15
Top = 4440
Width = 8655
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6240
MultiLine = -1 'True
TabIndex = 14
Top = 3480
Width = 3135
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 960
MultiLine = -1 'True
TabIndex = 13
Top = 2640
Width = 3135
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 960
MultiLine = -1 'True
TabIndex = 12
Top = 1776
Width = 3135
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 960
Locked = -1 'True
TabIndex = 11
Top = 1128
Width = 1215
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 960
TabIndex = 10
Top = 480
Width = 1215
End
Begin VB.Label Label30
Caption = "【如:1988-08-16】"
Height = 375
Left = 7920
TabIndex = 70
Top = 600
Width = 1455
End
Begin VB.Label Label29
Caption = "X线照片"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69720
TabIndex = 39
Top = 2040
Width = 855
End
Begin VB.Label Label28
Caption = "X片报告:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -69720
TabIndex = 38
Top = 480
Width = 855
End
Begin VB.Label Label27
Caption = "肾 功"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 37
Top = 5040
Width = 855
End
Begin VB.Label Label26
Caption = "尿常规"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 36
Top = 4470
Width = 855
End
Begin VB.Label Label25
Caption = "IgA(g/L)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 35
Top = 3900
Width = 855
End
Begin VB.Label Label24
Caption = "IgM(g/L)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 34
Top = 3330
Width = 855
End
Begin VB.Label Label23
Caption = "IgG(g/L)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 33
Top = 2760
Width = 855
End
Begin VB.Label Label22
Caption = "C4(g/L)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 32
Top = 2190
Width = 855
End
Begin VB.Label Label21
Caption = "C3(g/L)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 31
Top = 1620
Width = 855
End
Begin VB.Label Label20
Caption = "ANCA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 30
Top = 1050
Width = 855
End
Begin VB.Label Label19
Caption = "ASO(IU/ml)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -72240
TabIndex = 29
Top = 480
Width = 855
End
Begin VB.Label Label18
Caption = "肝 功"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 28
Top = 5040
Width = 855
End
Begin VB.Label Label17
Caption = "血常规"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 27
Top = 4470
Width = 855
End
Begin VB.Label Label16
Caption = "ENA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 26
Top = 3900
Width = 855
End
Begin VB.Label Label15
Caption = "ds-DNA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 25
Top = 3330
Width = 855
End
Begin VB.Label Label14
Caption = "ANA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 24
Top = 2760
Width = 855
End
Begin VB.Label Label13
Caption = "ESR(mm/h)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 23
Top = 2190
Width = 855
End
Begin VB.Label Label12
Caption = "AKA"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 22
Top = 1620
Width = 855
End
Begin VB.Label Label11
Caption = "CCP(IU/ml)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 21
Top = 1050
Width = 855
End
Begin VB.Label Label10
Caption = "RF(IU/ml)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = -74880
TabIndex = 20
Top = 480
Width = 855
End
Begin VB.Label Label9
Caption = "用药情况"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 9
Top = 3960
Width = 975
End
Begin VB.Label Label8
Caption = "体格检测"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 8
Top = 2520
Width = 975
End
Begin VB.Label Label7
Caption = "既往史"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 7
Top = 1560
Width = 975
End
Begin VB.Label Label6
Caption = "就诊时间"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 6
Top = 600
Width = 975
End
Begin VB.Label Label5
Caption = "诊 断"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 5
Top = 3480
Width = 975
End
Begin VB.Label Label4
Caption = "现病史"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 4
Top = 2880
Width = 975
End
Begin VB.Label Label3
Caption = "主 诉"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 3
Top = 2080
Width = 975
End
Begin VB.Label Label2
Caption = "姓 名"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 2
Top = 1280
Width = 975
End
Begin VB.Label Label1
Caption = "ID 号"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 1
Top = 480
Width = 975
End
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 0
X2 = 9600
Y1 = 5720
Y2 = 5720
End
Begin VB.Line Line1
X1 = 0
X2 = 9600
Y1 = 5700
Y2 = 5700
End
End
Attribute VB_Name = "FrmAdd2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a '保存图片地址
Private Sub Command1_Click()
FrmAdd3.Show
End Sub
Private Sub Command10_Click()
If Text1.Text = "" Then
MsgBox "ID号不能为空", vbOKOnly + vbInformation, "系统信息"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "ID无效,请重输", vbOKOnly + vbInformation, "系统信息"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "请填写主诉", vbOKOnly + vbInformation, "系统信息"
Text3.SetFocus
Exit Sub
End If
If Text5.Text = "" Then
MsgBox "请填写诊断", vbOKOnly + vbInformation, "系统信息"
Text5.SetFocus
Exit Sub
End If
If Text7.Text = "" Then
MsgBox "请选择用药情况", vbOKOnly + vbInformation, "系统信息"
Text7.SetFocus
Exit Sub
End If
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = False
addnew '添加新记录
Data1.Recordset.Update
Data1.Refresh
MsgBox "保存成功", vbOKOnly + vbInformation, "系统消息"
disp '赋值
locked '锁定
End Sub
Private Sub Command11_Click()
Unload Me
FrmMdi.mnuadd2.Checked = False
End Sub
Private Sub Command12_Click()
a = ""
Image1.Picture = LoadPicture(none)
End Sub
Private Sub Command2_Click()
CommonDialog1.Filter = "图片文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
a = CommonDialog1.FileName
Image1.Picture = LoadPicture(a)
End If
End Sub
Private Sub Command3_Click()
If Data1.Recordset.RecordCount < 1 Then
MsgBox "数据库中没有数据", vbOKOnly + vbCritical, "系统消息"
Exit Sub
End If
Data1.Recordset.MoveFirst
disp '赋值
End Sub
Private Sub Command4_Click()
If Data1.Recordset.RecordCount < 1 Then
MsgBox "数据库中没有数据", vbOKOnly + vbCritical, "系统消息"
Exit Sub
End If
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
disp '赋值
End Sub
Private Sub Command5_Click()
If Data1.Recordset.RecordCount < 1 Then
MsgBox "数据库中没有数据", vbOKOnly + vbCritical, "系统消息"
Exit Sub
End If
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
disp '赋值
End Sub
Private Sub Command6_Click()
If Data1.Recordset.RecordCount < 1 Then
MsgBox "数据库中没有数据", vbOKOnly + vbCritical, "系统消息"
Exit Sub
End If
Data1.Recordset.MoveLast
disp '赋值
End Sub
Private Sub Command7_Click()
Data1.Recordset.addnew
clear '清空文本框
lockfalsh '解除锁定
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Text1.SetFocus
End Sub
Private Sub Command8_Click()
If Data1.Recordset.RecordCount < 1 Then
MsgBox "当前没有记录，无法修改", vbQuestion + vbCritical, "系统消息"
Exit Sub
End If
a = Data1.Recordset.Fields("X线照片") '保存原来图片地址
lockfalsh '解除锁定
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = True
Data1.Recordset.Edit
End Sub
Private Sub Command9_Click()
On Error GoTo err
If Data1.Recordset.RecordCount < 1 Then
MsgBox "数据库中没有数据", vbOKOnly + vbCritical, "系统消息"
Exit Sub
End If
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
disp '赋值
err:
If err.Number = 3021 Then
clear '清空文本框
MsgBox "无当前记录", vbOKOnly + vbCritical, "系统信息"
Exit Sub
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\message.mdb"
Data1.RecordSource = "case"
Data1.Refresh
Data2.DatabaseName = App.Path & "\message.mdb"
disp '赋值
locked '锁定
Command10.Enabled = False
Me.Height = 7380
Me.Width = 9765
End Sub
Sub disp() '赋值
On Error Resume Next
With Data1.Recordset
Text1.Text = .Fields("ID号")
Text3.Text = .Fields("主诉")
Text4.Text = .Fields("现病史")
Text5.Text = .Fields("诊断")
Text6.Text = .Fields("体格检查")
Text7.Text = .Fields("用药情况")
Text8.Text = .Fields("即往史")
Text9.Text = .Fields("就诊时间")
Text10.Text = .Fields("RF")
Text11.Text = .Fields("CCP")
Text12.Text = .Fields("AKA")
Text13.Text = .Fields("ESR")
Text14.Text = .Fields("ANA")
Text15.Text = .Fields("Ds-DNA")
Text16.Text = .Fields("ENA")
Text17.Text = .Fields("血常规")
Text18.Text = .Fields("肝功")
Text19.Text = .Fields("ASO")
Text20.Text = .Fields("ANCA")
Text21.Text = .Fields("C3")
Text22.Text = .Fields("C4")
Text23.Text = .Fields("IgG")
Text24.Text = .Fields("IgM")
Text25.Text = .Fields("IgA")
Text26.Text = .Fields("尿常规")
Text27.Text = .Fields("肾功")
Text28.Text = .Fields("X片报告")
'显示图片
If .Fields("X线照片") <> "" Then
Image1.Picture = LoadPicture(.Fields("X线照片"))
Else
Image1.Picture = LoadPicture(none)
End If
End With
End Sub
Sub addnew() '添加新记录
With Data1.Recordset
.Fields("ID号") = CStr(Text1.Text)
.Fields("主诉") = CStr(Text3.Text)
.Fields("现病史") = CStr(Text4.Text)
.Fields("诊断") = CStr(Text5.Text)
.Fields("体格检查") = CStr(Text6.Text)
.Fields("用药情况") = CStr(Text7.Text)
.Fields("即往史") = CStr(Text8.Text)
If Text9.Text <> "" Then
.Fields("就诊时间") = CDate(Text9.Text)
Else
.Fields("就诊时间") = Date
End If
.Fields("RF") = CStr(Text10.Text)
.Fields("CCP") = CStr(Text11.Text)
.Fields("AKA") = CStr(Text12.Text)
.Fields("ESR") = CStr(Text13.Text)
.Fields("ANA") = CStr(Text14.Text)
.Fields("Ds-DNA") = CStr(Text15.Text)
.Fields("ENA") = CStr(Text16.Text)
.Fields("血常规") = CStr(Text17.Text)
.Fields("肝功") = CStr(Text18.Text)
.Fields("ASO") = CStr(Text19.Text)
.Fields("ANCA") = CStr(Text20.Text)
.Fields("C3") = CStr(Text21.Text)
.Fields("C4") = CStr(Text22.Text)
.Fields("IgG") = CStr(Text23.Text)
.Fields("IgM") = CStr(Text24.Text)
.Fields("IgA") = CStr(Text25.Text)
.Fields("尿常规") = CStr(Text26.Text)
.Fields("肾功") = CStr(Text27.Text)
.Fields("X片报告") = CStr(Text28.Text)
.Fields("X线照片") = a
End With
End Sub
Sub locked() '锁定
Text3.locked = True
Text4.locked = True
Text5.locked = True
Text6.locked = True
Text7.locked = True
Text8.locked = True
Text9.locked = True
Text10.locked = True
Text11.locked = True
Text12.locked = True
Text13.locked = True
Text14.locked = True
Text15.locked = True
Text16.locked = True
Text17.locked = True
Text18.locked = True
Text19.locked = True
Text20.locked = True
Text21.locked = True
Text22.locked = True
Text23.locked = True
Text24.locked = True
Text25.locked = True
Text26.locked = True
Text27.locked = True
Text28.locked = True
Command1.Enabled = False
Command2.Enabled = False
Command12.Enabled = False
End Sub
Sub lockfalsh() '解除锁定
Text3.locked = False
Text4.locked = False
Text5.locked = False
Text6.locked = False
Text7.locked = False
Text8.locked = False
Text9.locked = False
Text10.locked = False
Text11.locked = False
Text12.locked = False
Text13.locked = False
Text14.locked = False
Text15.locked = False
Text16.locked = False
Text17.locked = False
Text18.locked = False
Text19.locked = False
Text20.locked = False
Text21.locked = False
Text22.locked = False
Text23.locked = False
Text24.locked = False
Text25.locked = False
Text26.locked = False
Text27.locked = False
Text28.locked = False
Command1.Enabled = True
Command2.Enabled = True
Command12.Enabled = True
End Sub
Sub clear() '清空文本框
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
Text20.Text = ""
Text21.Text = ""
Text22.Text = ""
Text23.Text = ""
Text24.Text = ""
Text25.Text = ""
Text26.Text = ""
Text27.Text = ""
Text28.Text = ""
Image1.Picture = LoadPicture(none)
End Sub
Private Sub Form_Unload(Cancel As Integer)
FrmMdi.mnuadd2.Checked = False
End Sub
Private Sub Text1_Change()
Data2.RecordSource = "select * from basic where ID号='" & Text1.Text & "'"
Data2.Refresh
If Data2.Recordset.BOF And Data2.Recordset.EOF Then
Text2.Text = ""
Else
Text2.Text = Data2.Recordset.Fields("姓名")
End If
End Sub