pb 制作登陆界面连接数据库

一、app.demolearn

1>Global Variables《全局定义》

string ls_inifile                      =”j:/demo/db.ini”

string ls_language_inifile     =”j:/demo/language.ini”

string g_language=””

string as_server,as_dbms,as_database,as_logid,as_logpass

2>close()returns(none)

disconnect using SQLCA;

3>open(string commandline)return(none)

  /*多国语言（英文/简体/繁体）数据库应用模型（PB+sql server 2000实现）

   1.连接数据库的方法定义

     string connect_method=”inifile”

     string connect_method=”script”

  */

 

     string connect_method=”inifile”

   /* 2. 连接方式选择（ini文件/脚本）  */

 

  Choose Case connect_method

   /* 以ini配置文件连接数据库*/

 

  case “INIFILE”

       if FileExists (ls_inifile) then

       as_server    =profilestring (ls_inifile,”DATABASE”,”Servername”,””)

       as_dbms      =profilestring (ls_inifile,”DATABASE”,”DBMS”,””)

       as_database  =profilestring (ls_inifile,”DATABASE”,”database”,””)

       as_logid     =profilestring (ls_inifile,”DATABASE”,”LogID”,””)

       as_logpass   =profilestring (ls-inifile,”DATABASE”,”LogPass”,””)

       end if

  /*以脚本直接连接数据库*/

 

  Case “SCRIPT”

       as_server       =”dxxo”

       as_dbms         =”MSS Microsoft SQL Server 6.x”

       as_database     =”erp”

       as_logid        =”sa”

       as_logpass      =”*******”

  End Choose

  SQLCA.DBMS           =as_dbms

  SQLCA.database       =as_database

  SQLCA.logpass        =as_logpass

  SQLCA.servername     =as_server

  SQLCA.logid          =as_logid

  SQLCA.AutoCommit     =false

  SQLCA.DBParm         =””

  /* 3.打开连接 */

    connect using SQLCA;

    if SQLCA.Code <> 0 then

       MessageBox (“Cannot Connect to Database”,SQLCA.SQLErrText)

    end if

 

  /* 4.打开窗口 */

     open(w_login)

二、 w_login 窗口

1>  w_login:open(string commandline)return(none)

   

   /* 1.得到用户清单*/

    

     dw_user.visible=false

     dw_user.settransobject(sqlca)

     dw_user.retrieve()

  

   /* 2.添加用户ID到下拉表中*/

     int ii,ti

     ti=dw_user.rowcount()

     for ii=1 to ti

         ddlb_user.additem(dw_user.object.userid[ii])

     next

  

   /* 3.装载默认的语言配置 */

     g_language=profilestring(g_language_inifile,”default”,”language”,””)

     if FileExists (g_language_inifile) then

     Choose case g_language

            case “english”           /*读取英文字母*/

              g_language=”english”  

            case “Simplified”        /*读取简体字母*/

              g_language=”Simplified”

            case “Traditional”       /*读取繁体字母*/

              g_language=”Traditional”

     end choose

   

     w_login.title      =profileString (g_language_inifile,g_language,”appname”,””)

     st_language.text   =profileString (g_language_inifile,g_language,”language”,””)

     cb_db.text         =profilestring (g_language_inifile,g_language,”connect”,””)

     st_userid.text     =profilestring (g_language_inifile,g_language,”userid”,””)

     st_username.text   =profilestring (g_language_inifile,g_language,”username”,””)

     st_pwd.text        =profilestring (g_language_inifile,g_language,”pwd”,””)

     cb_login.text      =profilestring (g_language_inifile,g_language,”login”,””)

     cb_exit.text       =profilestring (g_language_inifile,g_language,text,””)

   end if

  2>  cb_db:clicked() returns long[pbm_bnclicked]

     

    /*打开窗口*/

    

      open(w_db_option_check)

      close(w_login) 

  3>  cb_exit:clicked() returns long[pbm_bnclicked]

     

    /*关闭父窗口*/

    close(parent)

  4>  cb_login:clicked() returns long[pbm_bnclicked]

     /* 1.读取用户与密码*/

      string c_user,c_pwd,right_pwd

      c_user=””

      c_pwd=””

      right_pwd=””

      c_user=trim(ddlb_user.text)

      c_pwd=trim(sle_pwd.text)

     /* 2.判断用户与密码*/

       select password into:right_pwd

       from erp_baisc_users

       where userid=:c_user using sqlca;

      

       if right_pwd <> c_pwd then

      /* 3.密码错误翻译*/   

        string s_warning,s_password_error

        s_warning=profilestring (g_language_inifile,g_language,”warning”,””)

        s_password_error=profilestring(g_language_inifile,g_language,”password_error”,””)

        messagebox(s_warning,s_password_error)

        sle_pwd.text=””

        sle_pwd.setfocus()

        right_pwd=””

      /* 4. 密码正确*/

        /*打开主窗口*/

         open(w_mian)

         close(parent)

    end if

  4> ddlb_language    selectionchanged[integer index] returns long[pbm_bnclicked]

     /* 1.全局变量定义

        string g_language

        string g_language_inifile=”j:/my learn/demo/language.ini”

     */

    

     /* 2.读取用户选择的语言*/

        g_language=trim(ddlb_language.text)

     

     /* 3.判断配置文件是否存在?*/

        if not FileExists (g_language_inifile) then

           return

        end if

     /* 4.设置用户语言选择结果*/

        choose case g_language

           case “english”      /*读取英文字母*/ 

        choose case g_language

           case “simplified”   /*读取简体字母*/

        choose case g_language

           case “traditional”  /*读取繁体字母*/

        end choose

     /* 5.改变当前窗口控件的语言*/

        w_login.title      =profilestring (g_language_inifile,g_language,”appname”,””)

        st_language.text   =profilestring (g_language_inifile,g_language,”language”,””)

        cb_db.text         =profilestring (g_language_inifile,g_language,”connect”,””)

        st_userid.text     =profilestring (g_language_inifile,g_language,”userid”,””)

        st_username.text   =profilestring (g_language_inifile,g_language,”username”,””)

        st_pwd.text        =profilestring (g_language_inifile,g_language,”pwssword”,””)

        cb_login.text      =profilestring (g_language_inifile,g_language,”login”,””)

        cb_exit.text       =profilestring (g_language_inifile,g_language,”exit”,””)

 

   5>ddlb_user       selectionchanged [integer index] returns long [pbm_bnclicked]

    

       string c_userid,c_username

       c_userid=trim(ddlb_user.text)

       sle_username.text=c_username

       select username into:c_username

       from erp_basic_users

       where userid=:c_userid using sqlca;

  

