unit6.pas

用Delphi做一个公寓管理系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, DBTables, Mask, ExtCtrls;

type
  TForm_info_q3 = class(TForm)
    GroupBox1: TGroupBox;
    Label8: TLabel;
    Edit5: TEdit;
    Button1: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBMemo1: TDBMemo;
    Button_next: TButton;
    Button_Prior: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button_nextClick(Sender: TObject);
    procedure Button_PriorClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_info_q3: TForm_info_q3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_info_q3.Button1Click(Sender: TObject);
begin
  Image1.Picture:=nil;                  //照片置空
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from student where Num_room=:Num_room');
  query1.ParamByName('Num_room').AsString:=Edit5.Text;
  query1.Open;
  if query1.RecordCount>0 then     //如果有这个姓名的学生，载入照片
  begin
    if FileExists(Form_main.projectdir.Caption+'\image\'+query1.FieldList.Fields[0].Value+'.bmp') then
    Image1.Picture.LoadFromFile(form_main.projectdir.Caption+'\image\'+query1.FieldList.Fields[0].Value+'.bmp')
    else
    Image1.Picture.LoadFromFile(form_main.projectdir.Caption+'\image\暂时无照片.bmp');
  end
  else
  begin
    showmessage('没有这个学生！');
    Edit5.SetFocus;
  end;
  if query1.RecordCount>1 then    //有同名的学生
  begin

    Button_next.Enabled:=true;
  end;
end;

procedure TForm_info_q3.Button_nextClick(Sender: TObject);
begin
  if not query1.Eof then
  begin
    query1.Next;
    Image1.Picture.LoadFromFile(form_main.projectdir.caption+'\image\'+query1.FieldList.Fields[0].Value+'.bmp');
    Button_Prior.Enabled:=true;
  end
  else
  Button_next.Enabled:=false;
end;

procedure TForm_info_q3.Button_PriorClick(Sender: TObject);
begin
  if  not query1.Bof then
  begin
    query1.Prior;
    Image1.Picture.LoadFromFile(form_main.projectdir.caption+'\image\'+query1.FieldList.Fields[0].Value+'.bmp');
    Button_next.Enabled:=true;
  end
  else
    Button_Prior.Enabled:=false;
end;

procedure TForm_info_q3.Button2Click(Sender: TObject);
begin
  Form_info_q3.Close;
end;

end.