数据库系统源代码.docx
- 文档编号:11350351
- 上传时间:2023-02-28
- 格式:DOCX
- 页数:14
- 大小:16.01KB
数据库系统源代码.docx
《数据库系统源代码.docx》由会员分享,可在线阅读,更多相关《数据库系统源代码.docx(14页珍藏版)》请在冰豆网上搜索。
数据库系统源代码
源代码
1.用户登入界面
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,DB,ADODB,jpeg,ExtCtrls;
type
TForm1=class(TForm)
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
Label1:
TLabel;
Label2:
TLabel;
ComboBox1:
TComboBox;
Edit2:
TEdit;
Button1:
TButton;
GroupBox1:
TGroupBox;
RadioButton1:
TRadioButton;
RadioButton2:
TRadioButton;
procedureButton1Click(Sender:
TObject);
private
{Privatedeclarations}
public
var
username,password:
string;
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
usesunit2,unit3;
{$R*.dfm}
procedureTForm1.Button1Click(Sender:
TObject);
begin
ifradiobutton2.checkedthen//如果radiobutton2被选中,就执行。
。
。
begin
try
withadoquery1do//这里就开始对adoquery进行编辑了
begin
close;
sql.clear;
sql.add('select*frommasterwhere管理员=:
管理员and密码=:
密码');//搜索master表中所有的用户名,密码
parameters.ParamByName('管理员').Value:
=trim(combobox1.Text);//比对用户名
parameters.ParamByName('密码').Value:
=trim(edit2.Text);//比对密码
ifcombobox1.Text=''then
begin
application.MessageBox('请输入用户名','提示信息',64);//用户名为空时弹出提示
combobox1.SetFocus;
exit;
end;
ifComboBox1.Text=''then
begin
application.MessageBox('请输入密码','提示信息',64);//假如密码为空时弹出提示edit2.SetFocus;
exit;
end;
open;
end;
ifadoquery1.RecordCount<>0then
begin
Username:
=combobox1.Text;
Password:
=edit2.Text;
application.MessageBox('登陆成功','提示信息',64);
form2.show;//弹出form2窗口,也就是我们上节课设计好的管理员窗口
self.Hide;
end
else
application.MessageBox('输入的用户名或密码错误','提示信息',64);
except
application.MessageBox('登陆失败','提示信息',64);
end;
end
else//对应第一个if,意思就是如果radiobutton2没被选中,也就是radiobutton1被选中
begin
try
withadoquery1do
begin
close;
sql.clear;
sql.add('select*fromptwherea=:
aandb=:
b');
parameters.ParamByName('a').Value:
=trim(combobox1.Text);
parameters.ParamByName('b').Value:
=trim(edit2.Text);
ifcombobox1.Text=''then
begin
application.MessageBox('请输入用户名','提示信息',64);
combobox1.SetFocus;
exit;
end;
ifedit2.Text=''then
begin
application.MessageBox('请输入密码','提示信息',64);
edit2.SetFocus;
exit;
end;
open;
end;
ifadoquery1.RecordCount<>0then
begin
Username:
=combobox1.Text;
Password:
=edit2.Text;
application.MessageBox('登陆成功','提示信息',64);
form3.show;
self.Hide;
end
elsebegin
application.MessageBox('输入的用户名或密码错误','提示信息',64);
end
finally
end;
end;
end;
end.
2.管理员窗口
unitUnit2;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ExtCtrls,DBCtrls,Grids,DBGrids,DB,ADODB,StdCtrls,Buttons,jpeg;
type
TForm2=class(TForm)
Edit1:
TEdit;
Label1:
TLabel;
Button1:
TButton;
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
DataSource1:
TDataSource;
DBGrid1:
TDBGrid;
DBNavigator1:
TDBNavigator;
Label2:
TLabel;
Label3:
TLabel;
Edit2:
TEdit;
Edit3:
TEdit;
Button2:
TButton;
Button3:
TButton;
Button4:
TButton;
procedureButton1Click(Sender:
TObject);
procedureButton2Click(Sender:
TObject);
procedureButton3Click(Sender:
TObject);
procedureButton4Click(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form2:
TForm2;
implementation
usesUnit4,unit1;
{$R*.dfm}
procedureTForm2.Button1Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwherename='''+edit1.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
procedureTForm2.Button2Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwhere学号='''+edit2.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
procedureTForm2.Button3Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwhere短号='''+edit3.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
procedureTForm2.Button4Click(Sender:
TObject);
begin
form1.show;
end;
end.
3.普通用户编辑窗口
unitUnit3;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,DBCtrls,DB,ADODB,jpeg,ExtCtrls;
type
TForm3=class(TForm)
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
DataSource1:
TDataSource;
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
DBText1:
TDBText;
DBText2:
TDBText;
DBText3:
TDBText;
GroupBox1:
TGroupBox;
Label6:
TLabel;
Label8:
TLabel;
Edit1:
TEdit;
Edit3:
TEdit;
Button1:
TButton;
GroupBox2:
TGroupBox;
Label9:
TLabel;
Label10:
TLabel;
Edit4:
TEdit;
Edit5:
TEdit;
Button2:
TButton;
Button3:
TButton;
Label7:
TLabel;
Edit2:
TEdit;
procedureFormShow(Sender:
TObject);
procedureButton2Click(Sender:
TObject);
procedureButton1Click(Sender:
TObject);
procedureButton3Click(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form3:
TForm3;
implementation
usesunit1,Unit4;
{$R*.dfm}
procedureTForm3.Button1Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='updatestudentset学号='''+edit1.Text+''',短号='''+edit3.Text+''',name='''+edit2.Text+'''wherename='''+label2.caption+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.ExecSQL;
application.MessageBox('信息修改成功','提示信息',64);
end;
procedureTForm3.Button2Click(Sender:
TObject);
varSqlStr:
String;
begin
ifedit4.Text=edit5.textthen
begin
SqlStr:
='updateptsetb='''+edit4.Text+'''wherea='''+label2.caption+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.ExecSQL;
application.MessageBox('密码修改成功','提示信息',64);
end
else
begin
application.MessageBox('输入密码不一致','提示信息',64);
end;
end;
procedureTForm3.Button3Click(Sender:
TObject);
begin
form4.show;
end;
procedureTForm3.FormShow(Sender:
TObject);
varSqlStr:
String;
begin
label2.Caption:
=unit1.Form1.username;
SqlStr:
='select*fromstudentwherename='''+label2.caption+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.open;
end;
end.
4.普通用户查询窗口
unitUnit4;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Grids,DBGrids,DB,ADODB,StdCtrls;
type
TForm4=class(TForm)
Label1:
TLabel;
Button1:
TButton;
Edit1:
TEdit;
DataSource1:
TDataSource;
ADOConnection1:
TADOConnection;
ADOQuery1:
TADOQuery;
DBGrid1:
TDBGrid;
Label2:
TLabel;
Edit2:
TEdit;
Button2:
TButton;
Label3:
TLabel;
Edit3:
TEdit;
Button3:
TButton;
procedureButton1Click(Sender:
TObject);
procedureButton2Click(Sender:
TObject);
procedureButton3Click(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form4:
TForm4;
implementation
{$R*.dfm}
procedureTForm4.Button1Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwherename='''+edit1.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
procedureTForm4.Button2Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwhere学号='''+edit2.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
procedureTForm4.Button3Click(Sender:
TObject);
var
SqlStr:
String;
begin
SqlStr:
='select*fromstudentwhere短号='''+edit3.Text+'''';
adoquery1.Close;//关闭ADOQuery1,以便于进行SQL语句更新
adoquery1.SQL.Clear;//清空SQL语句
adoquery1.SQL.Add(sqlStr);
adoquery1.Open;//新SQL有效
end;
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 系统 源代码
![提示](https://static.bdocx.com/images/bang_tan.gif)