home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / summary.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  9.3 KB  |  287 lines
  1. VERSION 2.00
  2. Begin Form summary 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   7305
  9.    Height          =   4575
  10.    Left            =   960
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4170
  14.    ScaleWidth      =   7305
  15.    Tag             =   "summary"
  16.    Top             =   1080
  17.    Width           =   7425
  18.    Begin AniPushButton AniButton2 
  19.       BackColor       =   &H00FFFFFF&
  20.       Height          =   480
  21.       Left            =   4035
  22.       PictDrawMode    =   1  'Autosize control
  23.       Picture         =   SUMMARY.FRX:0000
  24.       Speed           =   162
  25.       TabIndex        =   7
  26.       TextPosition    =   2  'Left
  27.       Top             =   3720
  28.       Width           =   480
  29.    End
  30.    Begin AniPushButton AniButton1 
  31.       BackColor       =   &H00FFFFFF&
  32.       Caption         =   "Back Page"
  33.       ForeColor       =   &H00000000&
  34.       Height          =   465
  35.       Index           =   1
  36.       Left            =   0
  37.       Picture         =   SUMMARY.FRX:05E2
  38.       Speed           =   162
  39.       TabIndex        =   6
  40.       TextPosition    =   1  'Right
  41.       Top             =   3675
  42.       Width           =   1515
  43.    End
  44.    Begin AniPushButton AniButton1 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   "Next Page"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   465
  49.       Index           =   0
  50.       Left            =   5760
  51.       Picture         =   SUMMARY.FRX:148E
  52.       Speed           =   162
  53.       TabIndex        =   5
  54.       TextPosition    =   2  'Left
  55.       Top             =   3600
  56.       Width           =   1440
  57.    End
  58.    Begin AniPushButton AniButton3 
  59.       BackColor       =   &H00FFFFFF&
  60.       Cycle           =   1  'By frame
  61.       Height          =   480
  62.       Index           =   0
  63.       Left            =   4800
  64.       PictDrawMode    =   1  'Autosize control
  65.       Picture         =   SUMMARY.FRX:233A
  66.       TabIndex        =   10
  67.       Top             =   3600
  68.       Width           =   480
  69.    End
  70.    Begin PictureBox Picture1 
  71.       AutoRedraw      =   -1  'True
  72.       Height          =   735
  73.       Left            =   360
  74.       ScaleHeight     =   705
  75.       ScaleWidth      =   345
  76.       TabIndex        =   9
  77.       Top             =   2160
  78.       Width           =   375
  79.    End
  80.    Begin VHedit HEdit2 
  81.       DelayRecog      =   -1  'True
  82.       FontBold        =   -1  'True
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   18
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   1575
  89.       InflateBottom   =   270
  90.       InflateLeft     =   270
  91.       InflateRight    =   270
  92.       InflateTop      =   270
  93.       Left            =   4080
  94.       TabIndex        =   8
  95.       Top             =   1800
  96.       Version         =   268435458
  97.       Width           =   2775
  98.    End
  99.    Begin VHedit HEdit1 
  100.       DelayRecog      =   -1  'True
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   18
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   2055
  108.       InflateBottom   =   270
  109.       InflateLeft     =   270
  110.       InflateRight    =   270
  111.       InflateTop      =   270
  112.       Left            =   960
  113.       TabIndex        =   0
  114.       Top             =   1560
  115.       Version         =   268435458
  116.       Width           =   2775
  117.    End
  118.    Begin ListBox List2 
  119.       BackColor       =   &H00FF0000&
  120.       FontBold        =   -1  'True
  121.       FontItalic      =   0   'False
  122.       FontName        =   "MS Sans Serif"
  123.       FontSize        =   12
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       ForeColor       =   &H00FFFFFF&
  127.       Height          =   630
  128.       Left            =   3360
  129.       TabIndex        =   2
  130.       Top             =   600
  131.       Width           =   2655
  132.    End
  133.    Begin ListBox List1 
  134.       BackColor       =   &H00FF0000&
  135.       FontBold        =   -1  'True
  136.       FontItalic      =   0   'False
  137.       FontName        =   "MS Sans Serif"
  138.       FontSize        =   12
  139.       FontStrikethru  =   0   'False
  140.       FontUnderline   =   0   'False
  141.       ForeColor       =   &H00FFFFFF&
  142.       Height          =   930
  143.       Left            =   360
  144.       TabIndex        =   1
  145.       Top             =   600
  146.       Width           =   2415
  147.    End
  148.    Begin Label Label2 
  149.       Alignment       =   2  'Center
  150.       BackColor       =   &H00FFFFFF&
  151.       Caption         =   "COMMENTS"
  152.       FontBold        =   -1  'True
  153.       FontItalic      =   0   'False
  154.       FontName        =   "MS Sans Serif"
  155.       FontSize        =   18
  156.       FontStrikethru  =   0   'False
  157.       FontUnderline   =   0   'False
  158.       Height          =   495
  159.       Left            =   3360
  160.       TabIndex        =   4
  161.       Top             =   0
  162.       Width           =   3015
  163.    End
  164.    Begin Label Label1 
  165.       Alignment       =   2  'Center
  166.       BackColor       =   &H00FFFFFF&
  167.       Caption         =   "DIAGNOSIS"
  168.       FontBold        =   -1  'True
  169.       FontItalic      =   0   'False
  170.       FontName        =   "MS Sans Serif"
  171.       FontSize        =   18
  172.       FontStrikethru  =   0   'False
  173.       FontUnderline   =   0   'False
  174.       ForeColor       =   &H00000000&
  175.       Height          =   495
  176.       Left            =   120
  177.       TabIndex        =   3
  178.       Top             =   0
  179.       Width           =   2535
  180.    End
  181. Sub AniButton1_Click (Index As Integer)
  182. If smartform(7) Then
  183.         Select Case Index
  184.         Case 1
  185.         MDIMForm.Show
  186.         summary.Hide
  187.         Case 0
  188.         admit.Picture1.Cls
  189.         admit.Picture1.AutoRedraw = -1
  190.         admit.Picture1.Scale (0, 0)-(3, 4)
  191.         admit.Picture1.CurrentX = .8
  192.         admit.Picture1.CurrentY = 1.2
  193.         admit.Picture1.Print "CLICK"
  194.         admit.Picture1.CurrentX = 1
  195.         admit.Picture1.CurrentY = 2
  196.         admit.Picture1.Print " TO"
  197.         admit.Picture1.CurrentX = .6
  198.         admit.Picture1.CurrentY = 2.8
  199.         admit.Picture1.Print "RETURN"
  200.         admit.Show
  201.         summary.Hide
  202.         End Select
  203. formcheck "Summary"
  204. End If
  205. End Sub
  206. Sub AniButton2_Click ()
  207. If smartform(7) Then
  208. menumode summary
  209. formcheck "Summary"
  210. End If
  211. End Sub
  212. Sub AniButton3_Click (Index As Integer)
  213. Select Case anibutton3(0).Value
  214. Case 2
  215.     screen.MousePointer = 11
  216.     Picture1.AutoRedraw = -1
  217.     bounce summary, summary.Picture1
  218.     Picture1.Picture = Picture1.Image
  219.     Picture1.Visible = -1
  220.     Picture1.AutoRedraw = 0
  221.     screen.MousePointer = 0
  222. hedit1.Visible = 0
  223. hedit2.Visible = 0
  224. Case 1
  225. hedit1.Visible = -1
  226. hedit2.Visible = -1
  227. Picture1.Visible = 0
  228. hedit1.SetFocus
  229. hedit1.SelStart = 0
  230. hedit2.SelStart = 0
  231. 'hedit1.sellength = Len(hedit1.text)
  232. 'hedit2.sellength = Len(hedit2.text)
  233. hedit1.Refresh
  234. hedit2.Refresh
  235. End Select
  236. End Sub
  237. Sub Form_Load ()
  238. summary.Move 0, 0, screen.Width, screen.Height
  239. anibutton1(1).Move .1 * anibutton1(1).Width, summary.ScaleHeight - 1.1 * anibutton1(1).Height
  240. anibutton2.Move (summary.ScaleWidth - anibutton2.Width) / 2, summary.ScaleHeight - 1.1 * anibutton2.Height
  241. anibutton3(0).Move (summary.ScaleWidth - anibutton2.Width) / 2 + 1.3 * anibutton3(0).Width, summary.ScaleHeight - 1.1 * anibutton2.Height
  242. anibutton1(0).Move summary.ScaleWidth - 1.1 * anibutton1(0).Width, summary.ScaleHeight - 1.1 * anibutton1(0).Height
  243. label1.Move 0, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  244. list1.Move 0, label1.Height, summary.ScaleWidth \ 2, summary.ScaleHeight * 2 / 5
  245. hedit1.Move 0, label1.Height + list1.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2.3 / 5
  246. label2.Move summary.ScaleWidth \ 2, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  247. list2.Move summary.ScaleWidth \ 2, label2.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2 / 5
  248. hedit2.Move summary.ScaleWidth \ 2, label2.Height + list2.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2.3 / 5
  249. ' set up area for bitblt
  250. Picture1.Move 0, label1.Height + list1.Height, summary.ScaleWidth * 1, summary.ScaleHeight * 2.3 / 5
  251. '**********************************************
  252. If restored Then
  253. hedit1.Visible = 0
  254. hedit2.Visible = 0
  255. Picture1.Visible = -1
  256. anibutton3(0).Value = 2
  257. End If
  258. list1.AddItem "Recommendations:"
  259. list1.AddItem ""
  260. list1.AddItem "Critical Care"
  261. list1.AddItem "Intensive Care"
  262. list1.AddItem "Observation"
  263. list1.AddItem "Involuntary Commitment"
  264. list1.AddItem "Shared Room"
  265. list1.AddItem "Sexual Therapy"
  266. list1.AddItem "Voluntary Commitment"
  267. list1.AddItem "Therapeutic Touch"
  268. list1.AddItem "Out-Patient Nursing"
  269. list1.AddItem "Therapeutic Touch"
  270. list1.AddItem "Cleared For Discharge"
  271. list1.AddItem "Hold For The Authorities"
  272. list1.AddItem "Medical Miracle"
  273. list1.AddItem "Private Room"
  274. list1.AddItem "Physical Therapy"
  275. list1.AddItem "Occupational Therapy"
  276. list1.AddItem "Extended Stay"
  277. End Sub
  278. Sub HEdit1_GotFocus ()
  279. 'hedit1.Refresh
  280. End Sub
  281. Sub List1_Click ()
  282. list2.AddItem list1.List(list1.ListIndex)
  283. End Sub
  284. Sub List2_Click ()
  285. list2.RemoveItem list2.ListIndex
  286. End Sub
  287.