动易医院网站管理系统乌兰察布盟建设银行网站

当前位置： 首页 > news >正文

动易医院网站管理系统,乌兰察布盟建设银行网站,品牌建设的核心,做网站自动赚钱1.项目简介 本项目是一个户籍管理系统#xff0c;用于记录住户身份信息#xff0c;提供新户登记#xff08;增加#xff09;、户籍变更#xff08;修改#xff09;、户籍注销#xff08;删除#xff09;、户籍查询、曾用名查询、迁户记录查询以及创建备份、删除备份共8…1.项目简介 本项目是一个户籍管理系统用于记录住户身份信息提供新户登记增加、户籍变更修改、户籍注销删除、户籍查询、曾用名查询、迁户记录查询以及创建备份、删除备份共8个功能。 1.1. 软件环境与开发工具 操作系统Windows 10 Home China 1809 17763数据库SQL Server Express 2017集成开发环境Embarcadero Delphi Architect 10.3

1. 数据库设计 2.1. 概要结构设计 数据库Manager共包括以下3张表 表名 说明 People 存储用户信息是程序的核心表 Rename 存储用户改名记录作为曾用名表 Move 存储用户的住址变更记录作为户籍变更历史 Controller 存储系统管理员账户信息
   2.2. 数据表结构分析 4张数据表的字段分别列举如下 字段名 含义 类型 Name 姓名 NVARCHAR(10) Sex 性别 NCHAR(2) ID_Num 身份证号主键 CHAR(18) Address 户籍地址 NVARCHAR(100) Tel_No 联系方式 NUMERIC(12, 0) Date 更新时间 DATETIME 字段名 含义 类型 ID_Num 身份证号主键 CHAR(18) Old_Name 曾用名 CHAR(10) Date 改名时间升序索引 DATETIME 字段名 含义 类型 ID_Num 身份证号主键 CHAR(18) Address 曾用户籍地 NVARCHAR(100) Date 迁户时间升序索引 DATETIME 字段名 含义 类型 Username 用户名主键 NCHAR(10) Alias 别名 NCHAR(10) Password 密码 VARBINARY(128)
   2.3建表语句 USE [Manager] GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNRename, level2typeNCONSTRAINT,level2nameNFK_Rename_People GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_Tel_Limit GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_Sex_Limit GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_ID_Limit GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNDate GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNTel_No GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNAddress GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNID_Num GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNSex GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNName GO EXEC sys.sp_dropextendedproperty nameNMS_Description , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNMove, level2typeNCONSTRAINT,level2nameNFK_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 NCitizens, FILENAME ND:\ProgramFiles(x64)\Microsoft\SQL_Server_2017\Instances\MSSQL14.EXPRESS17\MSSQL\UserData\Citizens.mdf , SIZE 8192KB , MAXSIZE 1048576KB , FILEGROWTH 1%)LOG ON ( NAME NCitizens_log, FILENAME ND:\ProgramFiles(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 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 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 ON [PRIMARY] GO INSERT [dbo].Move VALUES (N440101200101010101, N北京市, CAST(N2019-05-27T00:14:47.990 AS DateTime)) INSERT [dbo].Move VALUES (N440111201111111111, N上海, CAST(N2019-05-27T00:34:22.500 AS DateTime)) INSERT [dbo].Move VALUES (N440111201111111111, N杭州, CAST(N2019-05-27T00:35:12.933 AS DateTime)) INSERT [dbo].Move VALUES (N440111201111111111, N杭州, CAST(N2019-05-27T00:35:44.370 AS DateTime)) INSERT [dbo].People VALUES (NJohn, N男 , N440101200101010101, N北京市, CAST(13333333333 AS Numeric(12, 0)), CAST(N2019-05-27T00:23:28.633 AS DateTime)) INSERT [dbo].People VALUES (NBen, N男 , N440111201111111111, N杭州, CAST(13333333333 AS Numeric(12, 0)), CAST(N2019-05-27T00:35:44.367 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NAlice , CAST(N2019-05-27T00:08:35.767 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NAlice , CAST(N2019-05-27T00:14:47.987 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NCindarela , CAST(N2019-05-27T00:15:07.933 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NAlice , CAST(N2019-05-27T00:18:24.390 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NBob , CAST(N2019-05-27T00:19:22.057 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NBen , CAST(N2019-05-27T00:20:54.577 AS DateTime)) INSERT [dbo].Rename VALUES (N440101200101010101, NJohn , CAST(N2019-05-27T00:23:28.633 AS DateTime)) INSERT [dbo].Rename VALUES (N440111201111111111, NAlice , CAST(N2019-05-27T00:34:22.500 AS DateTime)) INSERT [dbo].Rename VALUES (N440111201111111111, NBen , CAST(N2019-05-27T00:35:12.930 AS DateTime)) INSERT [dbo].Rename VALUES (N440111201111111111, NBen , CAST(N2019-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].MoveWITH (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].MoveWITH (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].RenameWITH (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].RenameWITH (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 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 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 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 nameNMS_Description, valueN身份证绑定 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNMove, level2typeNCONSTRAINT,level2nameNFK_Move_People GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN姓名 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNName GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN性别 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNSex GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN身份证号 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNID_Num GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN家庭住址 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNAddress GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN联系方式 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNTel_No GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN户籍变更时间 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCOLUMN,level2nameNDate GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN限制身份证长度 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_ID_Limit GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN限制性别取值 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_Sex_Limit GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN限制号码长度 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNPeople, level2typeNCONSTRAINT,level2nameNCK_Tel_Limit GO EXEC sys.sp_addextendedproperty nameNMS_Description, valueN身份证号关联 , level0typeNSCHEMA,level0nameNdbo, level1typeNTABLE,level1nameNRename, level2typeNCONSTRAINT,level2nameNFK_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 TahomaFont.Style []OldCreateOrder FalsePosition poScreenCenterVisible TruePixelsPerInch 96TextHeight 13object GridPanel1: TGridPanelLeft 100Top 135Width 257Height 59Align alClientBevelOuter bvNoneCaption GridPanel1ColumnCollection itemValue 29.999999999999990000enditemValue 70.000000000000010000endControlCollection itemColumn 0Control Label1Row 0enditemColumn 1Control Edit1Row 0enditemColumn 0Control Label2Row 1enditemColumn 1Control Edit2Row 1endRowCollection itemValue 49.999999999999990000enditemValue 50.000000000000020000endShowCaption 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 Panel1ShowCaption 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 Panel5ShowCaption FalseTabOrder 0ExplicitWidth 454endobject Panel7: TPanelLeft 0Top 85Width 457Height 50Align alBottomBevelOuter bvNoneCaption Panel7ShowCaption FalseTabOrder 1ExplicitTop 91endendobject Panel2: TPanelLeft 0Top 194Width 457Height 135Align alBottomBevelEdges []BevelOuter bvNoneCaption Panel2ShowCaption FalseTabOrder 2ExplicitTop 199ExplicitWidth 454object Panel6: TPanelLeft 0Top 0Width 150Height 25Align alLeftBevelOuter bvNoneCaption Panel6ShowCaption FalseTabOrder 0ExplicitHeight 40endobject Panel8: TPanelLeft 307Top 0Width 150Height 25Align alRightBevelOuter bvNoneCaption Panel8ShowCaption FalseTabOrder 1ExplicitLeft 322ExplicitHeight 40endobject Panel9: TPanelLeft 0Top 25Width 457Height 110Align alBottomBevelOuter bvNoneCaption Panel9ShowCaption FalseTabOrder 2ExplicitTop 30endobject GridPanel2: TGridPanelLeft 150Top 0Width 157Height 25Align alClientBevelOuter bvNoneCaption GridPanel2ColumnCollection itemValue 50.000000000000000000enditemValue 50.000000000000000000endControlCollection itemColumn 0Control Button1Row 0enditemColumn 1Control Button2Row 0endRowCollection itemValue 100.000000000000000000endShowCaption 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 Panel3ShowCaption FalseTabOrder 3endobject Panel4: TPanelLeft 357Top 135Width 100Height 59Align alRightBevelOuter bvNoneCaption Panel4ShowCaption 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:\ProgramFiles(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:\ProgramFiles(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.
2. 系统设计与实现 5. 结论与尚存在的问题 以下是本项目仍然存在的问题 用户查询功能存在缺陷无法在DBGrid中显示ADOQuery的查询结果数据库无法从*.bak文件中恢复。
3. 个人总结 项目由可视化集成开发环境快速应用程序开发工具制作而成对比于C/C MFC/QT、Java Swing/SWT、Python TKinterDelphi具有方便、快捷的优势在界面布局方面节省了大量的时间。但在另一方面仍有个别功能只能通过编写代码实现大量由Delphi自动生成的Object-Pascal代码使得项目维护难度提高。 本次开发工作存在较大的失误项目分工错误让我基本承担所有工作。此外项目的开工时间极度延后导致工期不足甚至无法完成基本功能。 通过此次开发的教训在后续课程设计乃至今后的生产环境开发都要提前估计工作量与工期合理安排开发进度杜绝临时赶工的行为。
4. 项目用法 由于项目需要连接数据库程序而不同设备的数据库配置可能存在差异有别于直接连接到库文件的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能够正常显示数据库的内容。以上即可正常编译运行。