真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

vb.NET密碼保存 vb編寫密碼程序

VB.net2008開發(fā)軟件設(shè)置軟件第一次登錄密碼【請看圖】

第一次打開也沒有密碼吧?如果有初始密碼,直接寫代碼中,判斷下沒有ini就用存儲密碼的變量

創(chuàng)新互聯(lián)專注于騰沖網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供騰沖營銷型網(wǎng)站建設(shè),騰沖網(wǎng)站制作、騰沖網(wǎng)頁設(shè)計、騰沖網(wǎng)站官網(wǎng)定制、微信小程序服務(wù),打造騰沖網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供騰沖網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

VB.net 如何實現(xiàn)記住密碼 自動登錄

代碼如下:

/// summary

/// 連接到窗體:通過密碼保護(hù)信息找回密碼!

/// /summary

/// param name="sender"/param

/// param name="e"/param

private void lbl_mibao_Click(object sender, EventArgs e)

{

Getbackpwd getbackpwd = new Getbackpwd();

getbackpwd.Show();

}

/// summary

/// 當(dāng)該窗體加載時從xml文件中讀取用戶信息并加載到combox的Items中

/// /summary

/// param name="sender"/param

/// param name="e"/param

private void Addresslist_Load(object sender, EventArgs e)

{

XmlTextReader reader = new XmlTextReader(@"E:\面向?qū)ο?-C#練習(xí)\通訊錄\address list\address list\user.xml");

while (reader.Read())

{

//if (reader.LocalName.Equals("Name") || reader.LocalName.Equals("Number"))

if (reader.LocalName.Equals("username"))

{

this.cmbUserName.Items.Add(reader.ReadString());

}

//if (reader.LocalName.Equals("Number"))

//{

// this.label2.Text += reader.ReadString() + "\n";\

//}

}

reader.Close();

}

/// summary

/// 保存用戶名到user.xml

/// /summary

//在listcontol上更改SelectedValue時執(zhí)行從數(shù)據(jù)庫讀取密碼的事件

private void cmbUserName_SelectedValueChanged(object sender, EventArgs e)

{

string username = cmbUserName.Text.Trim();

string sql = string.Format("select pwd from Admin where Username='{0}'", username);

try

{

SqlCommand command = new SqlCommand(sql, DBHelper.connection);

DBHelper.connection.Open();

SqlDataReader dataReader = command.ExecuteReader();

while (dataReader.Read())

{

txtpwd.Text = (string)dataReader["pwd"];

checkBoxpwd.Checked = true;

}

}

catch

{

MessageBox.Show("數(shù)據(jù)庫操作出錯!");

}

finally

{

DBHelper.connection.Close();

}

}

/// summary

/// 記住密碼操作

/// /summary

/// param name="sender"/param

/// param name="e"/param

private void checkBoxpwd_Enter(object sender, EventArgs e)

{

bool check = true;

check = checkinput(cmbUserName.Text.Trim());

if ((string)cmbUserName.Text.Trim() == "")

{

MessageBox.Show("請輸入用戶名", "輸入提示", MessageBoxButtons.OK, MessageBoxIcon.Information);

cmbUserName.Focus();

}

else

{

if (txtpwd.Text.Trim() == "")

{

MessageBox.Show("請輸入密碼", "輸入提示", MessageBoxButtons.OK, MessageBoxIcon.Information);

txtpwd.Focus();

}

else

{

bool isValidUser = false; // 標(biāo)識是否為合法用戶

string message = ""; // 如果登錄失敗,顯示的消息提示

// 如果驗證通過,就顯示相應(yīng)的用戶窗體,并將當(dāng)前窗體設(shè)為不可見

if (ValidateInput())

{

// 調(diào)用用戶驗證方法

isValidUser = ValidateUser(cmbUserName.Text, txtpwd.Text, ref message);

// 如果是合法用戶,顯示相應(yīng)的窗體

if (isValidUser)

{

if (check == true)

{

XmlDocument doc = new XmlDocument();

doc.Load(@"E:\面向?qū)ο?-C#練習(xí)\通訊錄\address list\address list\user.xml");//(@"E:\面向?qū)ο?-C#練習(xí)\通訊錄\address list\address list\user.xml");

XmlElement node = doc.CreateElement("user");

XmlNode xnode = (XmlNode)doc.CreateElement("username");

xnode.InnerText = cmbUserName.Text.Trim();

node.AppendChild(xnode);

doc.DocumentElement.InsertAfter(node, doc.DocumentElement.LastChild);

doc.Save(@"E:\面向?qū)ο?-C#練習(xí)\通訊錄\address list\address list\user.xml");

//doc.Load (@"E:\面向?qū)ο?-C#練習(xí)\通訊錄\address list\address list\user.xml");

}

}

// 如果登錄失敗,顯示相應(yīng)的消息

else

{

MessageBox.Show(message, "記住密碼失敗!", MessageBoxButtons.OK, MessageBoxIcon.Information);

}

}

}

}

}

/// summary

/// 驗證當(dāng)前combox中內(nèi)容是否已經(jīng)存在于xml文件中

/// /summary

/// param name="text"/param

/// returns/returns

private bool checkinput(string text)

{

int count;

bool c = true;

for (count = 0; count cmbUserName.Items.Count;count ++ )

{

if (text ==(string )cmbUserName .Items [count])

{

c=false;

}

}

return c;

}

xml文件內(nèi)容如下:?xml version="1.0" encoding="utf-8"?

person

user

vb.net訪問網(wǎng)絡(luò)數(shù)據(jù)庫如何不把密碼保存到本地程序中?

虛擬機上一般有的會附帶數(shù)據(jù)庫,有的需要另外花錢購置,然后你在虛擬機上創(chuàng)建一個數(shù)據(jù)庫,把你代碼連接數(shù)據(jù)庫的IP等設(shè)置,設(shè)置到你虛擬機上的地址

VB 怎么用復(fù)選框來選擇“記住密碼”

我用的是VB。NET 10.0 會有點不同

寫出到文件里就行了,當(dāng)然過程中可以加密

FileOpen(1, "D:\USER.Txt", OpenMode.Binary)

Dim asd As String = "123456"

Write(asd)


名稱欄目:vb.NET密碼保存 vb編寫密碼程序
分享鏈接:http://weahome.cn/article/hhsisi.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部