Delphi+SQL Server实现的(GUI)户籍管理系统
1.项目简介
本项目是一个户籍管理系统,用于记录住户身份信息,提供新户登记(增加)、户籍变更(修改)、户籍注销(删除)、户籍查询、曾用名查询、迁户记录查询以及创建备份、删除备份共8个功能。
1.1. 软件环境与开发工具
- 操作系统:Windows 10 Home China 1809 17763
- 数据库:SQL Server Express 2017
- 集成开发环境:Embarcadero Delphi Architect 10.3
2. 数据库设计
2.1. 概要结构设计
数据库Manager
共包括以下3张表:
表名 | 说明 |
| 存储用户信息,是程序的核心表 |
| 存储用户改名记录,作为曾用名表 |
| 存储用户的住址变更记录,作为户籍变更历史 |
| 存储系统管理员账户信息 |
2.2. 数据表结构分析
4张数据表的字段分别列举如下:
字段名 | 含义 | 类型 |
| 姓名 |
|
| 性别 |
|
| 身份证号(主键) |
|
| 户籍地址 |
|
| 联系方式 |
|
| 更新时间 |
|
字段名 | 含义 | 类型 |
| 身份证号(主键) |
|
| 曾用名 |
|
| 改名时间(升序索引) |
|
字段名 | 含义 | 类型 |
| 身份证号(主键) |
|
| 曾用户籍地 |
|
| 迁户时间(升序索引) |
|
字段名 | 含义 | 类型 |
| 用户名(主键) |
|
| 别名 |
|
| 密码 |
|
2.3建表语句
USE [Manager]
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Rename', @level2type=N'CONSTRAINT',@level2name=N'FK_Rename_People'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_Tel_Limit'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_Sex_Limit'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_ID_Limit'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Date'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Tel_No'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Address'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'ID_Num'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Sex'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Name'
GO
EXEC sys.sp_dropextendedproperty @name=N'MS_Description' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Move', @level2type=N'CONSTRAINT',@level2name=N'FK_Move_People'
GO
ALTER TABLE [dbo].[People] DROP CONSTRAINT [CK_Tel_Limit]
GO
ALTER TABLE [dbo].[People] DROP CONSTRAINT [CK_Sex_Limit]
GO
ALTER TABLE [dbo].[People] DROP CONSTRAINT [CK_ID_Limit]
GO
ALTER TABLE [dbo].[Rename] DROP CONSTRAINT [FK_Rename_People]
GO
ALTER TABLE [dbo].[People] DROP CONSTRAINT [FK_People_People]
GO
ALTER TABLE [dbo].[Move] DROP CONSTRAINT [FK_Move_People]
GO
/****** Object: Index [IX_Rename_1] Script Date: 2019/5/27 1:20:03 ******/
DROP INDEX [IX_Rename_1] ON [dbo].[Rename]
GO
/****** Object: Index [IX_Rename] Script Date: 2019/5/27 1:20:03 ******/
DROP INDEX [IX_Rename] ON [dbo].[Rename]
GO
/****** Object: Index [IX_Move_1] Script Date: 2019/5/27 1:20:03 ******/
DROP INDEX [IX_Move_1] ON [dbo].[Move]
GO
/****** Object: Index [IX_Move] Script Date: 2019/5/27 1:20:03 ******/
DROP INDEX [IX_Move] ON [dbo].[Move]
GO
/****** Object: Table [dbo].[Rename] Script Date: 2019/5/27 1:20:03 ******/
DROP TABLE [dbo].[Rename]
GO
/****** Object: Table [dbo].[People] Script Date: 2019/5/27 1:20:03 ******/
DROP TABLE [dbo].[People]
GO
/****** Object: Table [dbo].[Move] Script Date: 2019/5/27 1:20:03 ******/
DROP TABLE [dbo].[Move]
GO
USE [master]
GO
/****** Object: Database [Manager] Script Date: 2019/5/27 1:20:03 ******/
DROP DATABASE [Manager]
GO
/****** Object: Database [Manager] Script Date: 2019/5/27 1:20:03 ******/
CREATE DATABASE [Manager] ON PRIMARY
( NAME = N'Citizens', FILENAME = N'D:\Program_Files_(x64)\Microsoft\SQL_Server_2017\Instances\MSSQL14.EXPRESS17\MSSQL\UserData\Citizens.mdf' , SIZE = 8192KB , MAXSIZE = 1048576KB , FILEGROWTH = 1%)LOG ON
( NAME = N'Citizens_log', FILENAME = N'D:\Program_Files_(x64)\Microsoft\SQL_Server_2017\Instances\MSSQL14.EXPRESS17\MSSQL\UserData\Citizens_log.ldf' , SIZE = 8192KB , MAXSIZE = 1048576KB , FILEGROWTH = 1%)
GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [Manager].[dbo].[sp_fulltext_database] @action = 'enable'
end
GO
ALTER DATABASE [Manager] SET ANSI_NULL_DEFAULT OFF
GO
ALTER DATABASE [Manager] SET ANSI_NULLS OFF
GO
ALTER DATABASE [Manager] SET ANSI_PADDING OFF
GO
ALTER DATABASE [Manager] SET ANSI_WARNINGS OFF
GO
ALTER DATABASE [Manager] SET ARITHABORT OFF
GO
ALTER DATABASE [Manager] SET AUTO_CLOSE ON
GO
ALTER DATABASE [Manager] SET AUTO_SHRINK OFF
GO
ALTER DATABASE [Manager] SET AUTO_UPDATE_STATISTICS ON
GO
ALTER DATABASE [Manager] SET CURSOR_CLOSE_ON_COMMIT OFF
GO
ALTER DATABASE [Manager] SET CURSOR_DEFAULT GLOBAL
GO
ALTER DATABASE [Manager] SET CONCAT_NULL_YIELDS_NULL OFF
GO
ALTER DATABASE [Manager] SET NUMERIC_ROUNDABORT OFF
GO
ALTER DATABASE [Manager] SET QUOTED_IDENTIFIER OFF
GO
ALTER DATABASE [Manager] SET RECURSIVE_TRIGGERS OFF
GO
ALTER DATABASE [Manager] SET DISABLE_BROKER
GO
ALTER DATABASE [Manager] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
GO
ALTER DATABASE [Manager] SET DATE_CORRELATION_OPTIMIZATION OFF
GO
ALTER DATABASE [Manager] SET TRUSTWORTHY OFF
GO
ALTER DATABASE [Manager] SET ALLOW_SNAPSHOT_ISOLATION OFF
GO
ALTER DATABASE [Manager] SET PARAMETERIZATION SIMPLE
GO
ALTER DATABASE [Manager] SET READ_COMMITTED_SNAPSHOT OFF
GO
ALTER DATABASE [Manager] SET HONOR_BROKER_PRIORITY OFF
GO
ALTER DATABASE [Manager] SET RECOVERY SIMPLE
GO
ALTER DATABASE [Manager] SET MULTI_USER
GO
ALTER DATABASE [Manager] SET PAGE_VERIFY CHECKSUM
GO
ALTER DATABASE [Manager] SET DB_CHAINING OFF
GO
USE [Manager]
GO
/****** Object: Table [dbo].[Move] Script Date: 2019/5/27 1:20:03 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Move]([ID_Num] [char](18) NOT NULL,[Address] [nvarchar](100) NOT NULL,[Date] [datetime] NOT NULL
) ON [PRIMARY]
GO
/****** Object: Table [dbo].[People] Script Date: 2019/5/27 1:20:03 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[People]([Name] [nvarchar](10) NOT NULL,[Sex] [nchar](2) NOT NULL,[ID_Num] [char](18) NOT NULL,[Address] [nvarchar](100) NOT NULL,[Tel_No] [numeric](12, 0) NOT NULL,[Date] [datetime] NOT NULL,CONSTRAINT [PK_People] PRIMARY KEY CLUSTERED
([ID_Num] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
/****** Object: Table [dbo].[Rename] Script Date: 2019/5/27 1:20:03 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Rename]([ID_Num] [char](18) NOT NULL,[Old_Name] [char](10) NOT NULL,[Date] [datetime] NOT NULL
) ON [PRIMARY]
GO
INSERT [dbo].[Move] ([ID_Num], [Address], [Date]) VALUES (N'440101200101010101', N'北京市', CAST(N'2019-05-27T00:14:47.990' AS DateTime))
INSERT [dbo].[Move] ([ID_Num], [Address], [Date]) VALUES (N'440111201111111111', N'上海', CAST(N'2019-05-27T00:34:22.500' AS DateTime))
INSERT [dbo].[Move] ([ID_Num], [Address], [Date]) VALUES (N'440111201111111111', N'杭州', CAST(N'2019-05-27T00:35:12.933' AS DateTime))
INSERT [dbo].[Move] ([ID_Num], [Address], [Date]) VALUES (N'440111201111111111', N'杭州', CAST(N'2019-05-27T00:35:44.370' AS DateTime))
INSERT [dbo].[People] ([Name], [Sex], [ID_Num], [Address], [Tel_No], [Date]) VALUES (N'John', N'男 ', N'440101200101010101', N'北京市', CAST(13333333333 AS Numeric(12, 0)), CAST(N'2019-05-27T00:23:28.633' AS DateTime))
INSERT [dbo].[People] ([Name], [Sex], [ID_Num], [Address], [Tel_No], [Date]) VALUES (N'Ben', N'男 ', N'440111201111111111', N'杭州', CAST(13333333333 AS Numeric(12, 0)), CAST(N'2019-05-27T00:35:44.367' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Alice ', CAST(N'2019-05-27T00:08:35.767' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Alice ', CAST(N'2019-05-27T00:14:47.987' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Cindarela ', CAST(N'2019-05-27T00:15:07.933' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Alice ', CAST(N'2019-05-27T00:18:24.390' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Bob ', CAST(N'2019-05-27T00:19:22.057' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'Ben ', CAST(N'2019-05-27T00:20:54.577' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440101200101010101', N'John ', CAST(N'2019-05-27T00:23:28.633' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440111201111111111', N'Alice ', CAST(N'2019-05-27T00:34:22.500' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440111201111111111', N'Ben ', CAST(N'2019-05-27T00:35:12.930' AS DateTime))
INSERT [dbo].[Rename] ([ID_Num], [Old_Name], [Date]) VALUES (N'440111201111111111', N'Ben ', CAST(N'2019-05-27T00:35:44.370' AS DateTime))
SET ANSI_PADDING ON
GO
/****** Object: Index [IX_Move] Script Date: 2019/5/27 1:20:03 ******/
CREATE NONCLUSTERED INDEX [IX_Move] ON [dbo].[Move]
([ID_Num] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
/****** Object: Index [IX_Move_1] Script Date: 2019/5/27 1:20:03 ******/
CREATE UNIQUE NONCLUSTERED INDEX [IX_Move_1] ON [dbo].[Move]
([Date] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
SET ANSI_PADDING ON
GO
/****** Object: Index [IX_Rename] Script Date: 2019/5/27 1:20:03 ******/
CREATE NONCLUSTERED INDEX [IX_Rename] ON [dbo].[Rename]
([ID_Num] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
/****** Object: Index [IX_Rename_1] Script Date: 2019/5/27 1:20:03 ******/
CREATE UNIQUE NONCLUSTERED INDEX [IX_Rename_1] ON [dbo].[Rename]
([Date] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = ON, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
GO
ALTER TABLE [dbo].[Move] WITH CHECK ADD CONSTRAINT [FK_Move_People] FOREIGN KEY([ID_Num])
REFERENCES [dbo].[People] ([ID_Num])
GO
ALTER TABLE [dbo].[Move] CHECK CONSTRAINT [FK_Move_People]
GO
ALTER TABLE [dbo].[People] WITH CHECK ADD CONSTRAINT [FK_People_People] FOREIGN KEY([ID_Num])
REFERENCES [dbo].[People] ([ID_Num])
GO
ALTER TABLE [dbo].[People] CHECK CONSTRAINT [FK_People_People]
GO
ALTER TABLE [dbo].[Rename] WITH CHECK ADD CONSTRAINT [FK_Rename_People] FOREIGN KEY([ID_Num])
REFERENCES [dbo].[People] ([ID_Num])
GO
ALTER TABLE [dbo].[Rename] CHECK CONSTRAINT [FK_Rename_People]
GO
ALTER TABLE [dbo].[People] WITH CHECK ADD CONSTRAINT [CK_ID_Limit] CHECK ((len([ID_Num])=(15) OR len([ID_Num])=(18)))
GO
ALTER TABLE [dbo].[People] CHECK CONSTRAINT [CK_ID_Limit]
GO
ALTER TABLE [dbo].[People] WITH CHECK ADD CONSTRAINT [CK_Sex_Limit] CHECK (([Sex]='男' OR [Sex]='女'))
GO
ALTER TABLE [dbo].[People] CHECK CONSTRAINT [CK_Sex_Limit]
GO
ALTER TABLE [dbo].[People] WITH CHECK ADD CONSTRAINT [CK_Tel_Limit] CHECK ((len([Tel_No])>=(10) AND len([Tel_No])<=(12)))
GO
ALTER TABLE [dbo].[People] CHECK CONSTRAINT [CK_Tel_Limit]
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'身份证绑定' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Move', @level2type=N'CONSTRAINT',@level2name=N'FK_Move_People'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'姓名' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Name'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'性别' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Sex'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'身份证号' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'ID_Num'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'家庭住址' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Address'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'联系方式' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Tel_No'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'户籍变更时间' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'COLUMN',@level2name=N'Date'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'限制身份证长度' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_ID_Limit'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'限制性别取值' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_Sex_Limit'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'限制号码长度' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'People', @level2type=N'CONSTRAINT',@level2name=N'CK_Tel_Limit'
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'身份证号关联' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Rename', @level2type=N'CONSTRAINT',@level2name=N'FK_Rename_People'
GO
USE [master]
GO
ALTER DATABASE [Manager] SET READ_WRITE
GO
3.系统实现
3.1登录业务
object Form1: TForm1Left = 0Top = 0BorderStyle = bsDialogCaption = #30331#24405#35748#35777ClientHeight = 329ClientWidth = 457Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poScreenCenterVisible = TruePixelsPerInch = 96TextHeight = 13object GridPanel1: TGridPanelLeft = 100Top = 135Width = 257Height = 59Align = alClientBevelOuter = bvNoneCaption = 'GridPanel1'ColumnCollection = <itemValue = 29.999999999999990000enditemValue = 70.000000000000010000end>ControlCollection = <itemColumn = 0Control = Label1Row = 0enditemColumn = 1Control = Edit1Row = 0enditemColumn = 0Control = Label2Row = 1enditemColumn = 1Control = Edit2Row = 1end>RowCollection = <itemValue = 49.999999999999990000enditemValue = 50.000000000000020000end>ShowCaption = FalseTabOrder = 0ExplicitWidth = 254object Label1: TLabelLeft = 0Top = 0Width = 77Height = 29Align = alClientCaption = #29992#25143#21517#65306Font.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalseExplicitLeft = 51ExplicitTop = 1ExplicitWidth = 76ExplicitHeight = 19endobject Edit1: TEditLeft = 77Top = 0Width = 180Height = 29Align = alClientFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalseTabOrder = 0ExplicitLeft = 127ExplicitTop = 1ExplicitWidth = 126ExplicitHeight = 27endobject Label2: TLabelLeft = 0Top = 29Width = 77Height = 30Align = alClientCaption = #23494#30721#65306Font.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalseExplicitLeft = 70ExplicitWidth = 57ExplicitHeight = 19endobject Edit2: TEditLeft = 77Top = 29Width = 180Height = 30Align = alClientFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalsePasswordChar = '*'TabOrder = 1ExplicitLeft = 127ExplicitWidth = 126ExplicitHeight = 27endendobject Panel1: TPanelLeft = 0Top = 0Width = 457Height = 135Align = alTopBevelOuter = bvNoneCaption = 'Panel1'ShowCaption = FalseTabOrder = 1ExplicitWidth = 454object Label3: TLabelLeft = 0Top = 50Width = 457Height = 35Align = alClientAlignment = taCenterCaption = #36890#29992#25143#31821#31649#29702#31995#32479Font.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -27Font.Name = #38582#20070Font.Style = []ParentFont = FalseExplicitWidth = 224ExplicitHeight = 27endobject Panel5: TPanelLeft = 0Top = 0Width = 457Height = 50Align = alTopBevelOuter = bvNoneCaption = 'Panel5'ShowCaption = FalseTabOrder = 0ExplicitWidth = 454endobject Panel7: TPanelLeft = 0Top = 85Width = 457Height = 50Align = alBottomBevelOuter = bvNoneCaption = 'Panel7'ShowCaption = FalseTabOrder = 1ExplicitTop = 91endendobject Panel2: TPanelLeft = 0Top = 194Width = 457Height = 135Align = alBottomBevelEdges = []BevelOuter = bvNoneCaption = 'Panel2'ShowCaption = FalseTabOrder = 2ExplicitTop = 199ExplicitWidth = 454object Panel6: TPanelLeft = 0Top = 0Width = 150Height = 25Align = alLeftBevelOuter = bvNoneCaption = 'Panel6'ShowCaption = FalseTabOrder = 0ExplicitHeight = 40endobject Panel8: TPanelLeft = 307Top = 0Width = 150Height = 25Align = alRightBevelOuter = bvNoneCaption = 'Panel8'ShowCaption = FalseTabOrder = 1ExplicitLeft = 322ExplicitHeight = 40endobject Panel9: TPanelLeft = 0Top = 25Width = 457Height = 110Align = alBottomBevelOuter = bvNoneCaption = 'Panel9'ShowCaption = FalseTabOrder = 2ExplicitTop = 30endobject GridPanel2: TGridPanelLeft = 150Top = 0Width = 157Height = 25Align = alClientBevelOuter = bvNoneCaption = 'GridPanel2'ColumnCollection = <itemValue = 50.000000000000000000enditemValue = 50.000000000000000000end>ControlCollection = <itemColumn = 0Control = Button1Row = 0enditemColumn = 1Control = Button2Row = 0end>RowCollection = <itemValue = 100.000000000000000000end>ShowCaption = FalseTabOrder = 3ExplicitLeft = 136ExplicitTop = 48ExplicitWidth = 185ExplicitHeight = 41DesignSize = (15725)object Button1: TButtonLeft = 0Top = 0Width = 78Height = 25Align = alClientCaption = #30331#24405Font.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalseTabOrder = 0OnClick = Button1ClickExplicitLeft = 40ExplicitWidth = 75endobject Button2: TButtonLeft = 80Top = 0Width = 75Height = 25Anchors = []Caption = #21462#28040Font.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -19Font.Name = #23435#20307Font.Style = []ParentFont = FalseTabOrder = 1OnClick = Button2ClickExplicitLeft = 40endendendobject Panel3: TPanelLeft = 0Top = 135Width = 100Height = 59Align = alLeftBevelEdges = []BevelOuter = bvNoneCaption = 'Panel3'ShowCaption = FalseTabOrder = 3endobject Panel4: TPanelLeft = 357Top = 135Width = 100Height = 59Align = alRightBevelOuter = bvNoneCaption = 'Panel4'ShowCaption = FalseTabOrder = 4ExplicitLeft = 354endobject ADOQuery1: TADOQueryConnection = DataModule1.ADOConnection1Parameters = <>Left = 24Top = 264end
end
unit Login;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Data.DB,Data.Win.ADODB;typeTForm1 = class(TForm)GridPanel1: TGridPanel;Label1: TLabel;Panel1: TPanel;Panel2: TPanel;Edit1: TEdit;Panel3: TPanel;Panel4: TPanel;Label2: TLabel;Edit2: TEdit;Panel5: TPanel;Panel7: TPanel;Label3: TLabel;Panel6: TPanel;Panel8: TPanel;Panel9: TPanel;GridPanel2: TGridPanel;Button1: TButton;Button2: TButton;ADOQuery1: TADOQuery;procedure Button2Click(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementationuses Main, Connect;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin// 判断用户名或密码为空if (Edit1.Text = '') thenbeginshowMessage('错误:用户名不能为空!');Edit1.SetFocus;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;// 尝试登录ADOQuery1.SQL.Add('SELECT ''TRUE'' AS [Authorized], [Alias], [Username] FROM [Controller] WHERE [Username] = '+ '''' + Edit1.Text + ''' AND [Password] = HASHBYTES(''MD5'', ''' +Edit2.Text + ''')');ADOQuery1.Open;// 如果登陆成功if (ADOQuery1.FieldByName('Authorized').AsString = 'TRUE') thenbegin// 用户是否有别名?if (ADOQuery1.FieldByName('Alias').AsString <> '') thenbeginForm2.Label1.Caption := '欢迎您,' + trim(ADOQuery1.FieldByName('Alias').AsString)+ '!';end// 否则,显示用户名elsebeginForm2.Label1.Caption := '欢迎您,' + trim(ADOQuery1.FieldByName('Username').AsString)+ '!';end;Form1.Hide;Form2.Show;endelsebeginshowMessage('错误:用户名或密码错误!');end;end;
end;procedure TForm1.Button2Click(Sender: TObject);
beginEdit1.Text := '';Edit2.Text := '';
end;end.
3.2主启动类
unit Main;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls,Vcl.Imaging.jpeg, Vcl.ExtCtrls;typeTForm2 = class(TForm)MainMenu1: TMainMenu;F1: TMenuItem;Q1: TMenuItem;M1: TMenuItem;A1: TMenuItem;G1: TMenuItem;N1: TMenuItem;M2: TMenuItem;Image1: TImage;Label1: TLabel;N2: TMenuItem;N3: TMenuItem;B1: TMenuItem;procedure FormCreate(Sender: TObject);procedure Q1Click(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure G1Click(Sender: TObject);procedure A1Click(Sender: TObject);procedure N1Click(Sender: TObject);procedure M2Click(Sender: TObject);procedure N3Click(Sender: TObject);procedure N5Click(Sender: TObject);procedure B1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm2: TForm2;implementationuses Login, Edit, Rename, Move, About, Backup, Connect;{$R *.dfm}procedure TForm2.A1Click(Sender: TObject);
beginForm4.Show;
end;procedure TForm2.B1Click(Sender: TObject);
beginForm7.Show;Form7.FileListBox1.Directory := 'D:\Program_Files_(x64)\Git\Repos\Delphi_Design\bak';Form7.FileListBox1.Update;
end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
beginForm1.Close;
end;procedure TForm2.FormCreate(Sender: TObject);
beginForm2.Visible := False;
end;procedure TForm2.G1Click(Sender: TObject);
beginForm3.Show;
end;procedure TForm2.M2Click(Sender: TObject);
beginForm6.Show;Form6.ADOTable1.Close;Form6.ADOTable1.Open;
end;procedure TForm2.N1Click(Sender: TObject);
beginForm5.Show;Form5.ADOTable1.Close;Form5.ADOTable1.Open;
end;procedure TForm2.N3Click(Sender: TObject);
beginForm2.Hide;Label1.Caption := '';Form1.Show;Form1.SetFocus;
end;procedure TForm2.N5Click(Sender: TObject);
beginForm7.Show;DataModule1.ADOConnection1.Close;Form7.FileListBox1.Directory := 'D:\Program_Files_(x64)\Git\Repos\Delphi_Design\bak';Form7.FileListBox1.Update;
end;procedure TForm2.Q1Click(Sender: TObject);
beginForm1.Close;
end;end.
3.3部分代码
unit Rename;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,Vcl.DBGrids;typeTForm5 = class(TForm)ADOTable1: TADOTable;DBGrid1: TDBGrid;DataSource1: TDataSource;procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm5: TForm5;implementationuses Connect;{$R *.dfm}procedure TForm5.FormCreate(Sender: TObject);
beginADOTable1.Active := True;
end;end.
4. 系统设计与实现
5. 结论与尚存在的问题
以下是本项目仍然存在的问题:
- 用户查询功能存在缺陷,无法在
DBGrid
中显示ADOQuery
的查询结果; - 数据库无法从
*.bak
文件中恢复。
6. 个人总结
项目由可视化集成开发环境(快速应用程序开发工具)制作而成,对比于C/C++ MFC/QT、Java Swing/SWT、Python TKinter,Delphi具有方便、快捷的优势,在界面布局方面节省了大量的时间。但在另一方面,仍有个别功能只能通过编写代码实现,大量由Delphi自动生成的Object-Pascal代码使得项目维护难度提高。
本次开发工作存在较大的失误,项目分工错误让我基本承担所有工作。此外项目的开工时间极度延后,导致工期不足,甚至无法完成基本功能。
通过此次开发的教训,在后续课程设计乃至今后的生产环境开发都要提前估计工作量与工期,合理安排开发进度,杜绝临时赶工的行为。
7. 项目用法
由于项目需要连接数据库程序,而不同设备的数据库配置可能存在差异,有别于直接连接到库文件的Microsoft Office Access、SQLite。由我使用Windows-32bit Release模式编译发布的可执行程序并不通用,所以请根据以下步骤编译运行:
- 项目提供了
Citizens_log.ldf
数据库日志文件和Citizens.mdf
数据库主文件,这2个文件仅支持Microsoft SQL Server 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
能够正常显示数据库的内容。 - 以上,即可正常编译运行。
相关文章:

Delphi+SQL Server实现的(GUI)户籍管理系统
1.项目简介 本项目是一个户籍管理系统,用于记录住户身份信息,提供新户登记(增加)、户籍变更(修改)、户籍注销(删除)、户籍查询、曾用名查询、迁户记录查询以及创建备份、删除备份共8…...

【JavaEE进阶】获取Cookie/Session
🍀Cookie简介 HTTP协议自身是属于 "⽆状态"协议. "⽆状态"的含义指的是: 默认情况下 HTTP 协议的客⼾端和服务器之间的这次通信,和下次通信之间没有直接的联系.但是实际开发中,我们很多时候是需要知道请求之间的关联关系的. 例如登陆⽹站成…...
在macOS上安装Flutter和环境配置
操作系统 Flutter 支持在 macOS 11 (Big Sur) 或更高版本上开发。本指南假定你的 Mac 默认运行 zsh shell。 如果你的 Mac 是 Apple silicon 处理器,那么有些 Flutter 组件就需要通过 Rosetta 2 来转换适配(详情)。要在 Apple silicon 处理器…...

【电子通识】PWM驱动让有刷直流电机恒流工作
电机的典型驱动方法包括电压驱动、电流驱动以及PWM驱动。本文将介绍采用PWM驱动方式的恒流工作。 首先介绍的是什么是PWM驱动的电机恒流工作,其次是PWM驱动电机恒流工作时电路的工作原理。 PWM驱动 当以恒定的电流驱动电机时,电机会怎样工作呢࿱…...

Maven在不同操作系统上如何安装?
大家好,我是袁庭新。Maven是一个重要的工具,还有很多初学者竟然不知道如何安装Maven?这篇文章将系统介绍如何在Windows、macOS、Linux操作系统上安装Maven。 Maven是一个基于Java的项目管理工具。因此,最基本的要求是在计算机上安…...

maven如何从外部导包
1.找到你项目的文件位置,将外部要导入的包复制粘贴进你当前要导入的项目下。 2.从你的项目目录下选中要导入的包的pom文件即可导包成功 注意一定是选中对应的pom文件 导入成功之后对应的pom.xml文件就会被点亮...
如何在 Hive SQL 中处理复杂的数据类型?
目录 一、复杂数据类型简介 二、创建表时使用复杂数据类型 三、插入数据到复杂数据类型的表 四、查询复杂数据类型...

数据结构:DisjointSet
Disjoint Sets意思是一系列没有重复元素的集合。一种常见的实现叫做,Disjoint-set Forest可以以接近常数的时间复杂度查询元素所属集合,用来确定两个元素是否同属一个集合等,是效率最高的常见数据结构之一。 Wiki链接:https://en…...

中国省级产业结构高级化及合理化数据测算(2000-2023年)
一、数据介绍 数据名称:中国省级产业结构高级化、泰尔指数 数据年份:2000-2023年 数据范围:31个省份 数据来源:中国统计年鉴、国家统计局 数据整理:内含原始版本、线性插值版本、ARIMA填补版本 数据说明…...
Nginx不使用域名如何配置证书
如果你不打算使用域名而是使用 IP 地址来配置 Nginx 的 SSL 证书,你会遇到一个问题,因为 SSL/TLS 证书通常是为特定的域名颁发的,而不是 IP 地址。虽然可以为 IP 地址生成证书,但大多数证书颁发机构(CA)不支…...

Perturbed-Attention Guidance(PAG) 笔记
Self-Rectifying Diffusion Sampling with Perturbed-Attention Guidance Github 摘要 近期研究表明,扩散模型能够生成高质量样本,但其质量在很大程度上依赖于采样引导技术,如分类器引导(CG)和无分类器引导ÿ…...

自动驾驶控制与规划——Project 6: A* Route Planning
目录 零、任务介绍一、算法原理1.1 A* Algorithm1.2 启发函数 二、代码实现三、结果分析四、效果展示4.1 Dijkstra距离4.2 Manhatten距离4.3 欧几里德距离4.4 对角距离 五、后记 零、任务介绍 carla-ros-bridge/src/ros-bridge/carla_shenlan_projects/carla_shenlan_a_star_p…...

通俗易懂之线性回归时序预测PyTorch实践
线性回归(Linear Regression)是机器学习中最基本且广泛应用的算法之一。它不仅作为入门学习的经典案例,也是许多复杂模型的基础。本文将全面介绍线性回归的原理、应用,并通过一段PyTorch代码进行实践演示,帮助读者深入…...

[离线数仓] 总结二、Hive数仓分层开发
接 [离线数仓] 总结一、数据采集 5.8 数仓开发之ODS层 ODS层的设计要点如下: (1)ODS层的表结构设计依托于从业务系统同步过来的数据结构。 (2)ODS层要保存全部历史数据,故其压缩格式应选择压缩比率,较高的,此处选择gzip。 CompressedStorage - Apache Hive - Apac…...

页面顶部导航栏(Navbar)的功能(Navbar/index.vue)
这段代码是一个 Vue.js 组件,实现了页面顶部导航栏(Navbar)的功能。我将分块分析它的各个部分: 模板 (Template): <!-- spid-admin/src/layout/components/Navbar/index.vue --> <template><div class"navb…...
thinnkphp5.1和 thinkphp6以及nginx,apache 解决跨域问题
ThinkPHP 5.1 使用中间件设置响应头 ThinkPHP 5.1 及以上版本支持中间件,可以通过中间件统一设置跨域响应头。 步骤: 创建一个中间件文件,例如 CorsMiddleware.php: namespace app\middleware;class CorsMiddleware {public fu…...
vue2新增删除
(只是页面实现,不涉及数据库) list组件: <button click"onAdd">新增</button><el-table:header-cell-style"{ textAlign: center }" :cell-style"{ textAlign: center }":data&quo…...

测试ip端口-telnet开启与使用
前言 开发过程中我们总会要去测试ip通不通,或者ip下某个端口是否可以联通,为此我们可以使用telnet 命令来实现。 一、telnet 开启 可能有些人使用telnet报错,不是内部命令,可以如下开启: 1、打开控制面板ÿ…...
Python爬虫基础——XPath表达式
首先说一下这节内容在学习过程中存在的问题吧,在爬取百度网页文字时,出现了问题,就是通过表达式在网页搜索中可以定位,但是通过代码无法定位,请教了一位老师,他说是动态链接,目前这部分内容比较…...

ansible-性能优化
一. 简述: 搞过运维自动化工具的人,肯定会发现很多运维伙伴们经常用saltstack和ansible做比较,单从执行效率上来说,ansible确实比不上saltstack(ansible使用的是ssh,salt使用的是zeromq消息队列[暂没深入了解]),但其实…...
基础测试工具使用经验
背景 vtune,perf, nsight system等基础测试工具,都是用过的,但是没有记录,都逐渐忘了。所以写这篇博客总结记录一下,只要以后发现新的用法,就记得来编辑补充一下 perf 比较基础的用法: 先改这…...
Python爬虫(二):爬虫完整流程
爬虫完整流程详解(7大核心步骤实战技巧) 一、爬虫完整工作流程 以下是爬虫开发的完整流程,我将结合具体技术点和实战经验展开说明: 1. 目标分析与前期准备 网站技术分析: 使用浏览器开发者工具(F12&…...

PL0语法,分析器实现!
简介 PL/0 是一种简单的编程语言,通常用于教学编译原理。它的语法结构清晰,功能包括常量定义、变量声明、过程(子程序)定义以及基本的控制结构(如条件语句和循环语句)。 PL/0 语法规范 PL/0 是一种教学用的小型编程语言,由 Niklaus Wirth 设计,用于展示编译原理的核…...

深度学习习题2
1.如果增加神经网络的宽度,精确度会增加到一个特定阈值后,便开始降低。造成这一现象的可能原因是什么? A、即使增加卷积核的数量,只有少部分的核会被用作预测 B、当卷积核数量增加时,神经网络的预测能力会降低 C、当卷…...
#Uniapp篇:chrome调试unapp适配
chrome调试设备----使用Android模拟机开发调试移动端页面 Chrome://inspect/#devices MuMu模拟器Edge浏览器:Android原生APP嵌入的H5页面元素定位 chrome://inspect/#devices uniapp单位适配 根路径下 postcss.config.js 需要装这些插件 “postcss”: “^8.5.…...

【 java 虚拟机知识 第一篇 】
目录 1.内存模型 1.1.JVM内存模型的介绍 1.2.堆和栈的区别 1.3.栈的存储细节 1.4.堆的部分 1.5.程序计数器的作用 1.6.方法区的内容 1.7.字符串池 1.8.引用类型 1.9.内存泄漏与内存溢出 1.10.会出现内存溢出的结构 1.内存模型 1.1.JVM内存模型的介绍 内存模型主要分…...
Docker拉取MySQL后数据库连接失败的解决方案
在使用Docker部署MySQL时,拉取并启动容器后,有时可能会遇到数据库连接失败的问题。这种问题可能由多种原因导致,包括配置错误、网络设置问题、权限问题等。本文将分析可能的原因,并提供解决方案。 一、确认MySQL容器的运行状态 …...
Spring Boot + MyBatis 集成支付宝支付流程
Spring Boot MyBatis 集成支付宝支付流程 核心流程 商户系统生成订单调用支付宝创建预支付订单用户跳转支付宝完成支付支付宝异步通知支付结果商户处理支付结果更新订单状态支付宝同步跳转回商户页面 代码实现示例(电脑网站支付) 1. 添加依赖 <!…...

PH热榜 | 2025-06-08
1. Thiings 标语:一套超过1900个免费AI生成的3D图标集合 介绍:Thiings是一个不断扩展的免费AI生成3D图标库,目前已有超过1900个图标。你可以按照主题浏览,生成自己的图标,或者下载整个图标集。所有图标都可以在个人或…...

数据分析六部曲?
引言 上一章我们说到了数据分析六部曲,何谓六部曲呢? 其实啊,数据分析没那么难,只要掌握了下面这六个步骤,也就是数据分析六部曲,就算你是个啥都不懂的小白,也能慢慢上手做数据分析啦。 第一…...