houstform.pas

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

unit houstform;

interface

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

type
  TSetHouse = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Memo1: TMemo;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetHouse: TSetHouse;

implementation
uses md;

{$R *.dfm}
function isvalues(s:string):string;
begin
if strtoint(trim(s))<10 then
result:='0'+s
else
result:=s;
end;

procedure TSetHouse.BitBtn1Click(Sender: TObject);
var
i,j:integer;
begin
 with  datamd.ADOhouse do
 begin
   close;
   sql.Clear;
   sql.Add('select * from house where 楼房号='''+trim(edit1.Text)+'栋'+'''');
   open;
   if recordcount=0 then
   begin
     append;
     fieldbyname('楼房号').AsString:=edit1.Text+'栋';
     fieldbyname('楼层数').AsInteger:=strtoint(edit2.Text);
     fieldbyname('房间数').AsInteger:=strtoint(edit3.Text);
     fieldbyname('建筑时间').AsDateTime:=datetimepicker1.DateTime;
     fieldbyname('建筑成本').AsCurrency:=strtocurr(edit4.Text);
     fieldbyname('备注').AsVariant:=memo1.Text;
     if messagedlg('是否要插入该数据，请确认正确与否',mtconfirmation,[mbYes,mbNo],0)=mrYes then
     begin
       post;
       for i:=1 to strtoint(edit2.Text) do
          for j:=1 to strtoint(edit3.Text) do
           begin
            with datamd.ADOBTPd do
             begin
             close;
             sql.Clear;
             sql.Add('insert into tbpd(寝室号)  values('''+edit1.Text+'_'+inttostr(i)+isvalues(inttostr(j))+''')');
             ExecSQl;
             end;
          end;
     end
     else
      cancel;
   end
  else
   showmessage('该栋已输入到计算机');
end;
end;

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

procedure TSetHouse.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if  Not(Key in ['0'..'9',Char(VK_BACK),Char(VK_RETURN)]) then
     begin
       Key:=#0;
     end;
end;

procedure TSetHouse.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if  Not(Key in ['0'..'9','.',Char(VK_BACK),Char(VK_RETURN)]) then
     begin
       Key:=#0;
     end;
 if (Key='.') and (Pos('.',Trim((sender as tedit).Text))<>0) then
     begin
        Key:=#0;
        (sender as tedit).SetFocus;
     end;
end;

end.