unit10.pas

用Delphi做一个公寓管理系统

unit Unit10;

interface

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

type
  TForm_info_q2 = 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;
    Label9: TLabel;
    Label10: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_info_q2: TForm_info_q2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_info_q2.Button1Click(Sender: TObject);
begin
  Image1.Picture:=nil;                  //照片置空
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from student where sno=:sno');
  query1.ParamByName('sno').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;

end;

procedure TForm_info_q2.Button2Click(Sender: TObject);
begin
  Form_info_q2.Close;
end;

end.