公安信息系统设计程序清单.doc

附录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