评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

sql2000+公寓管理系统+delphi[开题报告＋论文＋源代(2)

2013-06-08 02:45 t1Click(Sender: TObject);
var floorcount,roomcount :integer;
    f,r :integer;
begin
                       ///在个Edit都不能为空
    if Edit_floorNum.Text='' then
      begin
        showmessage('楼房号不能为空！');
        Edit_floorNum.SetFocus;
      end
      else
      if Edit_floorcount.Text='' then
        begin
          showmessage('楼层数不能为空！');
          Edit_floorcount.SetFocus;
        end
        else
        if Edit_roomcount.Text='' then
          begin
            showmessage('每层房间数不能为空！');
            Edit_roomcount.SetFocus;
          end

  else
  begin
    floorcount:=strtoint(Form_floorconfig1.Edit_floorcount.Text);
    roomcount:=strtoint(Form_floorconfig1.Edit_roomcount.Text);
    for f:=1 to floorcount do
    with Form_floorconfig1.Query1 do
      begin
        for r:=1 to roomcount do
            begin
            Close; （科教作文网http://zw.ΝsΕac.cOM编辑）
            SQL.Clear;
            SQL.Add('insert into room(Num_room) values(:x1)');
            if r<10 then
              parambyname('x1').asstring:=Edit_floorNum.Text+inttostr(f)+'0'+inttostr(r)
            else
              parambyname('x1').asstring:=Edit_floorNum.Text+inttostr(f)+inttostr(r);
            ExecSQL;
          end;
      end;
    end;
end;
procedure TForm_floorconfig1.Edit_floorcountKeyPress(Sender: TObject;
  var Key: Char);            
begin
  if not (key in ['0'..'9',#13,#8]) then
  key:=#0;
end;
procedure TForm_main.N1Click(Sender: TObject);       //主窗体的壁纸设置
begin
  if Ope