This project is read-only.
New Features
It was introduced the ability to create forms directly from the main source.
It is no longer necessary to specify an external file.
Serialize and Deserialize ...

Function ShowFormLogonDB() as boolean {
    ShowFormLogonDB = False;

     define RecDB Record
            DBName          as string,
            DBStringConn    as string,
            DBType          as string;

    if io.file.exists("LastSuccessful.xml") {
       Deserialize "LastSuccessful.xml" for RecDB;
    }
    Form fDBLogon open Screen "DB Parameters"  {
                       "" 
                       "[lDBName                 ][DBName                      ]                               [bOk      ]"
                       "[lDBStringConn           ][DBStringConn                                               ]"
                       ""
                       "[lDBType                 ][DBType                      ]" 
                       
                       Field bOk                type Button & Text "Ok" & lines 3 & image ImageCheck;

                       Field lDBName            type Label & Text "Database";
                       Field lDBStringConn      type Label & Text "Connection String";
                       Field lDBType            type Label & Text "Type";
                       
                       Field DBName             type TextBox & Fill RecDB.DBName & NotEmpty;
                       Field DBStringConn       type TextBox & Fill RecDB.DBStringConn & NotEmpty & lines 2;
                       Field DBType             type TextBox & Fill RecDB.DBType & NotEmpty;
                       } {
                        
        When bOk.Click {
             ShowFormLogonDB = True;
             Io.File.WriteAllText("LastSuccessful.xml", Serialize RecDB from RecDB);
             Form fDBLogon close;
        }
                        
                        
    } ShowDialog;
 
    ShowFormLogonDB = fDBLogon.ShowFormLogonDB;
 
 }



Last edited Oct 25, 2016 at 2:30 PM by ciaociao72, version 2