三、  w_db_option_check  窗口

    1>  w_db_option_check   open[] returns long [pbm_bnclicked]

       /* 1.判断配置文件是否存在*/

          if not FileExists (g_language_inifile) then

             return

          end if

       /* 2.改变当前窗口控件的语言*/

          this.title        =profilestring (g_language_inifile,g_language,”warning”,””)

          st_username.text  =profilestring (g_language_inifile,g_language,”username”,””)

          st_pwd.text       =profilestring (g_language_inifile,g_language,”password”,””)

          cb_checkpwd.text  =profilestring (g_language_inifile,g_language,”checkpwd”,””)

   

    2>  cb_checkpwd  click[] returns long [pbm_bnclicked]

       /* 1.警告框信息文字翻译*/

          string s_waring, s_password_error

          s_warning         =profilestring (g_language_inifile,g_language,”warning”,””)

          s_password_error  =profilestring (g_language_inifile,g_language,”password_error”,””)

       /* 2.密码输入检查*/

          if sle_pwd.text=”123″ then

             open(w_db_option)

          else

             messagebox(s_warning,s_password_error)

          end if

          close(parent)

    

四、 w_db_option    窗口

    1> w_db_option   open[] returns long [pbm_bnclicked]

       /* 1.判断配置文件是否存在?*/

          if not FileExists (g_language_inifile) then

             return

          end if

       /* 2.改变当前窗口控件的语言*/

          this.title         =profilestring (g_language_inifile,g_language,”db_connect_mangae”,””)

          st_servername.text =profilestring (g_language_inifile,g_language,”servername”,””)

          st_database.text   =profilestring (g_language_inifile,g_language,”database”,””)

          st_userid.text     =profilestring (g_language_inifile,g_language,”userid”,””)

          st_password.text   =profilestring (g_language_inifile,g_language,”password”,””)

         

          cb_default.text    =profilestring (g_language_inifile,g_language,”default”,””)

          cb_read.text       =profilestring (g_language_inifile,g_language,”read”,””)

          cb_write.text   =profilestring (g_language_inifile,g_language,”write”,””)

   

    2> cb_default   clicked [] returns long[pbm_bnclicked]   

       /* 1.设置默认连接参数到5个全局变量*/

          as_server               =”dxxo”

          as_dbms                 =”MSS Microsoft SQL Server 6.x”

          as_database             =”erp”

          as_logid                =”sa”

          as_logpass              =”lidengzhi”

       /* 2.五个全局变量到五个文本框*/

          sle_servername.text     =as_server

          sle_dbms.text           =as_dbms

          sle_database.text       =database

          sle_logpassword.text    =as_logpass

          sle_logid.text          =as_logid

       /* 3.设置默认连接参数更新到db.ini文件中*/

          if FileExists (ls_inifile) then

             setprofilestring (ls_inifile,”database”,”servername”,as_server)

             setprofilestring (ls_inifile,”database”,”DBMS”,as_dbms)

             setprofilestring (ls_inifile,”database”,”database”,as_database)

             setprofilestring (ls_inifile,”database”,”logpassword”,as_logpass)

             setprofilestring (ls_inifile,”database”,”userid”,as_logid)

          end if

    3> cb_read clicked [] returns long[pbm_bnclicked]

       /*读取db.ini文件设置值到文本框*/

       if FileExists (ls_inifile) then

          sle_servername.text    =profilestring (ls_inifile,”database”,”servername”,””)

          sle_dbms.text          =profilestring (ls_inifile,”database”,”dbms”,””)

          sle_database.text      =profilestring (ls_inifile,”database”,”database”,””)  

          sle_logid.text         =profilestring (ls_inifile,”database”,”logid”,””)

          sle_logid.text         =profilestring (ls_inifile,”database”,”logpassword”,””)

       end if

    4> cb_write clicked [] returns long[pbm_bnclicked]

       /* 1.设置参数值存入5个全局变量*/

        as_server       =trim(sle_servername.text)

        as_dbms         =trim(sle_dbms.text)

        as_database     =trim(sle_database.text)

        as_logid        =trim(sle_logid.text)

        as_logpass      =trim(sle_logpassword.text)

       /* 2.检查参数是否都输入完毕？*/

        if len(as_server)=0 or len(as_dbms)=0 or

           len(as_database)=0 or len(as_logid)=0 or len(as_logpass)=0 then

           messagebox(“warning!”,”can’t be null,pls check server,dbms,database,logid,logpass!”)

           return

        end if

       /* 3.设置参数写入db.ini文件中*/

       if FileExists(ls_inifile) then

          SetProfileString (ls_inifile,”Database”,”servername”,as_server)

          SetProfileString (ls_inifile,”Database”,”DBMS”,as_dbms)

          SetProfileString (ls_inifile,”Database”,”Database”,as_database)

          SetProfileString (ls_inifile,”Database”,”LogId”,as_logid)

          SetProfileString (ls_inifile,”Database”,”LogPassWord”,as_logpass)

       end if

       /* 4.重新连接数据库，关闭此窗口*/

        disconnect using SQLCA;

        connect using SQLCA;

        if SQLCA.SQLCode <> 0 then

           MessageBox (“Cannot Connect to Database”,SQLCA.SQLErrText)

        end if

        close(parent)

