unt_allmessage.pas

本软件为宾馆管理系统软件

unit unt_AllMessage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB, Buttons, ExtCtrls;

type
  TAllMessageForm = class(TForm)
    TreeView1: TTreeView;
    Panel1: TPanel;
    Panel2: TPanel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure createTitleNode(nodeType: TTreeNode);
  end;

var
  AllMessageForm: TAllMessageForm;

implementation
uses Main, unt_CheckUser;
{$R *.dfm}

procedure TAllMessageForm.createTitleNode(nodeType: TTreeNode);
var
  sSql: string;
  sqlQuery: TADOQuery;
  nodeTitle: TTreeNode;
begin
  sqlQuery := TADOQuery.Create(self);
  sqlQuery.Connection := checkuserform.ADOConnection1;
  sSql := 'select * from MessageTB where MessageOwner=''' + nodeType.Text + '''';
  MainForm.exeSql(sqlQuery,sSql,'1');
  try
    while not sqlQuery.Eof do
    begin
      TreeView1.Items.BeginUpdate;
      nodeTitle := TreeView1.Items.AddChild(nodeType,sqlQuery.FieldByName('MessageTitle').AsString);
      nodeTitle.StateIndex := sqlQuery.FieldByName('MessageId').AsInteger;
      TreeView1.Items.EndUpdate;
      sqlQuery.Next;
    end;
  finally
    sqlQuery.Free;
  end;
end;

procedure TAllMessageForm.FormShow(Sender: TObject);
var
  sSql : String;
  nodeType: TTreeNode;
  ownerSql: TADOQuery;
begin
   ownerSql := TADOQuery.Create(self);
   ownerSql.Connection := checkuserform.ADOConnection1;
   sSql := 'select distinct MessageOwner from MessageTB';
   MainForm.exeSql(ownerSql,sSql,'1');
   try
    while not ownerSql.Eof do
    begin
      TreeView1.Items.BeginUpdate;
      nodeType := TreeView1.Items.AddChild(nil,ownerSql.FieldByName('MessageOwner').AsString);
      nodeType.StateIndex := 0;
      TreeView1.Items.EndUpdate;
      createTitleNode(nodeType);
      ownerSql.Next;
    end;
  finally
    ownerSql.Free;
  end;
end;

procedure TAllMessageForm.BitBtn1Click(Sender: TObject);
begin
AllMessageForm.Close;
end;

procedure TAllMessageForm.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
var
  sSql: string;
  sqlQuery: TADOQuery;
  nodeFunc: TTreeNode;
begin
  //
  if  TreeView1.Selected.StateIndex = 0 then
    Memo1.Text := TreeView1.Selected.Text + '客人的留言'
  else
  begin
    sqlQuery := TADOQuery.Create(self);
    try
      sqlQuery.Connection := checkuserform.ADOConnection1;
      sSql := 'select * from MessageTB where MessageId=' + IntToStr(TreeView1.Selected.StateIndex);
      MainForm.exeSql(sqlQuery,sSql,'1');
      while not sqlQuery.Eof do
      begin
        Memo1.Text := sqlQuery.FieldByName('MessageTime').AsString + '留言'
                      + #13#10 + sqlQuery.FieldByName('MessageText').AsString;
        sqlQuery.Next;
      end;
    finally
      sqlQuery.Free;
    end;
  end;
end;

end.