⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ubedroominfo.~pas

📁 ＤＥＬＰＨＩ开发的寝室管理系统
💻 ~PAS
字号:
🔍 
unit Ubedroominfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, DB, ADODB, ExtCtrls, Mask,
  DBCtrls;

type
  Tfrmbedroominfo = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label4: TLabel;
    Edit3: TEdit;
    Button5: TButton;
    Label5: TLabel;
    DataSource1: TDataSource;
    RadioGroup1: TRadioGroup;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    TabSheet2: TTabSheet;
    PageControl2: TPageControl;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button7: TButton;
    Button8: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Button6: TButton;
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);


   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbedroominfo: Tfrmbedroominfo;

implementation

{$R *.dfm}

procedure Tfrmbedroominfo.Button6Click(Sender: TObject);
begin
 frmbedroominfo.close;
end;

procedure Tfrmbedroominfo.Button5Click(Sender: TObject);
begin
if trim(edit3.Text)='' then
  begin
  showmessage('请输入关键字!');
  exit;
end;
case radiogroup1.ItemIndex of
0:
with ADOQuery1 do
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no and student.student_no='+#39+Edit3.Text+#39);
  ADOQuery1.Open;
end;
1:
  with ADOQuery1 do
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no and bedroom_no='+#39+Edit3.Text+#39);
  ADOQuery1.Open;
end;
end;
end;
procedure Tfrmbedroominfo.Button1Click(Sender: TObject);
begin
if Edit1.text='' then
  begin
  showmessage('请输入寝室号!');
  exit;
  end;
if Edit2.text='' then
  begin
  showmessage('请输入床号!');
  exit;
end;

if Edit4.text='' then
  begin
  showmessage('请输入学号!');
  exit;
end;

if (Edit2.text<>'4') and (edit2.text<>'1') and (edit2.text<>'2') and (edit2.text<>'3') then
  begin
  showmessage('输入床号错误!');
  exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select student_no from student where student_no='+#39+Edit4.Text+#39+'';
ADOQuery1.Open;
if ADOQuery1.eof then
   begin
    showmessage('无该学生!');
    exit;
   end;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select student_no from bed_stu where student_no='+#39+Edit4.Text+#39+'';
ADOQuery1.Open;
if not ADOQuery1.eof then
   begin
    showmessage('该学生已有床位!');
    exit;
   end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no from bedroom where bedroom_no='+#39+edit1.Text+#39+'';
ADOQuery1.Open;
if   ADOQuery1.eof then
   begin
    showmessage('无该寝室!');
    exit;
   end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no,bedcode from bed_stu where bedroom_no=:bedroom_no and bedcode=:bedcode';
ADOQuery1.Parameters[0].Value:=Edit1.Text;
ADOQuery1.Parameters[1].Value:=Edit2.Text;
ADOQuery1.Open;
if  NOT ADOQuery1.eof then
 begin
  showmessage('这张床已经有人啦!');
   exit;
  end;

ADOQuery1.sql.Text:='insert into bed_stu values('+#39+Edit1.Text+#39+','+#39+Edit2.Text+#39+','+#39+Edit4.Text+#39+')';
ADOQuery1.ExecSQL;
Edit1.Text:='';
Edit2.Text:='';
Edit4.Text:='';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no');
ADOQuery1.Open;
end;




procedure Tfrmbedroominfo.Button2Click(Sender: TObject);
begin
if (Edit6.text<>'4') and (edit6.text<>'1') and (edit6.text<>'2') and (edit6.text<>'3') then
  begin
  showmessage('输入床号错误!');
  exit;
end;
if Edit5.text='' then
  begin
  showmessage('请输入寝室号!');
  exit;
end;


if Edit7.text='' then
  begin
  showmessage('请输入学号!');
  exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select student_no from student where student_no='+#39+Edit7.Text+#39+'';
ADOQuery1.Open;
if ADOQuery1.eof then
   begin
    showmessage('无该学生!');
    exit;
   end;


ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no from bedroom where bedroom_no='+#39+edit5.Text+#39+'';
ADOQuery1.Open;
if   ADOQuery1.eof then
   begin
    showmessage('无该寝室!');
    exit;
   end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no,bedcode from bed_stu where bedroom_no=:bedroom_no and bedcode=:bedcode';
ADOQuery1.Parameters[0].Value:=Edit5.Text;
ADOQuery1.Parameters[1].Value:=Edit6.Text;
ADOQuery1.Open;
   if  ADOQuery1.eof then
 begin
  showmessage('无这张床的信息!');
   exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no from bedroom where bedroom_no='+#39+edit5.Text+#39+'';
ADOQuery1.Open;
if   ADOQuery1.eof then
   begin
    showmessage('无该寝室!');
    exit;
   end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select student_no from bed_stu where student_no='+#39+Edit7.Text+#39+'';
ADOQuery1.Open;
if not ADOQuery1.eof then
   begin
   showmessage('该学生已有床位!');
   exit;
end;

ADOQuery1.sql.text:='update bed_stu set student_no='+#39+edit7.text+#39+'where bedroom_no='+#39+Edit5.Text+#39+'and bedcode='+#39+Edit6.Text+#39+'';
ADOQuery1.execsql;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no');
ADOQuery1.Open;
  Edit5.text:='';
  Edit6.text:='';
  Edit7.text:='';
end;

procedure Tfrmbedroominfo.Button3Click(Sender: TObject);
begin

if Edit8.text='' then
  begin
  showmessage('请输入寝室号!');
  exit;
end;
if Edit9.text='' then
  begin
  showmessage('请输入床号!');
  exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no from bedroom where bedroom_no='+#39+edit8.Text+#39+'';
ADOQuery1.Open;
if   ADOQuery1.eof then
   begin
    showmessage('无该寝室!');
    exit;
   end;
if (Edit9.text<>'4') and (edit9.text<>'1') and (edit9.text<>'2') and (edit9.text<>'3') then
  begin
  showmessage('输入床号错误!');
  exit;
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.text:='select bedroom_no,bedcode from bed_stu where bedroom_no=:bedroom_no and bedcode=:bedcode';
ADOQuery1.Parameters[0].Value:=Edit8.Text;
ADOQuery1.Parameters[1].Value:=Edit9.Text;
ADOQuery1.Open;
   if  ADOQuery1.eof then
 begin
  showmessage('无这张床的信息!');
   exit;
  end;
  ADOQuery1.sql.Text:='delete from bed_stu where bedroom_no='+#39+Edit8.Text+#39+'and bedcode='+#39+Edit9.Text+#39+'';
  ADOQuery1.execsql;
  Edit8.text:='';
  Edit9.text:='';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no');
  ADOQuery1.Open;
end;



procedure Tfrmbedroominfo.Button4Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.text:='select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no';
  ADOQuery1.open;
end;

procedure Tfrmbedroominfo.Button7Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no');
  ADOQuery1.Open;
end;

procedure Tfrmbedroominfo.Button8Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select bedroom_no,bedcode,name,student.student_no,age from bed_stu,student where bed_stu.student_no=student.student_no');
  ADOQuery1.Open;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -