没有合适的资源?快使用搜索试试~ 我知道了~
首页Delphi仓库管理系统源码:68页实操教程
Delphi仓库管理系统源码:68页实操教程
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 139 浏览量
更新于2024-07-04
收藏 30KB DOCX 举报
"仓库管理系统Delphi源码文档包含68页详细内容,使用了Delphi开发环境。该源码涉及到一个名为`Unit1`的单元,展示了如何构建一个基础的数据库操作界面。主要功能集中在用户登录模块,包括一个`TForm1`类,该类继承自`TForm`,用于设计图形用户界面。 ` TForm1`中定义了多个控件,如`TEdit`用于输入用户名和密码,`TButton`用于触发相应的事件处理,以及`TADOQuery`和`TADOTable`用于与数据库交互。`ADOConnection1`和`ADOQuery1`分别连接到数据库,并执行SQL查询。例如,在`Button1Click`事件处理函数中,通过`trim`函数清理用户输入的用户名,然后进行数据库查询,判断用户名和密码是否匹配。如果匹配成功,计数器`count`会增加1。 此外,源码还可能包含了其他数据库操作,如数据读取、更新或删除,以及可能的错误处理逻辑。`Unit12`和`Unit19`被引用,表明源码可能采用了模块化设计,分别处理不同的功能或者提供辅助工具。 整体来看,这份Delphi源码提供了仓库管理系统的前端用户界面和基本的数据验证与操作功能,适合对Delphi编程和数据库应用感兴趣的开发者学习和参考。通过阅读和理解这份源码,开发者可以深入了解Delphi在实际项目中的应用,提升自己的编程技能和数据库管理能力。"
资源详情
资源推荐
end
else
showmessage('信息未填全');
end;
end.unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
Image1: TImage;
Label1: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit3KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if application.MessageBox('请确认是否要删除', '超市仓库管理系统', mb_iconinformation +
mb_yesno) = idyes then
begin
adotable1.Delete;
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
adotable1.Edit;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
adotable1.Post;
showmessage('修改成功');
end;
procedure TForm4.Button4Click(Sender: TObject);
var
cangku,dizhi,bianhao:string;
begin
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') then
begin
cangku:=edit1.Text;
dizhi:=edit2.Text;
bianhao:=edit3.Text;
adoquery1.Close;
adoquery1.SQL.Text := 'select * from 仓库信息表 where 仓库名称=''' +cangku+'''' ;
adoquery1.open;
if not adoquery1.Eof then
begin
MessageBox(handle, '此仓库名已存在!', '提示', mb_IconInformation + mb_Ok);
exit;
end;
adoquery1.Close;
adoquery1.SQL.Text := 'select * from 员工信息表 where 编号=''' +bianhao+'''' ;
adoquery1.open;
if adoquery1.RecordCount = 0 then
begin
showmessage('不存在此用户,请重新输入');
edit3.SetFocus;
exit;
end;
if application.MessageBox('确定要添加新仓库?', '超市仓库管理系统', mb_iconinformation +
mb_yesno) = idyes then
begin
adotable1.InsertRecord([cangku,dizhi,bianhao]);
adotable1.Close;
adotable1.Open;
showmessage('新仓库添加成功');
end;
end
else
showmessage('信息未填全');
end;
procedure TForm4.Edit3KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
bianhao:string;
begin
bianhao:=edit3.Text;
with adoquery2 do
剩余63页未读,继续阅读
cailibin
- 粉丝: 4
- 资源: 7001
下载权益
电子书特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- zlib-1.2.12压缩包解析与技术要点
- 微信小程序滑动选项卡源码模版发布
- Unity虚拟人物唇同步插件Oculus Lipsync介绍
- Nginx 1.18.0版本WinSW自动安装与管理指南
- Java Swing和JDBC实现的ATM系统源码解析
- 掌握Spark Streaming与Maven集成的分布式大数据处理
- 深入学习推荐系统:教程、案例与项目实践
- Web开发者必备的取色工具软件介绍
- C语言实现李春葆数据结构实验程序
- 超市管理系统开发:asp+SQL Server 2005实战
- Redis伪集群搭建教程与实践
- 掌握网络活动细节:Wireshark v3.6.3网络嗅探工具详解
- 全面掌握美赛:建模、分析与编程实现教程
- Java图书馆系统完整项目源码及SQL文件解析
- PCtoLCD2002软件:高效图片和字符取模转换
- Java开发的体育赛事在线购票系统源码分析
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功