專(zhuān)門(mén)人才信息管理系統(tǒng)vf完版畢業(yè)論文-在線瀏覽
2024-08-05 19:25本頁(yè)面
【正文】 新建一表單，將其保存為 C:\人才檔案\，屬性caption為“專(zhuān)門(mén)人才管理系統(tǒng)”；Autocenter屬性為“T真”；Alwaysontop屬性設(shè)為“T真”；Controlbox屬性為“F假”。屬性Top為“14”；屬性Width為“375”；為該表單添加4個(gè)Label控件，其屬性設(shè)置如下：Label1:屬性Caption為“三門(mén)峽職業(yè)技術(shù)學(xué)院”；屬性Backstyle為“0透明”；屬性FontName為“華文彩云”。屬性FontSize為“18”；屬性Left為“24”；屬性Height為“29”；屬性Top為“65”；屬性Width為“326”；Label3：屬性Caption為“版權(quán)所有”；屬性Backstyle為“0透明”；屬性FontName為“隸書(shū)”。屬性FontSize為“15”；屬性Left為“224”；屬性Height為“25”；屬性Top為“120”；屬性Width為“82”；代碼設(shè)計(jì)：在窗體的KeyPress事件中添加代碼：在窗體的MouseDown事件中添加代碼：這樣，系統(tǒng)版權(quán)窗口的設(shè)計(jì)就完成了。接下來(lái)，便要設(shè)計(jì)各個(gè)功能模塊。主要包括修改密碼窗體、刪除用戶(hù)窗體和添加用戶(hù)窗體組成。caption屬性為“專(zhuān)門(mén)人才管理系統(tǒng)用戶(hù)管理”Autocenter屬性為“T真“；Alwaysontop屬性設(shè)為“T真“；為該表單添加5個(gè)Command控件，其屬性設(shè)置為Command1：屬性Caption為“修改密碼”；屬性FontSize為“12”；屬性Left為“48”；屬性Height為“32”；屬性Top為“101”；屬性Width為“96”；Command2：屬性Caption為“添加用戶(hù)”；屬性FontSize為“12”；屬性Left為“48”；屬性Height為“32”；屬性Top為“143”；屬性Width為“96”；Command3：屬性Caption為“刪除用戶(hù)”；屬性FontSize為“12”；屬性Left為“48”；屬性Height為“32”；屬性Top為“185”；屬性Width為“96”；Command4：屬性Caption為“退出”；屬性FontSize為“12”；屬性Left為“324”；屬性Height為“32”；屬性Top為“216”；屬性Width為“48”；Command5：屬性Caption為“關(guān)于”；屬性FontSize為“12”；屬性Left為“12”；屬性Height為“25”；屬性Top為“12”；屬性Width為“36”；代碼設(shè)計(jì)：在窗體的Init事件中添加代碼：if rank=2=“F假”=“F假”endif在mand1的click事件中添加代碼：do form forms\xgmima在mand2的click事件中添加代碼：do form forms\tjuser在mand3的click事件中添加代碼：do form forms\scuser在mand4的click事件中添加代碼：（6）在mand1的click事件中添加代碼：do form forms\gy至此，用戶(hù)管理主窗體創(chuàng)建完畢。在用戶(hù)輸入正確的用戶(hù)名和口令后，修改本用戶(hù)密碼。具體實(shí)現(xiàn)步驟如下：1．新建一表單，將其保存為C:\人才檔案Caption屬性為“修改密碼”。屬性Fontbold為“T真”；屬性FontSize為“24”；屬性Height為“36”；屬性Left為“51”；屬性Top為“13”；屬性Width為“233”；Label2：屬性Caption為“”；屬性Backstyle為“0透明”；屬性FontName為“宋體”。屬性FontSize為“12”；屬性Left為“38”；屬性Height為“20”；屬性Top為“100”；屬性Width為“98”；Label4：屬性Caption為“請(qǐng)輸入密碼”；屬性Backstyle為“0透明”；屬性FontName為“宋體”。屬性FontSize為“12”；屬性Left為“37”；屬性Height為“20”；屬性Top為“168”；屬性Width為“98”；Label6：屬性Caption為“請(qǐng)確認(rèn)新密碼”；屬性Backstyle為“0透明”；屬性FontName為“宋體”。其中Text1用來(lái)輸入用戶(hù)名，Text2用來(lái)輸入用戶(hù)的原密碼，Text3用來(lái)輸入用戶(hù)的新密碼Text4用來(lái)確認(rèn)用戶(hù)輸入的新密碼其屬性設(shè)置分別為：Text1：屬性FontSize為“11”；屬性Left為“153”；屬性Height為“25”；屬性Top為“92”；屬性Width為“145”；Text2：屬性PasswordChar為“*”；屬性FontSize為“11”；屬性Left為“153”；屬性Height為“25”；屬性Top為“128”；屬性Width為“145”；Text3：屬性PasswordChar為“*”；屬性FontSize為“11”；屬性Left為“153”；屬性Height為“25”；屬性Top為“163”；屬性Width為“145”；Text4：屬性PasswordChar為“*”；屬性FontSize為“11”；屬性Left為“153”；屬性Height為“25”；屬性Top為“198”；屬性Width為“145”；為該窗體添加3個(gè)Command控件，其屬性設(shè)置分別為：Command1：屬性Caption“確定”；屬性FontSize為“12”；屬性Left為“49”；屬性Height為“25”；屬性Top為“250”；屬性Width為“60”；Command2：屬性Caption“取消”；屬性FontSize為“12”；屬性Left為“136”；屬性Height為“25”；屬性Top為“250”；屬性Width為“60”；Command3：屬性Caption“退出”；屬性FontSize為“12”；屬性Left為“229”；屬性Height為“25”；屬性Top為“250”；屬性Width為“60”；代碼設(shè)計(jì)在Command1的Click事件中添加代碼：use student\data\userinfocx=alltrim()cy=alltrim()pwd=alltrim()ppp=alltrim()set order to user_idseek cxif len(cx)=0cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’請(qǐng)輸入用戶(hù)名’nDialogType=4+32nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6=’’case nAnswer=7cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’不要亂來(lái)’messagebox(cMessageText,nDialogType,cMessageTitle)endcaseelseif len(cy)=0cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’請(qǐng)輸入密碼’nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6=’’case nAnswer=7cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’不要亂來(lái)’messagebox(cMessageText,nDialogType,cMessageTitle)endcaseelseif len(pwd)=0cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’請(qǐng)輸入新密碼’nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6=’’case nAnswer=7cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’不要亂來(lái)’messagebox(cMessageText,nDialogType,cMessageTitle)endcaseelseif len(ppp)=0cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’請(qǐng)輸入密碼’nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)do casecase nAnswer=6=’’case nAnswer=7cMessageTitle=’專(zhuān)門(mén)人才系統(tǒng)’cMessageText=’不要亂來(lái)’messagebox(cMessageText,nDialogType,cMessageTitle)endcaseelseif al
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1