uweisheng.~pas

ＤＥＬＰＨＩ开发的寝室管理系统

            Edit2.Text:='';
            Edit3.Text:='';
            Edit4.Text:='';
            Edit5.Text:='';
            Edit6.Text:='';
            ADOQuery2.close;
            ADOQuery2.sql.Clear;
            ADOQuery2.sql.Add('select * from weisheng_detail');
            ADOQuery2.open;
            end
            else showmessage('操作失败，请先添加卫生检查信息!');
            //edit7.SetFocus;
          end
        else
          begin
            showmessage('信息已存在!');
            ADOQuery2.close;
            ADOQuery2.sql.Clear;
            ADOQuery2.sql.Add('select * from weisheng_detail');
            ADOQuery2.open;
            Edit2.Text:='';
            Edit3.Text:='';
            Edit4.Text:='';
            Edit5.Text:='';
            Edit6.Text:='';
          end
    end
    else
      showmessage('请输入信息!');
end;

procedure Tfrmweisheng.Button4Click(Sender: TObject);
begin
  if (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') and (edit6.Text<>'')then
with self.ADOQuery2 do
      begin
        close;
        sql.Clear;
        sql.Text:='select * from weisheng_detail where weisheng_info_no=:weisheng_info_no and weisheng_detail_no=:weisheng_detail_no';
        Parameters[0].Value:=Edit2.Text;
        Parameters[1].Value:=Edit3.Text;
        open;
        if not eof then
          begin
            First;
            open;
            update;
            edit;
            FieldByName('weisheng_info_no').AsString:=Edit2.Text;
            FieldByName('weisheng_detail_no').AsString:=Edit3.Text;
            FieldByName('bedroom_no').AsString:=Edit4.Text;
            FieldByName('stu_no').AsString:=Edit5.Text;
            FieldByName('detail').AsString:=Edit6.Text;
            post;
            showmessage('修改成功！');
          end
        else
            showmessage('此项不存在!');

       Edit2.Text:='';
       Edit3.Text:='';
       Edit4.Text:='';
       Edit5.Text:='';
       Edit6.Text:='';
       close;
       sql.Clear;
       sql.Add('select * from weisheng_detail');
       open;

      end
  else
      showmessage('请输入完整信息!');
end;

procedure Tfrmweisheng.Button6Click(Sender: TObject);
begin
   if (edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'') then
    with self.ADOQuery3 do
      begin
        close;
        sql.Clear;
        sql.Text:='select * from weisheng_info where weisheng_info_no=:weisheng_info_no ';
        Parameters[0].Value:=Edit7.Text;
        open;
        if eof then
          begin
            close;
            SQL.Clear;
            SQL.Add('Select * from weisheng_info');
            open;
            First;
            Insert;
            FieldByName('weisheng_info_no').AsString:=Edit7.Text;
            FieldByName('manager_no').AsString:=Edit8.Text;
            FieldByName('time').AsString:=Edit9.Text;
            post;
            showmessage('添加成功！');
            Edit7.Text:='';
            Edit8.Text:='';
            Edit9.Text:='';
          end
        else
          begin
            showmessage('信息已存在!');
            Edit7.Text:='';
            Edit8.Text:='';
            Edit9.Text:='';
          end
    end
    else
      showmessage('请输入信息!');
end;

procedure Tfrmweisheng.Button5Click(Sender: TObject);
begin
    if (edit2.Text<>'') and (edit3.Text<>'') then
    with self.ADOQuery2 do
      begin
        close;
        sql.Clear;
        sql.Text:='select * from weisheng_detail where weisheng_info_no=:weisheng_info_no and weisheng_detail_no=:weisheng_detail_no';
        Parameters[0].Value:=Edit2.Text;
        Parameters[1].Value:=Edit3.Text;
        open;
        if not eof then
          begin
            First;
            open;
            delete;
            showmessage('删除成功！');
            close;

            Edit2.Text:='';
            Edit3.Text:='';
            Edit4.Text:='';
            Edit5.Text:='';
            Edit6.Text:='';
          end
        else  showmessage('信息不存在!');
      close;
      SQL.Clear;
      SQL.Add('Select * from weisheng_detail');
      open;
    end
    else
      showmessage('请输入信息!');
end;

procedure Tfrmweisheng.Button7Click(Sender: TObject);
begin
  if (edit7.Text<>'') and (edit8.Text<>'') and (edit9.Text<>'')then
with self.ADOQuery3 do
      begin
        close;
        sql.Clear;
        sql.Text:='select * from weisheng_info where weisheng_info_no=:weisheng_info_no';
        Parameters[0].Value:=Edit7.Text;
        open;
        if not eof then
          begin
            First;
            open;
            update;
            edit;
            FieldByName('weisheng_info_no').AsString:=Edit7.Text;
            FieldByName('manager_no').AsString:=Edit8.Text;
            FieldByName('time').AsString:=Edit9.Text;
            post;
            showmessage('修改成功！');
          end
        else
            showmessage('此项不存在!');

       Edit7.Text:='';
       Edit8.Text:='';
       Edit9.Text:='';
       close;
       sql.Clear;
       sql.Add('select * from weisheng_info');
       open;

      end
  else
      showmessage('请输入完整信息!');
end;
procedure Tfrmweisheng.Button8Click(Sender: TObject);
begin
  if (edit7.Text<>'') then
    begin
     // with self.ADOQuery3 do
      ADOQuery3.close;
      ADOQuery3.sql.Clear;
      ADOQuery3.sql.Text:='select * from weisheng_info where weisheng_info_no=:weisheng_info_no';
      ADOQuery3.Parameters[0].Value:=Edit7.Text;
      ADOQuery3.open;
      if not ADOQuery3.eof then
        begin
          ADOQuery2.close;
          ADOQuery2.sql.Clear;
          ADOQuery2.sql.Text:='select * from weisheng_detail where weisheng_info_no=:weisheng_info_no';
          ADOQuery2.Parameters[0].Value:=Edit7.Text;
          ADOQuery2.open;

          ADOQuery3.First;
          ADOQuery3.open;
          ADOQuery3.delete;
          showmessage('删除成功！');
          ADOQuery3.close;
          
          while not ADOQuery2.eof do
            begin
              ADOQuery2.First;
              ADOQuery2.open;
              ADOQuery2.delete;
              ADOQuery2.close;

              ADOQuery2.close;
              ADOQuery2.sql.Clear;
              ADOQuery2.sql.Text:='select * from weisheng_detail where weisheng_info_no=:weisheng_info_no';
              ADOQuery2.Parameters[0].Value:=Edit7.Text;
              ADOQuery2.open;
              {ADOQuery3.First;
              ADOQuery3.open;
              ADOQuery3.delete;
              showmessage('删除成功！');
              ADOQuery3.close;
              Edit7.Text:='';
              Edit8.Text:='';
              Edit9.Text:='';}
             end ;
             Edit7.Text:='';
             Edit8.Text:='';
             Edit9.Text:='';
           end
      else  showmessage('信息不存在!');
      ADOQuery2.close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('Select * from weisheng_detail');
      ADOQuery2.open;
      ADOQuery3.close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('Select * from weisheng_info');
      ADOQuery3.open;
    end
  else
    showmessage('请输入信息!');
end;

end.