Database Question

[klaus]

Here is an updated version.
It works OK in portrait and landscape mode on my Qtek 9090.
I cannot test the automatic screen mode switch.

Best regards.

 

[wm.chatman]

Hi Klaus

I have not tested the updated version yet, been working on the move next and the move previous record.
Still do not get the correct behavior for those functions.
After a data record has been found, the btnPrev and btnNext do not work, we are unable to go to the Previous or the next Record.
Same problem after the filter function, btn move Previous and move next Record do not function.
I got as far as to Reset the Device, guess because of incorrect coding.

Klaus, would you be kind enough as to check this for me please.

Best regards
William

 

[klaus]

For me the Flter and Find functions work fine on the desktop and on the device.
When you filter on "France" the result is ONE record, so there is no next nor previous record!
When you filter on Blue the result is 3 records, and you can navigate between these 3 !
The same is valid for the find function.​

What exactly do you expect with these functions and the Next and Prev buttons. You must explain more precicely what you want.​

Best regards.​

 

[wm.chatman]

Hi Klaus

I hope this will help. :sign0148:

Yes Klaus, I know that the Flter and Find functions work fine on the desktop and on the device.

In the Visual Basic Example Thumbnail I am able to search for Uterkueps (see1) Fundort (see1) shows the found Record. OK.
btn Previous (2) and btnNext (2) allow me to continue Navigation to view the rest of the Records, after the findFunction and filterFunction has been executed on frmMain.

This is what I am trying to work out with the btnprevious or btnNextRecord in our TRUIDb Programm.

Best regards
William

 

[wm.chatman]

Hi Klaus

I played some with the newest version. Seems like I overlookt the btnFind and btnFilter Function.
Using these, I am able to continue Navigation thru the rest of Records, after a data Record has been found.
Pressing the btnFind or btnFilter after search = true, we are able to continue Navigation, with the rest of data.

I wish to thank Klaus again with his help on this program. Without his help, this would not have been possible. :icon_clap::sign0060:

So, the App does run pretty well.
Now to get the Internal Camera to work.

Best regards
William

 

[klaus]

Hi William,
I'm glad that you agree with the way the Find and Filter functions work.
I was thinking of a different Find function but I am really not convinced of.

Best regards.

 

[wm.chatman]

Hi William,
I'm glad that you agree with the way the Find and Filter functions work.
I was thinking of a different Find function but I am really not convinced of.

Best regards.

mit herzens freude:icon_clap:

 

[wm.chatman]

mit herzens freude:icon_clap:

with hearts happyness

 

[wm.chatman]

Hello

Well i have been working on trying to get the TRUIPhoto into the TRUIdbase App. A minor problem, to which i have a Question.
There are two new Forms in the TRUIPhoto App. So, how can i add these two new forms into a Module, and then add the Modul into the original TRUIdbase App? Is it possible? Do i need to copy paste code into a new added Module, and then add to the orig. App? Need help please.

Update: Ok. I found it in the help.

Forms and modules:

It is possible to move a form from one module to another by chooising visual designer - Tools - Move Form.

Merry XMas to all, and a Happy New Year. Weihnachtliche Grüße an alle und ein frohes neues Jahr.

Thank you much,

Best regards

William

 

[wm.chatman]

Hi

Thanks to Filippo’s help and his Controls we were able to get the internal Cam Situation of device, under control.
Using dzCameraCapture.dll this is running stable on desktop and device.
I have been working on incorporating three Forms with some of Filippo’s fgcontrols, into our TRUIdbase Application. The code is not copy and paste. I took my time and wrote the code, to learn the usage.
Small problems do exist yet, and I am a bit confused with the Object -> frmMain.
I do not know which Component needs to be used here.
The new forms have been added to the mainTRUIdbase Application. Also the two new moduls.
It would be really very nice if someone please could take a look for me, I am at this time unable to find
the mistakes I have made.
-The images I can’t get to show yet,
-using the btnDirChooser still gives me the must first be created using new method. Here I am a bit confused with the Object, that needs the new method.
Updated Post #90 with the newest desktop version using fgcontrols.
Best regards.
William


:sign0148: Again, thank you very much for taking the time to help me!

Edit: Update Jan 08, 2010

New version using fgControls

