Tablets Database

[Brian]

Hi,

I have two or three prescriptions, and they all run out on different dates, and need renewing at different times. This program is to help me keep track of when to re-order

I've been working on this program on and off for quite a few days, and with Bill H's valuable help have overcome some of the trickier SQL problems

Full source code included, with exe. It is a Project. To start your own database, rather than the test data, just delete 'Tablets.mdb' from the \data folder, and run the program again, and a new, empty MDB will be created

Any comments or suggestions welcomed

Brian

[Brian]

Hello,

Because you never know how a program really works until you start using it in earnest, I found some changes I had to do. I was trying to enter a Dosage value of 2.5, and as I had set the edit control to numbers only, it wouldn't take the value

So the Dosage edit control is now sub-classed to accept numbers and a full stop only (plus backspace)
All the listview columns are now sortable
There is a check on startup to make sure the \backup folder is really there, and creates one if not
The database now starts with an ORDER BY clause on the Reorder column, so it shows the first to renew at the top of the list
Put a static control on the screen to show how many days were allocated before a renewal date shows in red

Think that's it, but you will have to delete your Tablets.mdb and generate a new one, as the format for the database is now different

Included the source file and a compiled exe

Brian

[LarryMc]

I have two or three prescriptions

You wrote a program to keep track of 2 or 3? LOL

Then I need an accounting firm to keep track of my 18 0r 19!!! LOL
In reality, the pharmacy is quick to call me when it is time for a refill because if I miss one , with all my meds, they will have to lay someone off.

LarryMc

[Brian]

Larry,

I was being a bit conservative when I said 2 or 3 - I didn't want Forum members to think I was a pill junky! Actually, I have 7 or 8 different ones to take. I have no problem remembering what and when to take, this just helps me to remember when to re-order. And it seems to be working well, and was nice to program something practical for once

And I had a feeling you might might be taking more than me!

Brian

[billhsln]

14 prescribed (1 of those is when needed) and 3 over the counter.

My pharmacy also lets me know when I need to renew.  Of course, every once in a while, I forget to either take my morning pills or evening, so that throws off my numbers.  I do one of those tablet holders that does an entire week at once with morning and evening spots.

My pharmacy lets me know how much the drugs cost and what I paid for them, so I wrote a program to track their price and what I paid, but not near as polished as Brian's program.

But I am doing ok and still using IWB daily.  I do lots of ODBC connection into an AS400 using SQL which is sitting at my work over 87 miles from where I live.

Bill

[Brian]

Hello,

Done a bit of work on this program. It now sorts correctly, putting the first-to-renew prescriptions to the top. I did this with a hidden ISO date field, and sorting on that, so the structure of the MDB has changed from the other versions

I also took out a couple of sub-routines that were not needed at all. I pinched them from some other program I had that did need them, but not this one

There is also a print routine added to print a list of your prescriptions, using DDoc

All the icons and images, etc, that are needed for the program to compile are now in the 'resources' folder. The main MDB file and help file are now in the program folder

Pre-uploaded programs have been removed from the Forum, and are replaced with this version, now 1.3

Brian

[Brian]

Hi,

Slight adjustment to how the program is calculating the re-ordering of a prescription. Noticed that some re-order dates weren't being changed to red in the Listview. This one-line change does the trick. You will have to re-compile, though

Brian

[Brian]

Well, you never know how a program is going to behave until you start using it . . .

After having a couple of Repeat Prescriptions to enter, I realised that the In Stock value was just going up and up. This version now updates the In Stock total, and then calculates how many tablets/pills have been taken from the Started Course date and the day you entered the Repeat amount, and deducts that from the In Stock total. It then resets the Started Course to your Repeat entry date

I have also set up a Repeat Prescription Form in the style that our GPs require. Okay for me, but could require some fiddling from your end. Just Ctrl-click the items that you want to order, and press Ctrl+F

The font I used to simulate handwriting is Nanum Pen, and can be downloaded freely from:
https://fonts.google.com/specimen/Nanum+Pen+Script?query=nanum

You will have to alter your Name to suit in the PrintForm() sub-routine, at Line 1299, and also the three address lines at Lines 1312, 1315 and 1317. And don't forget your Date of Birth at Line 1339 - and then re-compile

For my signature, I used a blue Biro, and scanned it in, and saved as a 24-bit bitmap with a size of 400 x 192. Saving as 8-bit would have meant a smaller file size, but 24-bit gave a more realistic colour

Removed all the previous uploads

Brian

Edit: Just realised you will need my updated ddoc.inc

Edit 1/3/2024: Important small update to Tablets.iwb

[Brian]

Updated Tablets.iwb uploaded in the previous post

Brian