数量 SaleMan文本50 否是无购买人 Remark文本50 否是无备注 Flag数字 0否 无标志位 第四章 系统实现 在系统实现部分中，主要是针对核心的内容进行分析，对于一些比较简单的书本中课堂上讲过的内容，不在这里重复了。因为这不是本论文要讨论的重点。在本系统中主要有如下功能，数据的添加、修改、删除、查询、报表打印、数据备份与恢复、数据导入导出与删除数据等功能。在下将详细的分析其实现过程。
4.1 用户登陆用户登陆的代码如下： procedure TFrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin {让Form窗体不能关闭} canclose:=false; if length(trim(edit1.Text)) = 0 then begin showmessage('用户名不能为空！'); edit1.SetFocus; edit1.SelectAll; end; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from [数据]'); ADOQuery1.SQL.Add('Where 编号= :编号'); ADOQuery1.Parameters.ParamByName('编号').Value:=trim(edit1.Text); ADOQuery1.Prepared; ADOQuery1.Open; if not ADOQuery1.Eof then begin if length(trim(edit2.Text))=0 then begin showmessage('密码不能为空！'); edit2.SetFocus; edit2.SelectAll; end else begin if trim(edit2.Text) = ADOQuery1.Fields.FieldByName('密码').AsString then begin canclose:=true; end else begin showmessage('密码错误，请重新输入！'); edit2.SetFocus; edit2.SelectAll; end end end else begin showmessage('没有这个用户，请到银行去核对！'); edit1.SetFocus; edit1.SelectAll; end; end; 代码解释，首先对edit1控件进行验证if length(trim(edit1.Text)) = 0 then，当用户没有输入账号时，则提醒用户输入账号。然后通过一条SQL语句对数据库进行查询，select * from 数据 where 编号＝edit1.text这里对用户输入的账号进行查询，如果用户存在。则比较用户输入的密码是否正确，如果正确则登陆。否则需要重新输入密码。如果用户输入的账号不存在，则提示用户，没有这个账号，需要用户与银行方面进行联系。if trim(edit2.Text) = ADOQuery1.Fields.FieldByName('密码').AsString then这里一条是比较密码是不是正确。 if length(trim(edit2.Text))=0 then判断用户是不是输入了密码，如果没有输入，则提示用户需要输入密码。 下图所示的便是登陆界面： 4.2 数据的添加、修改与删除 在每一个数据库系统中都少不了数据库的记录添加、修改与删除功能。在Delphi中提供了很多好用的数据库控件，几乎不要编写任何代码即可实现数据库的添加、修改与删除功能。如下图所示： 在界面上添加若干个Dbedit控件，这是数据库的专的控件，可以进行数据邦定。首先设置好ADOConnection1数据连接。如下图所示： 设置好ADOQuery1组件。将Connection设置为ADOConnection1，这样ADOQuery1组件就可以访问数据库了。 然后将DBGrid1，DBNavigator1，数据网格与数据导航组件的DataSource设置为DataSource1。 将DataSource1的DataSet设置为DM1.EditData。这个我们只要轻松的使用数据导航组件就可以操作数据库了。 最后注意要把ADOQuery1组件中Sql语句要写好。这里的Sql语句应该是：Select * from Data，修改物品数据表中的所有数据。 4.3 数据查询 数据查询功能与上面的差不多，都要使用到TADOQuery组件与DBGrid1组件。只是查询的时候要使用代码。实现查询的代码如下： dm1.ADOFree.Close; dm1.ADOFree.SQL.Clear; dm1.ADOFree.SQL.Add('select * from data'); if combobox1.Text = '按名称' then begin dm1.ADOFree.SQL.Add('where Name=:Name and'); dm1.ADOFree.Parameters.ParamByName('Name').Value := edit1.Text; end else if combo