-TRUIDbaseDesktopApp -> updated TRUIDbase Desktop Jan09,2010 / 1429h
-originalPhotoDesktopApp

Plaese add Folder MyImages into MainApp.

Best regards
William

 

[klaus]

Here you are.
I left the forms in the Cam module, trying to transfer them to the Main module gives trouble because you have a lot of controls with the same name, like Label1, Label2 etc.
I would suggest using more selfexplaning names for your controls, like lblNotizen instead of Label10.

I attached only the TRUIdb.sbp and the Cam.bas files.

You can upload several *.zip files. Just look for an other file and upload it like the first one.

Best regards.

 

[wm.chatman]

Hi Klaus

:icon_clap: >>>Klaus, you are a great value to the B4PPC Community!<<< :icon_clap:

Yes I had quite a few controls with the same name, you are correct.
I will try to change that, and pay more attention to such things. Thank you VERY, very much for your help and the time you took on this matter. For me it was pretty hard, to get this to work.

Klaus, I added the last Module for the TRUIdbase App. Now we are getting to the last part of the Program (Take a Photo using the Internal cam).
The behavior is a might out of wack, but most of it does work.
There are I hate to say it, a few bugs and still some minor function missing.

- after taking a photo we need it as a Preview first (to much movement sharpness of photo or something else.)
- if file does not exist then we use the DirCreate ("MyImages") this is added to the code already
- if photo is OK then save to File (MyImages) if not OK then take another photo
- choose a folder to save the Images that had been taken. btnSelect file also has been created on frmPhoto. This way we can choose where to save the new file
- when we do not take a photo, go back to main program
- then the Question with saving the file into the database, or save as a Direct File into the said Folder. Maybe the Folder approach works better. Testing the TRUIPhoto on Device, there had been no Problems.
- I am working on the Scrolling matter for the Thank yous to all that had a helping Hand with the Program (frmAbout) using a Lbl. If I am unable to work that out, to much movement, we will try a small Image Control that moves on the Form, left to right, showing all Names that helpt develope the App.

After all works, and we have tested, I would like to move the App as I had stated before to the Share Your Creations Area.

- added updates num 90 permalink
- desktop version
- device compiled version
- images have been cut to size for upload

Thank you very much for taking your time and helping with this Program. Your support and never ending patience is greatly Appriciated. Nous vous remercions pour vos idées pour améliorer.

Best regards
:sign0089:
William

 

[wm.chatman]

Hi

I spent alot of time again trying to get the last functions (camera) we wanted to work properly.

:sign0148:

While working on this last part of the Program I really made things worse, and the App just did NOT want to run anymore. I got lucky and had made a backup of the App. The App is in the last stage of development. :sign0013: Please, I need help finishing the Program. I am unable to do so on my own! I am very, very much appliedged if we could complete. :sign0085: please.

BTW: I need a tip on how to add a link to a thread.

Best regards

William

 

[Zenerdiode]

BTW: I need a tip on how to add a link to a thread.

You need to highlight the word(s) you would like as a link; click the 'world and link' icon and then enter the full URL of your link.

 

[wm.chatman]

Hi Zenerdiode

Thanks for the reply, I will give it a try when need be.

Best regards

William

 

[wm.chatman]

Hi

Updated Post #90. If, at all possible I need just a little bit of :sign0085:.

Best regards.

William

 

[wm.chatman]

Hi

Thanks to Filippo’s help and his Controls we were able to get the internal Cam Situation of device, under control.
Using dzCameraCapture.dll this is running stable on desktop and device.
I have been working on transfering and incorporating three Forms with some of Filippo’s fgcontrols, into our TRUIdbase Application.
The code is not copy and paste. I took my time and wrote the code, to learn the usage.
Small problems do exist yet, and I am a bit confused with the Object -> frmMain.
I do not know which Component needs to be used here.
The new forms have been added to the mainTRUIdbase Application. Also the two new moduls.
I could not test on device yet.

:sign0085:

It would be really very nice if someone please could take a look for me, I am at this time unable to find the mistakes I have made.

-The images can’t be show yet
-using the btnDirChooser still gives me the must first be created using new method. Here I am a bit confused with the Object, that needs the new method.

Updated Post #90 with the newest desktop version using fgcontrols. Thank you for helping on this!

Best regards.

William

 

[klaus]

Hi William,
I had a short look at your program:​

