unit5.pas

用Delphi做一个公寓管理系统

unit Unit5;

interface

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

type
  TForm_infos_s = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    GroupBox2: TGroupBox;
    Image1: TImage;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    But_loadpic: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Query1: TQuery;
    Button2: TButton;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Query5: TQuery;
    procedure But_loadpicClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_infos_s: TForm_infos_s;
  //projectdir:string;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_infos_s.But_loadpicClick(Sender: TObject);
begin
  //projectdir:=getcurrentdir;
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    
  end;
end;

procedure TForm_infos_s.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') and (ComboBox1.Text<>'') and (ComboBox2.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')then
  begin
    with Form_infos_s.query1 do
    begin
      close;
      sql.Clear;
      sql.Add('insert into student  values(:sno,:sdept,:time_s,:sname,:ssex,:Num_room,:Num_bed,:remark)');
      ParamByName('sno').AsString:=Form_infos_s.Edit1.Text;
      ParamByName('sdept').AsString:=Form_infos_s.ComboBox1.Text;
      ParamByName('time_s').AsString:=Form_infos_s.ComboBox2.Text;
      ParamByName('sname').AsString:=Form_infos_s.Edit2.Text;
      if RadioButton1.Checked then
        ParamByName('ssex').AsString:='男';
      if RadioButton2.Checked then
        ParamByName('ssex').AsString:='女';
      ParamByName('Num_room').AsString:=Form_infos_s.Edit3.Text;
      ParamByName('Num_bed').AsString:=Form_infos_s.Edit4.Text;
      ParamByName('remark').AsString:=Form_infos_s.Memo1.Text;
      Form_infos_s.query1.ExecSQL;
      //if  Form_infos.Image1.Picture.
      Form_infos_s.Image1.Picture.SaveToFile(form_main.projectdir.caption+'\image\'+Edit1.Text+'.bmp');
      query2.ParamByName('Num_room').AsString:=edit3.Text;
      query2.ExecSQL;
      showmessage('OK,添加成功!');
      Form_infos_s.Close;
    end;
  end
  else
  begin
    showmessage('请将内容填写完整!');
  end;
end;

procedure TForm_infos_s.Button2Click(Sender: TObject);
begin
  Form_infos_s.Close;
end;

procedure TForm_infos_s.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#13,#8]) then
  key:=#0;
end;

procedure TForm_infos_s.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#13,#8]) then
  key:=#0;
end;

procedure TForm_infos_s.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text='' then
  begin
    showmessage('请填写学号!');
    Edit1.SetFocus;
  end
  else
  begin
    query3.Close;      // 下面的query3.Open使得query3处于active状态，不再接受再次的参数赋值
    query3.ParamByName('sno').AsString:=edit1.Text;
    query3.Open;
    if query3.RecordCount>0 then
    begin
      showmessage('已经存在相同的学号!');
      edit1.SetFocus;
    end;
  end;
end;

procedure TForm_infos_s.Edit3Exit(Sender: TObject);
var
room_sex,sum_a,sum_p:string;
begin
  if Edit3.Text='' then
  begin
    showmessage('请填写寝室号!');
    Edit3.SetFocus;
  end
  else
  begin
    query4.Close;
    query4.ParamByName('Num_room').AsString:=Edit3.Text;
    query4.Open;
    if query4.RecordCount<=0 then
    begin
      showmessage('该寝室号不存在!');
      Edit3.SetFocus;
    end
    else
      begin
        room_sex:=query4.FieldList.Fields[1].Value;
        sum_a:=query4.FieldList.Fields[4].Value;
        sum_p:=query4.FieldList.Fields[5].Value;
        if (RadioButton1.Checked) and (room_sex<>'男') or (RadioButton2.Checked) and (room_sex<>'女')then
        begin
          showmessage('这间寝室住的是'+room_sex+'生!');
          Edit3.SetFocus;
        end;
        if sum_a<=sum_p then
        begin
          showmessage('该寝室已住满!');
          Edit3.SetFocus;
        end;
      end;
  end;
  end;
procedure TForm_infos_s.Edit2Exit(Sender: TObject);
begin
  if Edit2.Text='' then
  begin
    showmessage('请填写姓名!');
    Edit2.SetFocus;
  end;
end;

procedure TForm_infos_s.Edit4Change(Sender: TObject);
begin
  if  edit3.Text='' then
  begin
    showmessage('请先填写寝室号!');
    edit4.Text:='';
    edit3.SetFocus;
  end;
end;

procedure TForm_infos_s.Edit4Exit(Sender: TObject);
begin
  if edit4.Text<>'' then
  begin
    query5.Close;
    query5.ParamByName('Num_room').AsString:=edit3.Text;
    query5.ParamByName('Num_bed').AsString:=edit4.Text;
    query5.Open;
    if query5.RecordCount>=1 then
    begin
      showmessage('些床已经安排了人!');
      edit4.SetFocus;
    end;
  end ;


end;

end.