setroom.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

unit setroom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ComCtrls, XPMenu;

type
  TSetRoomForm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    ComboBox5: TComboBox;
    GroupBox4: TGroupBox;
    Memo1: TMemo;
    Label6: TLabel;
    YGRSEdit: TEdit;
    UpDown1: TUpDown;
    Label7: TLabel;
    ComboBox6: TComboBox;
    Label8: TLabel;
    ComboBox7: TComboBox;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetRoomForm: TSetRoomForm;

implementation
uses md;
{$R *.dfm}
function getnum(s:string):string;
begin
result:=copy(s,1,length(s)-2);
end;


procedure TSetRoomForm.FormCreate(Sender: TObject);
var
i:integer;
begin
with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select 楼房号 from house group by 楼房号');
open;
if RecordCount>0 then
   begin
     first;
     for i:=0 to RecordCount-1 do
     begin
     combobox1.Items.Add(fieldbyname('楼房号').AsString);
     next;
     end;
   end
else
showmessage('没有记录，请管理员录入数据信息');
end;
end;
procedure TSetRoomForm.BitBtn1Click(Sender: TObject);
begin
//设置相应的房间是否可用与价格的设置
with datamd.ADOBTPd do
begin
  close;
  sql.Clear;
  sql.add('update tbpd set 应住人数='+ygrsedit.Text+', 价格='+combobox5.Text+', 状态='''+combobox6.Text+''''+', 居住性别='''+combobox7.text+''''+',备注='''+memo1.Text+'''');
  sql.add('where 寝室号 between '''+getnum(combobox1.Text)+'_'+trim(combobox2.Text)+trim(combobox3.Text)+''''+' and '''+getnum(combobox1.Text)+'_'+trim(combobox2.Text)+trim(combobox4.Text)+'''');
  if messagedlg('请确认输入，是否把记录更新',mtconfirmation,[mbYes,mbNo],0)=mryes then
  execsql
  else
  showmessage('操作取消');
//以上是写入到房间与价格的程序
 end;
end;
function isvalues(num:integer):string;
begin
if num<10 then
result:='0'+inttostr(num)
else
result:=inttostr(num);
end;
procedure TSetRoomForm.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
combobox2.Clear;
combobox3.Clear;
combobox4.Clear;
with datamd.ADOhouse do
begin
close;
sql.Clear;
sql.Add('select * from house where 楼房号='''+trim(combobox1.text)+'''');
open;
if not eof then
begin
      for i:=1 to fieldbyname('楼层数').AsInteger do
       combobox2.Items.Add(inttostr(i));
       combobox2.ItemIndex:=0;
       for i:=1 to fieldbyname('房间数').AsInteger  do
       begin
       combobox3.Items.Add(isvalues(i));
       combobox4.Items.Add(isvalues(i));
       end;
end;
end;
end;

procedure TSetRoomForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.