unit8.pas

用Delphi做一个公寓管理系统

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ComCtrls, ImgList, jpeg, ExtCtrls;

type
  TForm_infos_r = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Button1: TButton;
    Query1: TQuery;
    Edit1: TEdit;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit3: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox4: TGroupBox;
    Image1: TImage;
    But_loadpic: TButton;
    Edit5: TEdit;
    GroupBox5: TGroupBox;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_infos_r: TForm_infos_r;

implementation

uses Unit16;

{$R *.dfm}

procedure TForm_infos_r.Button1Click(Sender: TObject);
var
  rootNode,subNode:TTreeNode;
  Num_bed,sum_a:integer;
begin
  if Edit1.Text<>'' then
  begin                  //要查找的寝室号已经填写，不为空
    with query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from room where Num_room=:Num_room');
      ParamByName('Num_room').AsString:=Edit1.Text;
      open;

      TreeView1.Items.Clear;
      if query1.RecordCount>=1 then
      begin                           //生成树型目录
        sum_a:=query1.FieldList.Fields[4].Value;

        rootNode:=TreeView1.Items.AddFirst(nil,Edit1.Text);

        for Num_bed:=sum_a downto 1 do
        begin
          subNode:=TreeView1.Items.AddChildFirst(rootNode,inttostr(Num_bed));
          close;
          sql.Clear;
          sql.Add('select * from student where Num_room=:Num_room and Num_bed=:Num_bed');
          ParamByName('Num_room').AsString:=Edit1.Text;
          ParamByName('Num_bed').AsString:=inttostr(Num_bed);
          open;
          if query1.RecordCount>=1 then //此床位已有人住
            begin
              subNode.ImageIndex:=1 ;
              subNode.SelectedIndex:=-1;
            end
            else                       // 此床位还没有人住
            begin
              subNode.ImageIndex:=0;
              subNode.SelectedIndex:=-1;
            end;
          //showmessage('有');
        end
      end
        else
           showmessage('该寝室不存在，请正确填写！');
      end;
    end
  else
  begin
    showmessage('填');
    Edit1.SetFocus;
  end;
end;

procedure TForm_infos_r.TreeView1Click(Sender: TObject);
begin
  Form_unfinished.show;
end;

end.