unit14.pas

用Delphi做一个公寓管理系统

unit Unit14;

interface

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

type
  TForm_infos_del = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Query1: TQuery;
    Query2: TQuery;
    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_infos_del: TForm_infos_del;
  Num_room:string;
implementation

uses Unit11, Unit10, Unit4, Unit6, Unit9;

{$R *.dfm}

procedure TForm_infos_del.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    edit1.Enabled:=true;
    edit1.Color:=clWindow;
    label1.Enabled:=true;
    edit2.Color:=clBtnFace;
    edit2.Enabled:=false;
    edit3.Color:=clBtnFace;
    edit3.Enabled:=false;
    label2.Enabled:=false;
    label3.Enabled:=false;
    Button1.Enabled:=true;
    Button2.Enabled:=false;
  end;
end;


procedure TForm_infos_del.RadioButton3Click(Sender: TObject);
begin
   if RadioButton3.Checked then
  begin
    edit1.Color:=clBtnFace;
    edit1.Enabled:=false;
    label1.Enabled:=false;
    edit2.Enabled:=true;
    edit3.Enabled:=true;
    edit2.Color:=clWindow;
    edit3.Color:=clWindow;
    label2.Enabled:=true;
    label3.Enabled:=true;
    Button1.Enabled:=false;
    Button2.Enabled:=true;
  end;
end;

procedure TForm_infos_del.Button1Click(Sender: TObject);
begin
  if Form_infos_del.Edit1.Text<>'' then
  begin
    Form_info_q2.Edit5.Text:=Form_infos_del.Edit1.Text;
    Form_info_q2.Show;
    Form_info_q2.Button1.Click;
    if Form_info_q2.query1.RecordCount>0 then
      begin
        Num_room:=Form_info_q2.query1.FieldList.Fields[5].Value;
        Button3.enabled:=true;
      end
     else
     begin
     Button3.enabled:=false;
     edit1.SetFocus;
     end;
  end
  else
  begin
    showmessage('请填写要查找的学号!');
  end;
end;

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

procedure TForm_infos_del.Button2Click(Sender: TObject);
begin
  if Form_infos_del.Edit2.Text<>'' then
  begin
    Form_info_q3.Edit5.Text:=Form_infos_del.Edit2.Text;
    Form_info_q3.Show;
    Form_info_q3.Button1.Click;
    if Form_info_q3.query1.RecordCount>0 then
     Button3.enabled:=true
     else
     begin
     Button3.enabled:=false;
     edit2.SetFocus;
     end;


  end
  else
  begin
    showmessage('请填写要查找的寝室号!');
  end;

end;

procedure TForm_infos_del.Button4Click(Sender: TObject);
begin
   Form_infos_del.Close;
end;

procedure TForm_infos_del.Button3Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    if edit1.Text='' then
      begin
        showmessage('请填写学号!');
        edit1.SetFocus;
      end
      else
        if MessageDlg('确认删除'+edit1.Text,mtConfirmation,mbOkCancel,0)=mrOk then
         begin
           query1.Close;
           query1.SQL.Clear;
           query1.SQL.Add('delete from student where sno=:sno');
           query1.ParamByName('sno').AsString:=edit1.Text;
           query1.ExecSQL;
           query2.ParamByName('Num_room').AsString:=Num_room;
           query2.ExecSQL;
           edit1.Text:='';
         end;
  end;
  if RadioButton3.Checked then
  begin
    if edit2.Text='' then
      begin
        showmessage('请填写寝室号!');
        edit2.SetFocus;
      end
      else
        if edit3.Text='' then
          begin
            showmessage('请填写床位号!');
            edit3.SetFocus;
          end
          else
        if MessageDlg('确认删除?',mtConfirmation,mbOkCancel,0)=mrOk then
         begin
           query1.Close;
           query1.SQL.Clear;
           query1.SQL.Add('delete from student where Num_room=:Num_room and Num_bed=:Num_bed');
           query1.ParamByName('Num_room').AsString:=edit2.Text;
           query1.ParamByName('Num_bed').AsString:=edit3.Text;
           query1.ExecSQL;
           edit2.Text:='';
           edit3.Text:='';
         end;
  end;
end;

end.