Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / assess2.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-21 | 20.8 KB | 593 lines

VERSION 2.00 Begin Form assess2 BorderStyle = 0 'None Caption = "assess2" ClientHeight = 6915 ClientLeft = 135 ClientTop = 600 ClientWidth = 9495 Height = 7320 Left = 75 LinkMode = 1 'Source LinkTopic = "Form3" ScaleHeight = 6915 ScaleWidth = 9495 Tag = "diagnosis" Top = 255 Width = 9615 Begin SSFrame Frame3D1 Alignment = 2 'Center Caption = "IN CASE OF EMERGENCY NOTIFY" Font3D = 2 'Raised w/heavy shading FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 6945 Left = 0 TabIndex = 8 Top = -15 Width = 9495 Begin AniPushButton AniButton2 BackColor = &H00FFFFFF& Height = 480 Left = 4575 PictDrawMode = 1 'Autosize control Picture = ASSESS2.FRX:0000 Speed = 162 TabIndex = 12 TextPosition = 2 'Left Top = 6450 Width = 480 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Back Page" Height = 465 Index = 1 Left = 540 Picture = ASSESS2.FRX:05E2 Speed = 162 TabIndex = 20 TextPosition = 1 'Right Top = 6405 Width = 1515 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Next Page" Height = 465 Index = 0 Left = 6930 Picture = ASSESS2.FRX:148E Speed = 162 TabIndex = 21 TextPosition = 2 'Left Top = 6315 Width = 1440 End Begin PictureBox Picture4 Height = 3120 Left = 0 ScaleHeight = 3090 ScaleWidth = 9465 TabIndex = 13 Top = 3150 Width = 9495 Begin PictureBox Picture5 BackColor = &H00C0C0C0& Height = 3090 Left = 0 ScaleHeight = 3060 ScaleWidth = 9465 TabIndex = 14 Top = 0 Width = 9495 Begin AniPushButton AniButton3 BackColor = &H00C0C0C0& Cycle = 2 '2-state 1/2 & 1/2 Height = 480 Index = 1 Left = 8715 PictDrawMode = 1 'Autosize control Picture = ASSESS2.FRX:233A TabIndex = 25 Top = 2535 Width = 480 End Begin VHedit HEdit3 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2505 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = -30 TabIndex = 19 Top = -15 Version = 268435458 Width = 9510 End Begin Label Label3 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Touch here for more room" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 90 TabIndex = 15 Top = 2700 Width = 3375 End End End Begin PictureBox Picture2 BackColor = &H00C0C0C0& Height = 2400 Left = 5535 ScaleHeight = 2370 ScaleWidth = 3945 TabIndex = 10 Top = 375 Width = 3975 Begin VBedit BEdit2 BackColor = &H00FFFFFF& CellHeight = 480 CellWidth = 320 CharSet = 16404 CombBaseLine = 390 CombEndHeight = 350 CombEndMarker = 0 'False CombHeight = 250 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 735 Index = 1 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 InkWidth = 2 Left = 0 TabIndex = 3 Top = 1605 Version = 268435458 Width = 3900 End Begin VHedit hedit2 Enabled = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 525 Index = 1 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 1635 TabIndex = 7 Top = 1350 Version = 268435458 Visible = 0 'False Width = 1500 End Begin VBedit BEdit2 BackColor = &H00FFFFFF& CellHeight = 480 CellWidth = 320 CharSet = 16404 CombBaseLine = 390 CombEndHeight = 350 CombEndMarker = 0 'False CombHeight = 250 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 735 Index = 0 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 InkWidth = 2 Left = 45 TabIndex = 2 Top = 450 Version = 268435458 Width = 3900 End Begin VHedit hedit2 Enabled = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 585 Index = 0 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 2205 TabIndex = 6 Top = 315 Version = 268435458 Visible = 0 'False Width = 1215 End Begin Label Label4 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "WORK" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Index = 2 Left = 30 TabIndex = 17 Top = 1245 Width = 885 End Begin Label Label4 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "HOME" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 Index = 0 Left = 30 TabIndex = 16 Top = 75 Width = 825 End End Begin PictureBox Picture3 BackColor = &H00000000& FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FFFFFF& Height = 2415 Left = 5040 ScaleHeight = 2385 ScaleWidth = 465 TabIndex = 11 Top = 375 Width = 495 End Begin PictureBox Picture1 BackColor = &H00C0C0C0& Height = 2415 Left = -15 ScaleHeight = 2385 ScaleWidth = 5025 TabIndex = 9 Top = 375 Width = 5055 Begin AniPushButton AniButton3 BackColor = &H00C0C0C0& Cycle = 2 '2-state 1/2 & 1/2 Height = 480 Index = 0 Left = 4470 PictDrawMode = 1 'Autosize control Picture = ASSESS2.FRX:291C TabIndex = 22 Top = 1665 Width = 480 End Begin VBedit BEdit1 BackColor = &H00FFFFFF& CellHeight = 400 CellWidth = 360 CharSet = 16655 CombBaseLine = 400 CombEndHeight = 350 CombEndMarker = 0 'False CombHeight = 250 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 735 Index = 1 InflateBottom = 50 InflateLeft = 180 InflateRight = 180 InflateTop = 400 InkWidth = 2 Left = 45 TabIndex = 1 Top = 1590 Version = 268435458 Width = 4290 End Begin VHedit hedit1 Enabled = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Index = 1 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 1365 TabIndex = 5 Top = 1515 Version = 268435458 Visible = 0 'False Width = 1815 End Begin VBedit BEdit1 BackColor = &H00FFFFFF& CellHeight = 400 CellWidth = 360 CharSet = 16655 CombBaseLine = 400 CombEndHeight = 350 CombEndMarker = 0 'False CombHeight = 250 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 735 Index = 0 InflateBottom = 50 InflateLeft = 180 InflateRight = 180 InflateTop = 400 InkWidth = 2 Left = 0 TabIndex = 0 Top = 480 Version = 268435458 Width = 4995 End Begin VHedit hedit1 Enabled = 0 'False FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 18 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 435 Index = 0 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 1155 TabIndex = 4 Top = 330 Version = 268435458 Visible = 0 'False Width = 1815 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "RELATION" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 Index = 1 Left = 45 TabIndex = 24 Top = 1260 Width = 1395 End Begin Label Label1 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "NAME" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 270 Index = 0 Left = 45 TabIndex = 23 Top = 75 Width = 765 End End Begin Label Label2 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "ADMITTING MEDICAL DIAGNOSIS" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 2580 TabIndex = 18 Top = 2820 Width = 4935 End End Sub AniButton1_Click (Index As Integer) If smartform(3) Then Select Case Index Case 1 assess1.Show assess2.Hide Case 0 medhist.Show assess2.Hide End Select formcheck "Emergency Notify" End If End Sub Sub AniButton2_Click () If smartform(3) Then menumode assess2 formcheck "Emergency Notify" End If End Sub Sub AniButton3_Click (Index As Integer) Select Case Index Case 0 Select Case anibutton3(Index).value Case 2 editswap bedit1(0), hedit1(0), 1 hedit1(0).visible = -1 bedit1(0).visible = 0 editswap bedit1(1), hedit1(1), 1 hedit1(1).visible = -1 bedit1(1).visible = 0 editswap bedit2(0), hedit2(0), 1 hedit2(0).visible = -1 bedit2(0).visible = 0 editswap bedit2(1), hedit2(1), 1 hedit2(1).visible = -1 bedit2(1).visible = 0 temprecord.name = bedit1(0).text temprecord.relation = bedit1(1).text temprecord.home = bedit2(0).text temprecord.work = bedit2(1).text Case 1 editswap bedit1(0), hedit1(0), 2 hedit1(0).visible = 0 bedit1(0).visible = -1 editswap bedit1(1), hedit1(1), 2 hedit1(1).visible = 0 bedit1(1).visible = -1 editswap bedit2(0), hedit2(0), 2 hedit2(0).visible = 0 bedit2(0).visible = -1 editswap bedit2(1), hedit2(0), 2 hedit2(1).visible = 0 bedit2(1).visible = -1 End Select Case 1 'LOCK FOR DIAGNOSIS FIELD Select Case anibutton3(Index).value Case 2 hedit3.enabled = 0 temprecord.hed1 = hedit3.text Case 1 hedit3.enabled = -1 hedit3.SetFocus hedit3.selstart = Len(hedit3.text) End Select End Select End Sub Sub BEdit2_Update (Index As Integer) If bedit2(Index).selstart = 11 Then If Mid$(bedit2(Index).text, 4, 1) <> "-" Or Mid$(bedit2(Index).text, 8, 1) <> "-" Then For n = 1 To Len(bedit2(Index).text) If n = 4 Or n = 8 Then a$ = a$ + "-" 'a$ = a$ + Mid$(bedit2(Index).text, n, 1) Else a$ = a$ + Mid$(bedit2(Index).text, n, 1) End If Next n bedit2(Index).text = a$ End If bedit2(Index).selstart = 12 End If End Sub Sub Command1_Click () assess3.Show End Sub Sub Form_Load () bedit2(0).text = " - - " bedit2(1).text = " - - " assess2.Move 0, 0, screen.WIDTH, screen.height frame3d1.Move 0, 0, assess2.WIDTH, assess2.height hedit1(0).Move bedit1(0).left, bedit1(0).top, bedit1(0).WIDTH, bedit1(0).height * 1.1 hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).WIDTH, bedit1(1).height * 1.1 hedit2(0).Move bedit2(0).left, bedit2(0).top, bedit2(0).WIDTH, bedit2(0).height * 1.1 hedit2(1).Move bedit2(1).left, bedit2(1).top, bedit2(1).WIDTH, bedit2(1).height * 1.1 anibutton1(1).Move .1 * anibutton1(1).WIDTH, frame3d1.height - 1.1 * anibutton1(0).height anibutton2.Move (frame3d1.WIDTH - anibutton2.WIDTH) / 2, frame3d1.height - 1.1 * anibutton2.height anibutton1(0).Move frame3d1.WIDTH - 1.1 * anibutton1(0).WIDTH, frame3d1.height - 1.1 * anibutton1(1).height picture3.Scale (1, 1)-(2, 6) picture3.autoredraw = -1 picture3.currentx = 1.1 picture3.currenty = 1 picture3.Print "P"; picture3.currentx = 1.1 picture3.currenty = 2 picture3.Print "H"; picture3.currentx = 1.1 picture3.currenty = 3 picture3.Print "O"; picture3.currentx = 1.1 picture3.currenty = 4 picture3.Print "N"; picture3.currentx = 1.1 picture3.currenty = 5 picture3.Print "E"; End Sub Sub HEdit3_GotFocus () 'hedit3.delayrecog = -1 End Sub Sub Label3_Click () bigbedit.label1.caption = assess2.label2.caption bigbedit.bedit1.text = assess2.hedit3.text bigbedit.bedit1.selstart = Len(hedit3.text) bigbedit.Show 1 End Sub