frmMain is your main form.​

[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2] Table1.RowCount>[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]0[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]ShowRow[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Return[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]Err:[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Msgbox[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]([/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]"Error loading data file."[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000][FONT=Courier New][SIZE=2][COLOR=#800000]""[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cMsgboxOK[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cMsgboxHand[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
 
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'Init fgImagelist[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]fgImageListLarge.New1[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]fgImageListLarge.SetImagesSize([/FONT][/SIZE][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]64[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2],[/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]64[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2])[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]lv.ImageListLarge= fgImageListLarge.Value[/FONT][/SIZE]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'Init fgDirChooser[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]fgDirChooser.New1[/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'Init Camera-Library[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]ccd.New1 [/SIZE][/FONT]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'Init Modul "mSaveAs"[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]mSaveAs.InitForm[/SIZE][/FONT]
[SIZE=2][FONT=Courier New]FillImages[/FONT][/SIZE]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]

Have a look at your Return keyword in the AppStart routine:
All the code after Return is NOT executed, so fgDirChooser is not initialized, or only if you have an error.

What object is lv supposed to be ? It is not initialized !
I suppose it should be a ListView object, but you have declared it as a fgListViewItem object ?

Best regards.

 

[wm.chatman]

Hi Klaus.

yes, I do understand that frmMain are the MainAppForm. The Photo App also uses a frmMain, with a Object as frmMain. Here I am uncertain. I dont know what Object I need to add.

About the lv Object, I am well lets say working on this. Seems a little mix up from my side, adding the new Objects, that are needed. I think there are no fgListViewItem. Only lv, and lvitem. I will check again!
fgListViewItem is used in the Photo App.

I took a look at the Return keyword.

I changed this:
'If Table1.RowCount>0 Then
'ShowRow
'End If
'Return
'Err
'Msgbox("Error loading data file.","",cMsgboxOK,cMsgboxHand) The six lines of code I had comented out. I think we need the six lines of code for the TRUIdbase APP.

this had not been in the original code from the Photo App. Now, its a bit more confusing.

I am still not so sure about the six lines of code above. But still the App seems to run smooth on both desktop and the device. What I am still uncertain about are the Ini Files. One we need for the TRUIdbase APP itself. And the second ist for the Photo situation!?

I got further with the APP. and seems like that there are no problems.
Updated the TRUIDbase Desktop Jan09,2010 once more.

Klaus, would you Please be so kind and TEST the Application on both your desktop and your device. To make sure that everything is OK. Would really help Sir! Maybe I did miss something. This would really help Klaus.


Best regards to you.

William

 

[wm.chatman]

Hi Klaus

Ok, I think we got it right now.

'If Table1.RowCount>0 Then
'ShowRow
'End If
'Return
'Err
'Msgbox("Error loading data file.","",cMsgboxOK,cMsgboxHand) I did coment out the six lines of code. But, I think I do need them.

Now I got this figured, and I placed the other code, above the return statement. Works like a Charm.

The App seems to run smooth on both desktop and the device.

I got further with the APP. and seems like that there are no problems.
Updated the TRUIDbase Desktop Jan09,2010 / 1429h

Klaus, would you Please be so kind and TEST the Application on both your desktop and your device. To make sure that everything is OK. Would really help Sir! Maybe I did miss something. Thank you very much Klaus.

BTW. is it possible to hide the TempImage? While viewing the Clip, we get to see the TempImage, as well the new Picture that had been taken. Its like a duel effect, of a Picture.

Ini problem has been workt out now. Great.

EDIT> Jan09,2010. 1429 h.
Yes indeed if you forget some, surely this will not work correct. But... I did miss out on some.

I added this:

Sub Form1_Close
SaveINI
End Sub

Sub Num1_ValueChanged
TimerInterval.Interval = Num1.Value * 1000
panel1Time = Now
End Sub

This part is needed to save the settings, for the Clip. By gosch, now I think everything works OK again.

I updated Post#90 = TRUIDbase Desktop Jan09,2010 / 1429h

Klaus, please TEST this for me, it would really help me. Incase I did forget something. It will help me if you let me know, that the functions are correct again. Your thoughts to this are welcomme Klaus !

Thanks again for the support and help Sir.

Wuensche Dir ein schoenes WE.

Best regards to you.

William