五、  数据库的设置

     .数据库表erp_baisc_users

     table sql

      create  table erp_baisc_users(

            userid     char(20) NOT NULL,

            username char(30) NOT NULL,

            password char(12) NULL default ‘654321’,

            userofsite     char(4) NULL default ”,

            department varchar(20) NULL default ”,

            statusflag char(1) NULL default ‘0’, )

       alter table erp_baisc_users

       add constraint erp_baisc_users_pk PRIMARY KEY (userid)

       create index erp_baisc_users_ik on erp_baisc_users(userid)

插入试验记录

userid    username    password    userofsite    department    statusflag

DDG01    JORLIN    654321    HK    IT    0

DDG03    DOREN    654321    HK    QA    0

GZ-01    HAWEEN    654321    GZ    QA    0

GZ-02    JESSE    J    GZ    IT    0

六、ini的配置文件

1.数据库连接文件db.ini

db.ini file

[DataBase]

ServerName    =db

DBMS          =MSS Microsoft SQL Server 6.x

Database      =erp

LogId         =sa

LogPassword   =db11

/*———————————————————————————-*/

2.语言配置文件language.ini

[default]

language=Simplified

[english]

appname=PB demo program

language=language

Connect=&Connect DataBase

db_connect_manage=Database Connect Manage

servername=ServerName

database=Database

default=&Default

read    =&Read

write    =&Write

userid    =UserID

username=UserName

PassWord=PassWord

login    =&Login

exit    =&Exit

checkpwd=Check Password

warning =Warning

password_error=password error

insert    =&Insert

delete    =&Delete

modify    =&Modify

save    =&Save

[Simplified]

appname=PB演示程序

language=语言选择

Connect=&C连接数据库

db_connect_manage=数据库连接参数管理

servername=服务器名称

database=数据库

default =&D缺省

read    =&R读取

write    =&W写入

userid    =用户ID

username=用户名称

PassWord=用户密码

login    =&L登录

exit    =&E退出

checkpwd=&C检查密码

warning =警告

password_error=密码错误

insert    =&I插入

delete    =&D删除

modify    =&M修改

save    =&S保存

[Traditional]

appname=PB演示程式

language=語言選擇

Connect=&C連接資料庫

db_connect_manage=資料庫連接參數管理

servername=伺服器名稱

database=資料庫

default =&D缺省

read    =&R讀取

write    =&W寫入

userid    =用戶ID

username=用戶名稱

PassWord=用戶密碼

login    =&L登錄

exit    =&E退出

checkpwd=&C檢查密碼

warning =警告

password_error=密碼錯誤

insert    =&I插入

delete    =&D刪除

modify    =&M修改

save    =&S保存

/*———————————————————————————-*/

七、里面的数据源与窗口

1.应用程序对象清单

   应用程序名称:demo

   登陆窗口名称:w_login

   密码验证窗口:w_db_option_check

   数据库连接参数管理:w_db_option

   主窗口:w_main

   数据窗口:dw_userlist