unit4.pas

这是DEL原代码,用ACCESS数据库连接的 可以通过各种方式查询信息

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  ThelForm = class(TForm)
    TreeView1: TTreeView;
    Memo1: TMemo;
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  helForm: ThelForm;

implementation

{$R *.dfm}

procedure ThelForm.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.Text='添加记录' then
memo1.Text:='只需要单击按钮，填好每一项，确认是否正确，点击保存按钮即可。' ;
if  treeview1.Selected.Text='删除记录' then
   memo1.Text:= '选中Dbgrid中的其中一条记录，点删除按钮，按提示走即可。';
 if treeview1.Selected.Text='修改记录'  then
    memo1.Text:='双击Dbgrid中的其中一条记录，点修改按钮，填好要修改的字段，再点保存修改，按提示走即可。';
    if treeview1.Selected.Text='音乐视听' then
   memo1.Text:='点击按钮，在弹出来的窗体中点打开按钮，选中要播放的文件，切记（文件扩展名为.dat的此播放程序不支持!）,否则会出现错误。';
    if  treeview1.Selected.Text='休息片刻' then
          memo1.Text:='点按钮即可，但是此程序文件夹必须放在指定的盘中才可以正常玩游戏。';
         if   treeview1.Selected.Text='关于作者' then
                  memo1.Text:='单击按钮打开，只简单的介绍了关于作者的信息，要退出则点右下角带有向下的箭头的标签即可!';
if treeview1.Selected.Text='模糊查询' then
   memo1.Text:='先在combobox中选择想要查询的字段,再在编辑筐中输入你所要查找人的相关信息，点模糊查询按钮即可';
      if treeview1.Selected.Text='精确查询' then
   memo1.Text:='先在combobox中选择想要查询的字段,再在编辑筐中输入你所要查找人的具体信息，点精确查找按钮即可!';
    if treeview1.Selected.Text='相关帮助' then
      memo1.Text:='提供某些功能是使用方法作为参考';
    if   treeview1.Selected.Text='关于此通讯录' then
    memo1.Text:='此小型通讯录只实现一般的添加，查找，删除，功能，另外附带一个简单的播放器程序+#13还有几个简易的游戏调用（只有当文件夹放在E盘中才可以玩）';
if   treeview1.Selected.Text='安全撤退'  then
            memo1.Text:='单击按钮即可退出';
end;

end.