dim var.txt

医院管理方面的例子

'baby basece informition.
Dim  Ababyname, Ababasex, Atelphone,Ababyaddree As String
dim  Ababybirthday as time
dim  Arealage as  intger

'baby's father and mother's basece informition.
dim Afathername,Afatherdcotorer, Aworkking,  Amothername, Amotherdcotorer, Amworkking as string

'一般情况
dim Amotherstrong, Amothermeidacor, Abirthdayrecord,Aeatrecord,Aeatgood,Aeatmethod,Alookertvtime as string
dim Aeyeoutill,Asaveillrecord,Ababyo2 as string
---------------
' the mother at have baby haved ill.
dim Anothinghaveill, Ahaveill as string
dim AhaveLG,AhaveTNB,AhaveRGZ,AhaveAOTHER as string

' haved eye ill beforce.
dim Anothinghaveeyeill,Ahaveeyeill as string
dim Aunfaxsee,Afaxsee as string
dim Aunpowersee,Abyeyesee,Achateye,Anothereyeill as string

' loker the dcotor case.
dim Alokeddcotorer,Aunlokeddcotorer as string
dim ADJ,ASSZL,AYWZL,AYQZL,AQTZL as string
         
------------------
dim Afathereyeill,Amothereyeill,Agreadfathereyeill,Agreadmothereyeill,Aoutgreadfathereyeill,
    Aoutgreadmothereyeill,ASSeyeill,AGGeyeill,AJJeyeill, AYMeyeill as string