已阅读5页,还剩35页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
附录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. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- GB/T 43855-2024衣物洗涤质量要求
- 2024年汞灯项目资金需求报告代可行性研究报告
- 化工设备基础(海南联盟)-知到答案、智慧树答案
- 2024年渔制品项目资金需求报告代可行性研究报告
- 2023年PURL系列反应型皮革用聚氨酯乳液投资申请报告
- 2024年过滤器项目资金筹措计划书代可行性研究报告
- 2024年直流风扇项目资金筹措计划书代可行性研究报告
- 2024年固定照明设备项目资金申请报告
- 2024年水泵项目资金申请报告代可行性研究报告
- 2024年轧辊车床项目投资申请报告代可行性研究报告
- 2024年安全生产月“人人讲安全 个个会应急-畅通生命通道”主题宣贯培训课件
- 甘肃省三支一扶考试试题及答案
- 《糖尿病患者血脂管理中国专家共识(2024版)》解读
- 中国民宿行业市场运行分析及发展趋势与投资战略研究报告
- 唐山打人案例分析
- 《庭院设计练习》教学设计
- 抖音来客商家门店经营
- 国开2024年《建筑材料(A)》形考作业1-4答案
- 2024中国南水北调集团有限公司招聘笔试参考题库含答案解析
- 仪器仪表研究预测报告-仪器仪表项目商业计划书(2024-2028年)
- 通过圆筒壁的导热
评论
0/150
提交评论