




已閱讀5頁,還剩35頁未讀, 繼續(xù)免費閱讀
版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
附錄A:部分程序源代碼1、LOGINunitLOGIN;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,DB,ADODB,inifiles;typeTfrmLOGIN=class(TForm)Label1:TLabel;Label2:TLabel;edtLOGINNAME:TEdit;edtLOGINSECR:TEdit;butOK:TButton;btnCANCEL:TButton;procedureFormClose(Sender:TObject;varAction:TCloseAction);procedurebutOKClick(Sender:TObject);procedurebtnCANCELClick(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormDestroy(Sender:TObject);privatePrivatedeclarationspublicPublicdeclarationsend;varfrmLOGIN:TfrmLOGIN;adoqryLOGIN:Tadoquery;implementationusesMAIN,ZXTPublicFunction;$R*.dfmprocedureTfrmLOGIN.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;adoqryLOGIN.Free;end;procedureTfrmLOGIN.butOKClick(Sender:TObject);varGetPower,NameNoExist:string;MyIni:TInifile;beginif(edtLOGINNAME.Text)and(edtLOGINSECR.Text)thenbeginadoqryLOGIN.Close;adoqryLOGIN.SQL.Clear;adoqryLOGIN.SQL.Add(select*fromYHGL);adoqryLOGIN.Open;whilenotadoqryLOGIN.Eofdobegin/如果登錄名相同ifedtLOGINNAME.Text=adoqryLOGIN.FieldbyName(CHH).AsStringthen/檢查密碼是否相同ifedtLOGINSECR.Text=adoqryLOGIN.FieldbyName(MM).AsStringthenbegin/保留用戶名及其“權限”UserLoginName:=edtLOGINNAME.Text;UserName:=adoqryLOGIN.FieldbyName(YHXM).AsString;UserDepartment:=adoqryLOGIN.FieldbyName(GZDW).AsString;GetPower:=adoqryLOGIN.FieldbyName(QX).AsString;/根據權限進行的相應處理showmessage(success);frmLOGIN.Close;exit;endelsebeginshowmessage(密碼不正確!);edtLOGINSECR.Text:=;edtLOGINSECR.SetFocus;exit;end;adoqryLOGIN.Next;end;showmessage(登錄名并不存在!);edtLOGINNAME.Text:=;edtLOGINNAME.SetFocus;end;end;procedureTfrmLOGIN.btnCANCELClick(Sender:TObject);beginfrmLOGIN.Close;end;procedureTfrmLOGIN.FormCreate(Sender:TObject);beginfrmLOGIN.left:=0;frmLOGIN.top:=0;ifZXTAdoConnection.Connected=falsethenbeginshowmessage(未能與數據庫建立連接或數據庫連接錯誤!);exit;end;adoqryLOGIN:=Tadoquery.Create(nil);adoqryLOGIN.Connection:=ZXTAdoConnection;end;procedureTfrmLOGIN.FormDestroy(Sender:TObject);beginfrmLOGIN:=nil;end;end.2、MAINunitMAIN;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,ToolWin,Menus,Mask,StrUtils,ADODB,inifiles,StdCtrls,DB,ImgList,shellAPI,QuickRpt,QRCtrls,ExtCtrls;typeTfrmMAIN=class(TForm)CoolBar1:TCoolBar;tbSYSTEM:TToolBar;ToolButton1:TToolButton;ToolButton2:TToolButton;ToolButton3:TToolButton;ToolButton4:TToolButton;ToolButton5:TToolButton;ToolButton6:TToolButton;ToolButton7:TToolButton;ToolButton8:TToolButton;ToolButton9:TToolButton;StatusBar1:TStatusBar;MainMenu1:TMainMenu;menuSYSTEM:TMenuItem;menuLOGIN:TMenuItem;menuAdminis:TMenuItem;menuPerson:TMenuItem;menuDictionary:TMenuItem;N6:TMenuItem;menuExit:TMenuItem;menuMENU:TMenuItem;menuAJ:TMenuItem;menuABOUT:TMenuItem;menuHELP:TMenuItem;menuCHRJ:TMenuItem;menuYLTZH:TMenuItem;menuZHF:TMenuItem;menuImage:TMenuItem;menuShow:TMenuItem;menuInternet:TMenuItem;N1:TMenuItem;A1:TMenuItem;D2:TMenuItem;ilFORTOOL:TImageList;menuTool:TMenuItem;C1:TMenuItem;menuCalculator:TMenuItem;menuSysSet:TMenuItem;B1:TMenuItem;C2:TMenuItem;N3:TMenuItem;menuLanChat:TMenuItem;menuClock:TMenuItem;submenuSever:TMenuItem;submenuClient:TMenuItem;menuDataBase:TMenuItem;submenuGetInfo:TMenuItem;submenuSetInfo:TMenuItem;T3:TMenuItem;N2:TMenuItem;ToolButton13:TToolButton;menuYQ:TMenuItem;submenuSetTop:TMenuItem;mmiZaaj1:TMenuItem;mmiXzaj:TMenuItem;mmiZaajslladj:TMenuItem;mmiZaajslccdj:TMenuItem;mmiXzajlasp:TMenuItem;proceduremenuAdminisClick(Sender:TObject);proceduremenuDictionaryCl
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 學校消毒室管理制度
- 學校考勤組管理制度
- 學校預借款管理制度
- 學生洗浴卡管理制度
- 孩子托管班管理制度
- 安全環(huán)保處管理制度
- 定制式義齒管理制度
- 實訓室常規(guī)管理制度
- 實驗課常規(guī)管理制度
- 客房布草間管理制度
- 小學教育研究方法智慧樹知到期末考試答案章節(jié)答案2024年海南師范大學
- 柴油機外文文獻翻譯資料
- GB/T 10963.1-2020電氣附件家用及類似場所用過電流保護斷路器第1部分:用于交流的斷路器
- GA/T 1567-2019城市道路交通隔離欄設置指南
- RASS鎮(zhèn)靜評分表格
- 拆除新建橋梁鉆孔樁專項施工方案
- YY 0331-2006 脫脂棉紗布、脫脂棉粘膠混紡紗布的性能要求和試驗方法
- 切分軋制孔型設計
- 轉化國際食品法典(CAC)農藥最大殘留限量標準
- 胸腔鏡下三切口切除食管癌的手術配合
- 叉車日常維護保養(yǎng)檢查記錄表
評論
0/150
提交評論