Sign in to follow this  
Followers 0
madmorgan

Help With New DVD Data Base

1 post in this topic

Hello all,

what im trying to do is a bit hard and i dont know if autoit can do it, I hop so.

What i want is a new DVD data base of all 650 DVDs I got at home.

program one

-----------

ADD DVD.exe

i can build the menu easly, once clicked add the data wites to a xml file.

sample code here

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 436, 298, 192, 124)
$Label1 = GUICtrlCreateLabel("Add DVD", 192, 24, 49, 17)
$Label2 = GUICtrlCreateLabel("Title", 40, 64, 24, 17)
$Label3 = GUICtrlCreateLabel("Rating", 192, 72, 35, 17)
$Label4 = GUICtrlCreateLabel("Year", 344, 64, 26, 17)
$Label5 = GUICtrlCreateLabel("Location To Image", 16, 144, 93, 17)
$Title_INPUT = GUICtrlCreateInput("Title_INPUT", 16, 88, 121, 21)
$RATING_INPUT = GUICtrlCreateInput("RATING_INPUT", 160, 88, 121, 21)
$YEAR_INPUT = GUICtrlCreateInput("YEAR_INPUT", 304, 88, 121, 21)
$Button1 = GUICtrlCreateButton("Browse", 128, 136, 75, 25)
$IMAGE_LOCATION = GUICtrlCreateInput("IMAGE_LOCATION", 16, 176, 185, 21)
$Button2 = GUICtrlCreateButton("ADD DVD", 104, 256, 75, 25)
$Button3 = GUICtrlCreateButton("VIEW HOLE LIST", 208, 256, 91, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
                Case $Button2
                      wite dvd to xml file
    EndSwitch
WEnd

XML FILE example

<CATALOG>

<DVD>

<ID>01</ID>

<TITLE>Family Guy</TITLE>

<RATING>15</RATING>

<GENRE>Comdey</GENRE>

<YEAR>????</YEAR>

<IMAGE>c:\dvd\images\Family_Guy01.jpg</IMAGE>

</DVD>

.......And So On.

</CATALOG>

program 2

CAT_VIEWER.exe

this will allow me to all dvds in the file all 650 of them LOL and allow me to edit, delete them and allow a search.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 405, 294, 378, 190)
$List_of_all_650_DVDS_list_here = GUICtrlCreateEdit("", 16, 40, 369, 185)
GUICtrlSetData(-1, "List_of_all_650_DVDS_list_here")
$Label1 = GUICtrlCreateLabel("The Hole List", 136, 16, 67, 17)
$Button1 = GUICtrlCreateButton("Edit", 72, 248, 75, 25)
$Button2 = GUICtrlCreateButton("Delete", 232, 248, 75, 25)
$Button3 = GUICtrlCreateButton("View DVD", 152, 248, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

and then finaly

program 3

DVD_VIWER.exe

once i have chosesn on dvd from CAT_VIEWER.exe i can then click on it and have reload with this dvd on showing the title and information and image.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Form1", 405, 294, 302, 218)
$ImageList1 = _GUIImageList_Create(16, 16, 5)
$Label1 = GUICtrlCreateLabel("DVD ?????", 136, 24, 60, 17)
$Label2 = GUICtrlCreateLabel("Year", 56, 112, 26, 17)
$Label3 = GUICtrlCreateLabel("Info", 168, 112, 22, 17)
$Button1 = GUICtrlCreateButton("Close Window", 136, 248, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

i guess im asking a lot here and im sorry but if you guys can help me then that would be grate.

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0