pb数据库登录界面

// 创建窗口
w_login winform
{
    title="PB数据库登录";
    size=(300,200);
}

// 添加控件
string ls_username, ls_password
text txt_username
{
    parent=w_login;
    text="";
    x=50;y=50;width=200;
}
text txt_password
{
    parent=w_login;
    text="";
    x=50;y=100;width=200;
    passwordchar="*";
}
button btn_login
{
    parent=w_login;
    text="登录";
    x=100;y=150;width=100;
    action=login;
}

// 登录动作
function login()
{
    ls_username = txt_username.text;
    ls_password = txt_password.text;
    
    if login_db(ls_username, ls_password) then
        messagebox("成功", "登录成功！");
        // 进入主界面
    else
        messagebox("错误", "用户名或密码错误！");
    end if;
}

// 数据库登录函数
function boolean login_db(string username, string password)
{
    database db
    {
        connect using sqlca;
        sqlca.dbms = "PB";
        sqlca.database = "your_database_name";
        sqlca.logid = username;
        sqlca.logpass = password;
        connect;
    }
    
    if sqlca.sqlcode = 0 then
        return true;
    else
        return false;
    end if;
}