公安信息系统设计程序清单.docx
- 文档编号:24045011
- 上传时间:2023-05-23
- 格式:DOCX
- 页数:71
- 大小:23.92KB
公安信息系统设计程序清单.docx
《公安信息系统设计程序清单.docx》由会员分享,可在线阅读,更多相关《公安信息系统设计程序清单.docx(71页珍藏版)》请在冰豆网上搜索。
公安信息系统设计程序清单
附录A:
部分程序源代码
1、LOGIN
unitLOGIN;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,DB,ADODB,inifiles;
type
TfrmLOGIN=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);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
frmLOGIN:
TfrmLOGIN;
adoqryLOGIN:
Tadoquery;
implementation
usesMAIN,ZXTPublicFunction;
{$R*.dfm}
procedureTfrmLOGIN.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
Action:
=caFree;
adoqryLOGIN.Free;
end;
procedureTfrmLOGIN.butOKClick(Sender:
TObject);
var
GetPower,NameNoExist:
string;
MyIni:
TInifile;
begin
if(edtLOGINNAME.Text<>'')and(edtLOGINSECR.Text<>'')then
begin
adoqryLOGIN.Close;
adoqryLOGIN.SQL.Clear;
adoqryLOGIN.SQL.Add('select*fromYHGL');
adoqryLOGIN.Open;
whilenotadoqryLOGIN.Eofdo
begin
//如果登录名相同
ifedtLOGINNAME.Text=adoqryLOGIN.FieldbyName('CHH').AsStringthen
//检查密码是否相同
ifedtLOGINSECR.Text=adoqryLOGIN.FieldbyName('MM').AsStringthen
begin
//保留用户名及其“权限”
UserLoginName:
=edtLOGINNAME.Text;
UserName:
=adoqryLOGIN.FieldbyName('YHXM').AsString;
UserDepartment:
=adoqryLOGIN.FieldbyName('GZDW').AsString;
GetPower:
=adoqryLOGIN.FieldbyName('QX').AsString;
//根据"权限"进行的相应处理
showmessage('success');
frmLOGIN.Close;
exit;
end
else
begin
showmessage('密码不正确!
');
edtLOGINSECR.Text:
='';
edtLOGINSECR.SetFocus;
exit;
end;
adoqryLOGIN.Next;
end;
showmessage('登录名并不存在!
');
edtLOGINNAME.Text:
='';
edtLOGINNAME.SetFocus;
end;
end;
procedureTfrmLOGIN.btnCANCELClick(Sender:
TObject);
begin
frmLOGIN.Close;
end;
procedureTfrmLOGIN.FormCreate(Sender:
TObject);
begin
frmLOGIN.left:
=0;
frmLOGIN.top:
=0;
ifZXTAdoConnection.Connected=falsethen
begin
showmessage('未能与数据库建立连接或数据库连接错误!
');
exit;
end;
adoqryLOGIN:
=Tadoquery.Create(nil);
adoqryLOGIN.Connection:
=ZXTAdoConnection;
end;
procedureTfrmLOGIN.FormDestroy(Sender:
TObject);
begin
frmLOGIN:
=nil;
end;
end.
2、MAIN
unitMAIN;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ComCtrls,ToolWin,Menus,Mask,StrUtils,ADODB,inifiles,StdCtrls,
DB,ImgList,shellAPI,QuickRpt,QRCtrls,ExtCtrls;
type
TfrmMAIN=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);
proceduremenuDictionaryClick(Sender:
TObject);
proceduremenuLOGINClick(Sender:
TObject);
proceduremenuPersonClick(Sender:
TObject);
proceduremenuYLTZHClick(Sender:
TObject);
proceduremenuExitClick(Sender:
TObject);
procedureFormClose(Sender:
TObject;varAction:
TCloseAction);
proceduresubmenuSeverClick(Sender:
TObject);
proceduresubmenuClientClick(Sender:
TObject);
proceduremenuClockClick(Sender:
TObject);
proceduremenuCalculatorClick(Sender:
TObject);
proceduremenuInternetClick(Sender:
TObject);
procedureFormCreate(Sender:
TObject);
proceduremenuHELPClick(Sender:
TObject);
procedureToolButton9Click(Sender:
TObject);
proceduresubmenuSetInfoClick(Sender:
TObject);
proceduresubmenuGetInfoClick(Sender:
TObject);
proceduremenuYQClick(Sender:
TObject);
proceduresubmenuSetTopClick(Sender:
TObject);
proceduremmiZaajslladjClick(Sender:
TObject);
proceduremmiZaajslccdjClick(Sender:
TObject);
proceduremmiXzajlaspClick(Sender:
TObject);
private
{Privatedeclarations}
public
end;
var
frmMAIN:
TfrmMAIN;
implementation
usesYHGL,ZDGL,USERMANAGE,LOGIN,YLTZHGL,ZDCHX,ZXTPublicFunction,
DATABASECHANGE,YQGL,UnitGfyCRj,AjglDM,ZAAJSLLADJFrm,ZaajslccdjFrm,
XzajlaspFrm;
{$R*.dfm}
{procedureTfrmMAIN.OpenChildForm(FormClass:
TFormClass;varFm;AOwner:
TComponent);
var
i:
integer;
Child:
TForm;
begin
fori:
=0toScreen.FormCount-1do
ifScreen.Forms[i].ClassType=FormClassthen
begin
Child:
=Screen.Forms[i];
ifChild.WindowState=wsMinimizedthen
ShowWindow(Child.handle,SW_SHOWNORMAL)
else
ShowWindow(Child.handle,SW_SHOWNA);
if(notChild.Visible)thenChild.Visible:
=True;
Child.BringToFront;
Child.Setfocus;
TForm(Fm):
=Child;
exit;
end;
Child:
=TForm(FormClass.NewInstance);
TForm(fm):
=Child;
Child.Create(AOwner);
end;}
procedureTfrmMAIN.menuAdminisClick(Sender:
TObject);
begin
{iffrmYHGL=nilthen
Application.CreateForm(TfrmYHGL,frmYHGL)
else
frmYHGL.Show;}
end;
procedureTfrmMAIN.menuDictionaryClick(Sender:
TObject);
begin
{iffrmZDGL=nilthen
Application.CreateForm(TfrmZDGL,frmZDGL)
else
frmZDGL.Show;}
end;
procedureTfrmMAIN.menuLOGINClick(Sender:
TObject);
begin
iffrmLOGIN=nilthen
Application.CreateForm(TfrmLOGIN,frmLOGIN)
else
frmLOGIN.Show;
end;
procedureTfrmMAIN.menuPersonClick(Sender:
TObject);
begin
{iffrmUSERMANAGE=nilthen
Application.CreateForm(TfrmUSERMANAGE,frmUSERMANAGE)
else
frmUSERMANAGE.Show;}
end;
procedureTfrmMAIN.menuYLTZHClick(Sender:
TObject);
begin
{iffrmYLTZHGL=nilthen
Application.CreateForm(TfrmYLTZHGL,frmYLTZHGL)
else
frmYLTZHGL.Show;}
end;
procedureTfrmMAIN.menuExitClick(Sender:
TObject);
begin
frmMAIN.Close;
end;
procedureTfrmMAIN.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
ZXTAdoConnection.Free;
end;
procedureTfrmMAIN.submenuSeverClick(Sender:
TObject);
begin
{shellexecute(handle,'open','TOOL\局域网通信\SEVER','','',SW_SHOW);}
end;
procedureTfrmMAIN.submenuClientClick(Sender:
TObject);
begin
{shellexecute(handle,'open','TOOL\局域网通信\CLIENT','','',SW_SHOW);}
end;
procedureTfrmMAIN.menuClockClick(Sender:
TObject);
begin
{shellexecute(handle,'open','TOOL\时钟\clock','','',SW_SHOW);}
end;
procedureTfrmMAIN.menuCalculatorClick(Sender:
TObject);
begin
{shellexecute(handle,'open','TOOL\计算器\counter','','',SW_SHOW);}
end;
procedureTfrmMAIN.menuInternetClick(Sender:
TObject);
begin
{shellexecute(handle,'open','http:
//192.168.0.103/','','',SW_SHOW);}
end;
procedureTfrmMAIN.FormCreate(Sender:
TObject);
var
Myini:
Tinifile;
str:
string;
begin
SoftRegistry;
MyIni:
=Tinifile.Create('INI\frmMAIN.ini');
ZXTAdoConnection:
=TadoConnection.Create(nil);
str:
=Myini.ReadString('SQL','connectstring','');
ConnectionStr:
=Myini.ReadString('SQL','connectstring','');
ZXTAdoConnection.ConnectionString:
=ConnectionStr;
ZXTAdoConnection.LoginPrompt:
=false;
ZXTAdoConnection.Connected:
=true;
conStr:
=ConnectionStr;
MYini.Free;
procedureTfrmMAIN.menuHELPClick(Sender:
TObject);
begin
{WinHelp(handle,'\help\help.hlp',help_index,0);}
end;
procedureTfrmMAIN.ToolButton9Click(Sender:
TObject);
begin
WinHelp(handle,'\help\help.hlp',help_index,0);
end;
procedureTfrmMAIN.submenuSetInfoClick(Sender:
TObject);
begin
{iffrmDATABASECHANGE=nilthen
Application.CreateForm(TfrmDATABASECHANGE,frmDATABASECHANGE)
else
frmDATABASECHANGE.Show;}
end;
procedureTfrmMAIN.submenuGetInfoClick(Sender:
TObject);
begin
{iffrmDATABASECHANGE=nilthen
begin
ShowDataInfo:
=true;
Application.CreateForm(TfrmDATABASECHANGE,frmDATABASECHANGE);
end
else
frmDATABASECHANGE.Show;}
end;
procedureTfrmMAIN.menuYQClick(Sender:
TObject);
begin
{iffrmYQGL=nilthen
Application.CreateForm(TfrmYQGL,frmYQGL)
else
frmYQGL.Show;}
end;
procedureTfrmMAIN.submenuSetTopClick(Sender:
TObject);
begin
{IfsubmenuSetTop.Checked=FalseThen
begin
SetWindowPos(handle,HWND_TOPMOST,0,0,frmMAIN.Width,frmMAIN.Height,SWP_DRAWFRAME);
submenuSetTop.Checked:
=True;
end
Else
begin
SetWindowPos(handle,HWND_NOTOPMOST,0,0,frmMAIN.Width,frmMAIN.Height,SWP_DRAWFRAME);
submenuSetTop.Checked:
=False;
end;}
end;
procedureTfrmMAIN.mmiZaajslladjClick(Sender:
TObject);
begin
ifFrmZaajslladj=nilthen
begin
Application.Createform(TFrmZaajslladj,FrmZaajslladj);
Frmzaajslladj.show;
end
else
FrmZaajslladj.show;
end;
procedureTfrmMAIN.mmiZaajslccdjClick(Sender:
TObject);
begin
ifZaajslccdj=nilthen
begin
Application.createForm(TFrmZaajslccdj,FrmZaajslccdj);
FrmZaajslccdj.show;
end
else
FrmZaajslccdj.show;
end;
procedureTfrmMAIN.mmiXzajlaspClick(Sender:
TObject);
begin
ifFrmXzajlasp=nilthen
begin
application.createForm(TFrmXzajlasp,FrmXzajlasp);
FrmXzajlasp.show;
end
else
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 公安 信息系统 设计 程序 清单