Delphi 综合实战：整合所有知识点，打造企业级进销存小系统（可直接商用）

前面我们陆续学会了 Delphi 开发的所有核心技能基础语法、桌面工具、数据库操作、串口通信、网络请求、JSON 解析、Excel 导出、UI 美化、多窗体管理、权限控制。这一篇我们将整合所有知识点做一个完整的企业级进销存小系统涵盖真实商用软件的核心功能做完就能直接用于小型企业、店铺管理也是你求职、作品集的绝佳素材这个系统不是简单的 demo而是可直接扩展、可商用的雏形全程贴合企业开发流程代码规范、逻辑完整新手也能跟着复制运行彻底打通 Delphi 开发的 “任督二脉”一、系统核心功能真实商用场景整合前面所有知识点打造进销存系统小型企业 / 店铺必备包含 5 大核心模块覆盖 “采购 - 库存 - 销售 - 报表 - 系统设置” 全流程登录模块用户名密码验证区分管理员、采购员、销售员三种权限主界面模块多窗体管理菜单根据权限显示 / 隐藏支持皮肤切换库存管理模块查询、添加、修改、删除商品库存对接数据库报表模块导出库存报表、销售报表到 Excel支持数据统计系统设置模块修改密码、切换皮肤、权限管理仅管理员可用。✅ 用到的知识点全整合数据库增删改查核心多窗体管理 权限控制Excel 导入导出UI 美化皮肤、无边框、圆角异常捕获全程防闪退多窗体通信字符串 / JSON 处理可选扩展对接接口。二、系统架构企业级规范1. 窗体结构5 个核心窗体规范命名表格窗体名称用途权限限制LoginForm登录界面无所有用户统一入口MainForm主界面菜单入口所有用户可见菜单根据权限筛选StockForm库存管理核心业务管理员、采购员、销售员均可见ReportForm报表导出管理员、采购员可见SetForm系统设置仅管理员可见2. 数据库设计SQLite无需安装轻便易用创建StockDB.sdb数据库包含 3 张核心表贴合进销存场景user用户表存储用户名、密码、角色admin / 采购员 / 销售员stock库存表存储商品 ID、商品名称、规格、库存数量、采购价、售价、入库时间sale销售表存储销售 ID、商品 ID、销售数量、销售时间、销售员。3. 准备工作一次性搞定新建 VCL 项目创建上述 5 个窗体规范命名添加控件数据库控件TSQLiteConnection、TSQLQuery、TDBGrid库存显示美化控件SkinEngine、SkinData皮肤切换功能控件Button、Edit、Memo、Menu、SaveDialogExcel 导出引用所有必备单元delphiuses System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, Vcl.StdCtrls, ComObj, Vcl.ExtCtrls, Winapi.Windows, Winapi.Messages, System.JSON, IdHTTP;全局变量存储核心信息所有窗体可调用delphivar // 用户信息 UserName: string; // 登录用户名 UserRole: string; // 角色admin/caigou/xiaoshou // 数据库连接全局避免重复创建 DBConn: TSQLiteConnection; // 窗体全局变量 MainForm: TMainForm; LoginForm: TLoginForm; StockForm: TStockForm; ReportForm: TReportForm; SetForm: TSetForm;三、核心模块实战全程可复制代码模块 1登录模块LoginForm权限入口核心验证用户名密码从数据库查询分配角色跳转主窗体关闭登录窗体同时初始化数据库连接。delphiprocedure TLoginForm.Button1Click(Sender: TObject); var Query: TSQLQuery; begin // 初始化数据库连接 DBConn : TSQLiteConnection.Create(nil); DBConn.DatabaseName : ExtractFilePath(Application.ExeName) StockDB.sdb; try DBConn.Connected : True; except ShowMessage(数据库连接失败请检查数据库文件); Exit; end; // 查询用户信息验证用户名密码 Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : Format(select * from user where username%s and password%s, [Edit1.Text, Edit2.Text]); Query.Open; if Query.RecordCount 0 then begin // 记录用户信息 UserName : Query.FieldByName(username).AsString; UserRole : Query.FieldByName(role).AsString; // 提示登录成功 ShowMessage(Format(登录成功欢迎 %s%s, [UserName, UserRole])); // 打开主窗体关闭登录窗体 MainForm : TMainForm.Create(nil); MainForm.Show; Self.Close; end else begin ShowMessage(用户名或密码错误); end; finally Query.Free; end; end; // 登录窗体关闭释放数据库连接异常情况 procedure TLoginForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin if Assigned(DBConn) then DBConn.Free; end;模块 2主界面模块MainForm多窗体 权限 皮肤核心根据用户角色显示 / 隐藏菜单打开子窗体切换皮肤退出系统释放所有资源。delphi// 主窗体初始化权限控制菜单显示 procedure TMainForm.FormCreate(Sender: TObject); begin // 1. 权限控制菜单 // 管理员显示所有菜单 if UserRole admin then begin miStock.Visible : True; // 库存管理 miReport.Visible : True; // 报表导出 miSet.Visible : True; // 系统设置 miSkin.Visible : True; // 皮肤切换 end // 采购员显示库存、报表隐藏系统设置 else if UserRole caigou then begin miStock.Visible : True; miReport.Visible : True; miSet.Visible : False; miSkin.Visible : False; end // 销售员只显示库存隐藏报表、设置 else if UserRole xiaoshou then begin miStock.Visible : True; miReport.Visible : False; miSet.Visible : False; miSkin.Visible : False; end; // 2. 初始化皮肤默认皮肤 SkinEngine1.SkinFile : ExtractFilePath(Application.ExeName) skin\default.skin; // 3. 主窗体美化无边框圆角 Self.BorderStyle : bsNone; Self.DoubleBuffered : True; var Rgn: HRGN : CreateRoundRectRgn(0, 0, Width, Height, 20, 20); SetWindowRgn(Handle, Rgn, True); end; // 打开库存管理子窗体 procedure TMainForm.miStockClick(Sender: TObject); begin if not Assigned(StockForm) then StockForm : TStockForm.Create(Self); StockForm.Show; StockForm.BringToFront; end; // 打开报表导出子窗体 procedure TMainForm.miReportClick(Sender: TObject); begin if not Assigned(ReportForm) then ReportForm : TReportForm.Create(Self); ReportForm.Show; ReportForm.BringToFront; end; // 打开系统设置子窗体 procedure TMainForm.miSetClick(Sender: TObject); begin if not Assigned(SetForm) then SetForm : TSetForm.Create(Self); SetForm.Show; SetForm.BringToFront; end; // 皮肤切换 procedure TMainForm.miSkinClick(Sender: TObject); var OpenDialog: TOpenDialog; begin OpenDialog : TOpenDialog.Create(nil); try OpenDialog.Filter : 皮肤文件|*.skin|所有文件|*.*; if OpenDialog.Execute then begin SkinEngine1.SkinFile : OpenDialog.FileName; ShowMessage(皮肤切换成功); end; finally OpenDialog.Free; end; end; // 退出系统释放所有资源 procedure TMainForm.miExitClick(Sender: TObject); begin // 关闭所有子窗体 if Assigned(StockForm) then StockForm.Free; if Assigned(ReportForm) then ReportForm.Free; if Assigned(SetForm) then SetForm.Free; // 关闭数据库连接 if Assigned(DBConn) then DBConn.Free; // 关闭主窗体退出程序 Self.Close; end; // 主窗体拖动无边框适配 var MousePos: TPoint; procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button mbLeft then begin MousePos.X : X; MousePos.Y : Y; end; end; procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if ssLeft in Shift then begin Left : Left (X - MousePos.X); Top : Top (Y - MousePos.Y); end; end;模块 3库存管理模块StockForm核心业务 数据库核心实现商品库存的增删改查对接数据库异常捕获避免闪退是系统的核心业务模块。delphi// 窗体初始化加载库存数据 procedure TStockForm.FormCreate(Sender: TObject); var Query: TSQLQuery; begin // 加载库存数据 Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : select * from stock order by id desc; Query.Open; // 绑定数据到DBGrid显示库存列表 DBGrid1.DataSource : DataSource1; DataSource1.DataSet : Query; except on E: Exception do ShowMessage(加载库存失败 E.Message); end; end; // 添加商品库存 procedure TStockForm.btnAddClick(Sender: TObject); var Query: TSQLQuery; begin if (Edit1.Text ) or (Edit2.Text ) or (Edit3.Text ) then begin ShowMessage(请填写完整商品信息); Exit; end; Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : Format(insert into stock (name, spec, num, buy_price, sell_price, in_time) values (%s, %s, %d, %f, %f, %s), [Edit1.Text, Edit2.Text, StrToInt(Edit3.Text), StrToFloat(Edit4.Text), StrToFloat(Edit5.Text), DateTimeToStr(Now)]); Query.ExecSQL; ShowMessage(商品添加成功); // 重新加载数据 FormCreate(Sender); // 清空输入框 Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; except on E: Exception do ShowMessage(添加失败 E.Message); end; end; // 修改商品库存 procedure TStockForm.btnEditClick(Sender: TObject); var Query: TSQLQuery; ID: Integer; begin if DBGrid1.SelectedField nil then begin ShowMessage(请选择要修改的商品); Exit; end; ID : DBGrid1.DataSource.DataSet.FieldByName(id).AsInteger; Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : Format(update stock set name%s, spec%s, num%d, buy_price%f, sell_price%f where id%d, [Edit1.Text, Edit2.Text, StrToInt(Edit3.Text), StrToFloat(Edit4.Text), StrToFloat(Edit5.Text), ID]); Query.ExecSQL; ShowMessage(商品修改成功); FormCreate(Sender); except on E: Exception do ShowMessage(修改失败 E.Message); end; end; // 删除商品库存 procedure TStockForm.btnDelClick(Sender: TObject); var Query: TSQLQuery; ID: Integer; begin if DBGrid1.SelectedField nil then begin ShowMessage(请选择要删除的商品); Exit; end; if MessageDlg(确定要删除该商品吗, mtConfirmation, [mbYes, mbNo], 0) mrNo then Exit; ID : DBGrid1.DataSource.DataSet.FieldByName(id).AsInteger; Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : Format(delete from stock where id%d, [ID]); Query.ExecSQL; ShowMessage(商品删除成功); FormCreate(Sender); except on E: Exception do ShowMessage(删除失败 E.Message); end; end; // 子窗体关闭释放资源 procedure TStockForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin CloseAction : caFree; StockForm : nil; end;模块 4报表模块ReportFormExcel 导出 数据统计核心导出库存报表、销售报表到 Excel整合前面学的 Excel 操作知识点实用且高频。delphi// 导出库存报表 procedure TReportForm.btnStockReportClick(Sender: TObject); var ExcelApp: Variant; Query: TSQLQuery; I: Integer; SaveDialog: TSaveDialog; begin SaveDialog : TSaveDialog.Create(nil); SaveDialog.Filter : Excel文件|*.xlsx|所有文件|*.*; SaveDialog.FileName : 库存报表_ FormatDateTime(YYYYMMDD, Now) .xlsx; if not SaveDialog.Execute then begin SaveDialog.Free; Exit; end; try // 创建Excel对象 ExcelApp : CreateOleObject(Excel.Application); ExcelApp.WorkBooks.Add; ExcelApp.WorkSheets[1].Activate; // 设置表头 ExcelApp.Cells[1, 1] : 商品ID; ExcelApp.Cells[1, 2] : 商品名称; ExcelApp.Cells[1, 3] : 规格; ExcelApp.Cells[1, 4] : 库存数量; ExcelApp.Cells[1, 5] : 采购价; ExcelApp.Cells[1, 6] : 售价; ExcelApp.Cells[1, 7] : 入库时间; // 读取库存数据写入Excel Query : TSQLQuery.Create(nil); Query.Connection : DBConn; Query.SQL.Text : select * from stock; Query.Open; for I : 0 to Query.RecordCount - 1 do begin ExcelApp.Cells[I2, 1] : Query.FieldByName(id).AsString; ExcelApp.Cells[I2, 2] : Query.FieldByName(name).AsString; ExcelApp.Cells[I2, 3] : Query.FieldByName(spec).AsString; ExcelApp.Cells[I2, 4] : Query.FieldByName(num).AsString; ExcelApp.Cells[I2, 5] : Query.FieldByName(buy_price).AsString; ExcelApp.Cells[I2, 6] : Query.FieldByName(sell_price).AsString; ExcelApp.Cells[I2, 7] : Query.FieldByName(in_time).AsString; Query.Next; end; // 美化报表表头加粗、居中、自动列宽 ExcelApp.Rows[1].Font.Bold : True; ExcelApp.Rows[1].HorizontalAlignment : 3; ExcelApp.WorkSheets[1].Columns.AutoFit; // 保存报表 ExcelApp.ActiveWorkBook.SaveAs(SaveDialog.FileName); ExcelApp.Visible : True; ShowMessage(库存报表导出成功); except on E: Exception do ShowMessage(导出失败 E.Message); end; end; // 导出销售报表逻辑和库存报表一致简化代码 procedure TReportForm.btnSaleReportClick(Sender: TObject); var ExcelApp: Variant; Query: TSQLQuery; I: Integer; SaveDialog: TSaveDialog; begin SaveDialog : TSaveDialog.Create(nil); SaveDialog.Filter : Excel文件|*.xlsx|所有文件|*.*; SaveDialog.FileName : 销售报表_ FormatDateTime(YYYYMMDD, Now) .xlsx; if not SaveDialog.Execute then Exit; try ExcelApp : CreateOleObject(Excel.Application); ExcelApp.WorkBooks.Add; ExcelApp.WorkSheets[1].Activate; // 表头 ExcelApp.Cells[1, 1] : 销售ID; ExcelApp.Cells[1, 2] : 商品ID; ExcelApp.Cells[1, 3] : 销售数量; ExcelApp.Cells[1, 4] : 销售时间; ExcelApp.Cells[1, 5] : 销售员; // 读取销售数据 Query : TSQLQuery.Create(nil); Query.Connection : DBConn; Query.SQL.Text : select * from sale; Query.Open; for I : 0 to Query.RecordCount - 1 do begin ExcelApp.Cells[I2, 1] : Query.FieldByName(id).AsString; ExcelApp.Cells[I2, 2] : Query.FieldByName(stock_id).AsString; ExcelApp.Cells[I2, 3] : Query.FieldByName(num).AsString; ExcelApp.Cells[I2, 4] : Query.FieldByName(sale_time).AsString; ExcelApp.Cells[I2, 5] : Query.FieldByName(seller).AsString; Query.Next; end; // 美化 ExcelApp.Rows[1].Font.Bold : True; ExcelApp.Rows[1].HorizontalAlignment : 3; ExcelApp.WorkSheets[1].Columns.AutoFit; ExcelApp.ActiveWorkBook.SaveAs(SaveDialog.FileName); ExcelApp.Visible : True; ShowMessage(销售报表导出成功); except on E: Exception do ShowMessage(导出失败 E.Message); end; end; // 子窗体关闭释放资源 procedure TReportForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin CloseAction : caFree; ReportForm : nil; end;模块 5系统设置模块SetForm权限控制 密码修改核心仅管理员可用实现密码修改、权限管理简化版整合多窗体通信、权限校验知识点。delphi// 窗体初始化权限校验仅管理员可访问 procedure TSetForm.FormCreate(Sender: TObject); begin if UserRole admin then begin ShowMessage(权限不足仅管理员可访问系统设置); Self.Close; Exit; end; // 显示当前登录用户 Label3.Caption : Format(当前登录用户%s管理员, [UserName]); end; // 修改密码 procedure TSetForm.btnChangePwdClick(Sender: TObject); var Query: TSQLQuery; begin if (Edit1.Text ) or (Edit2.Text ) then begin ShowMessage(请填写原密码和新密码); Exit; end; if Edit2.Text Edit3.Text then begin ShowMessage(两次输入的新密码不一致); Exit; end; // 验证原密码 Query : TSQLQuery.Create(nil); Query.Connection : DBConn; try Query.SQL.Text : Format(select * from user where username%s and password%s, [UserName, Edit1.Text]); Query.Open; if Query.RecordCount 0 then begin ShowMessage(原密码错误); Exit; end; // 修改密码 Query.SQL.Text : Format(update user set password%s where username%s, [Edit2.Text, UserName]); Query.ExecSQL; ShowMessage(密码修改成功下次登录请使用新密码); Edit1.Clear; Edit2.Clear; Edit3.Clear; except on E: Exception do ShowMessage(修改失败 E.Message); end; end; // 子窗体关闭释放资源 procedure TSetForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin CloseAction : caFree; SetForm : nil; end;四、系统优化企业级必备数据库优化添加索引id 字段提升查询速度增加事务处理增删改操作避免数据异常异常捕获全程添加 try...except 捕获所有可能的错误数据库连接、Excel 导出、输入错误等避免闪退输入校验添加数据校验比如库存数量必须是数字、价格不能为负数提升系统稳定性资源释放所有窗体、数据库对象、Excel 对象均在关闭 / 使用完成后释放避免内存泄漏界面优化统一皮肤风格、控件布局添加动画效果窗体淡入淡出、按钮 hover提升用户体验。五、系统测试新手必做准备数据库创建StockDB.sdb数据库创建 3 张表插入测试数据比如 2 个管理员、1 个采购员、1 个销售员几条商品数据编译运行依次测试登录、库存增删改查、报表导出、系统设置确保所有功能正常权限测试用不同角色登录检查菜单显示 / 隐藏是否正常普通用户是否能访问管理员功能异常测试故意输入错误数据、删除数据库文件测试系统是否会闪退提示是否友好。六、总结学会这个项目你能达到什么水平这个综合项目整合了前面 11 篇的所有核心知识点做完之后你将具备企业级软件的架构设计能力多模块、多窗体、权限控制数据库增删改查的实战能力核心业务对接实用功能开发能力Excel 导出、UI 美化、异常处理软件优化能力内存泄漏、数据校验、用户体验独立开发商用软件的能力这个系统可直接扩展为完整进销存用于小型企业。到这里我们的 Delphi 从零基础到实战系列就彻底收官了从最简单的 HelloWorld到完整的企业级小系统你已经完成了从 “新手” 到 “能独立开发” 的蜕变。最后想说Delphi 虽然不像 Python、Java 那样热门但在桌面开发、工控开发、企业办公软件领域依然是效率之王 —— 拖拽控件、简单几行代码就能实现稳定、好用的软件适合新手快速出成果、求职加分qlsdx.cn这个综合项目既是你学习成果的总结也是你作品集的绝佳素材后续可以根据需求扩展功能比如对接串口、添加网络接口、完善销售模块打造属于自己的商用软件。感谢大家一路跟随后续如果有 Delphi 进阶需求比如多线程优化、自定义控件、对接 PLC 进阶可以留言告诉我持续更新干货tm0.cn