除、户籍查询、曾用名查询、迁户记录查询以及创建备份、删除备份共8个功能。

1.1.

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNRename,

level2typeNCONSTRAINT,level2nameNFK_Rename_People

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_Tel_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_Sex_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_ID_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNDate

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNTel_No

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNAddress

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNID_Num

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNSex

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNName

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNMove,

level2typeNCONSTRAINT,level2nameNFK_Move_People

ALTER

ND:\Program_Files_(x64)\Microsoft\SQL_Server_2017\Instances\MSSQL14.EXPRESS17\MSSQL\UserData\Citizens.mdf

SIZE

ND:\Program_Files_(x64)\Microsoft\SQL_Server_2017\Instances\MSSQL14.EXPRESS17\MSSQL\UserData\Citizens_log.ldf

SIZE

FULLTEXTSERVICEPROPERTY(IsFullTextInstalled))

begin

[Manager].[dbo].[sp_fulltext_database]

action

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNMove,

level2typeNCONSTRAINT,level2nameNFK_Move_People

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNName

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNSex

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNID_Num

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNAddress

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNTel_No

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCOLUMN,level2nameNDate

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_ID_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_Sex_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNPeople,

level2typeNCONSTRAINT,level2nameNCK_Tel_Limit

EXEC

level0typeNSCHEMA,level0nameNdbo,

level1typeNTABLE,level1nameNRename,

level2typeNCONSTRAINT,level2nameNFK_Rename_People

USE

#30331#24405#35748#35777ClientHeight

329ClientWidth

29.999999999999990000enditemValue

70.000000000000010000endControlCollection

itemColumn

49.999999999999990000enditemValue

50.000000000000020000endShowCaption

FalseTabOrder

#29992#25143#21517#65306Font.Charset

-19Font.Name

#36890#29992#25143#31821#31649#29702#31995#32479Font.Charset

-27Font.Name

50.000000000000000000enditemValue

50.000000000000000000endControlCollection

itemColumn

100.000000000000000000endShowCaption

FalseTabOrder

DataModule1.ADOConnection1Parameters

Left

Login;interfaceusesWinapi.Windows,

Winapi.Messages,

Data.DB,Data.Win.ADODB;typeTForm1

TGridPanel;Label1:

***nbeginshowMessage(错误用户名不能为空);Edit1.SetFocus;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;//

TRUE

(ADOQuery1.FieldByName(Authorized).AsString

TRUE)

(ADOQuery1.FieldByName(Alias).AsString

欢迎您

trim(ADOQuery1.FieldByName(Alias).AsString)

;end//

否则显示用户名elsebeginForm2.Label1.Caption

欢迎您

trim(ADOQuery1.FieldByName(Username).AsString)

;end;Form1.Hide;Form2.Show;endelsebeginshowMessage(错误用户名或密码错误);end;end;

end;procedure

Main;interfaceusesWinapi.Windows,

Winapi.Messages,

beginForm7.Show;Form7.FileListBox1.Directory

D:\Program_Files_(x64)\Git\Repos\Delphi_Design\bak;Form7.FileListBox1.Update;

end;procedure

beginForm6.Show;Form6.ADOTable1.Close;Form6.ADOTable1.Open;

end;procedure

beginForm5.Show;Form5.ADOTable1.Close;Form5.ADOTable1.Open;

end;procedure

beginForm7.Show;DataModule1.ADOConnection1.Close;Form7.FileListBox1.Directory

D:\Program_Files_(x64)\Git\Repos\Delphi_Design\bak;Form7.FileListBox1.Update;

end;procedure

Rename;interfaceusesWinapi.Windows,

Winapi.Messages,

Vcl.Grids,Vcl.DBGrids;typeTForm5

TADOTable;DBGrid1:

用户查询功能存在缺陷无法在DBGrid中显示ADOQuery的查询结果数据库无法从*.bak文件中恢复。

个人总结

项目由可视化集成开发环境快速应用程序开发工具制作而成对比于C/C

MFC/QT、Java

TKinterDelphi具有方便、快捷的优势在界面布局方面节省了大量的时间。

但在另一方面仍有个别功能只能通过编写代码实现大量由Delphi自动生成的Object-Pascal代码使得项目维护难度提高。

本次开发工作存在较大的失误项目分工错误让我基本承担所有工作。

此外项目的开工时间极度延后导致工期不足甚至无法完成基本功能。

通过此次开发的教训在后续课程设计乃至今后的生产环境开发都要提前估计工作量与工期合理安排开发进度杜绝临时赶工的行为。

项目用法

由于项目需要连接数据库程序而不同设备的数据库配置可能存在差异有别于直接连接到库文件的Microsoft

Office

Access、SQLite。

由我使用Windows-32bit

Release模式编译发布的可执行程序并不通用所以请根据以下步骤编译运行

项目提供了Citizens_log.ldf数据库日志文件和Citizens.mdf数据库主文件这2个文件仅支持Microsoft

SQL

2017及以上版本数据库的附加。

对于之前的版本项目额外提供了script.sql以实现数据库导入工作此脚本最低兼容SQL

Server

2008。

脚本仅涉及架构没有任何数据。

如有测试需要请在运行此脚本生成数据库后自行添加备用数据。

使用Delphi打开代码库中的Manager.dproj定位至Connect.pas文件的窗体设计视图。

修改ADOConnection1控件的ConnectionString属性点击Build选项在数据库连接向导切换为您设备的配置包括驱动程序、服务器名、登陆账号及密码、数据库名。

定位至Backup.pas文件的窗体设计视图同样地修改ADOQuery1控件的ConnectionString属性。

定位至Edit.pas、Move.pas、Rename.pas重新激活各个页面的ADOTable1确认DBGrid能够正常显示数据库的内容。

以上即可正常编译运行。