unitdmhotel.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 1,062 行 · 第 1/4 页

    if (usernameCK=false) and (roomidCK=true) and (intimeCK=true) then
       begin
           ADODataSet_roomreDebt_requery.CommandText:='select * from room_debt where  roomid='+
                            ''''+ls_roomid+''''+
                            ' and intime>'+''''+datetostr(ls_intime)+''''+' and intime<'+''''+datetostr(ls_intime+1)+''''
                            + ' and checkornot='+''''+ls_checkedornot+'''';
       end;

    if (usernameCK=false) and (roomidCK=true) and (intimeCK=false) then
       begin
           ADODataSet_roomreDebt_requery.CommandText:='select * from room_debt where roomid='+''''+ls_roomid+''''
           + ' and checkornot='+''''+ls_checkedornot+'''';
       end;

    if (usernameCK=false) and (roomidCK=false) and (intimeCK=true) then
       begin
           ADODataSet_roomreDebt_requery.CommandText:='select * from room_debt where intime>'+''''+datetostr(ls_intime)+''''+' and intime<'+''''+datetostr(ls_intime+1)+''''
           + ' and checkornot='+''''+ls_checkedornot+'''';
       end;

    ADODataSet_roomreDebt_requery.Prepared:=true;
    ADODataSet_roomreDebt_requery.Open;
       //计算总金额
                       totalmoney:=0;
               while not  DMHotel.ADODataSet_roomreDebt_requery.Eof do
                   begin
                       totalmoney:=totalmoney+DMHotel.ADODataSet_roomreDebt_requery.FieldValues['totalfee'];
                       ADODataSet_roomreDebt_requery.Next;
                   end;

   end;


 // 查询非房客的消费。包括帐单和欠帐情况

    procedure TDMHotel.CustomerDebtQuery(ls_checkedornot:string;ls_username:string;var totalmoney:extended );
         begin
              ADODataSet_customerdebt_requery.Close;
              ADODataSet_customerdebt_requery.Prepared:=false;

              if ls_username='' then
              ADODataSet_customerdebt_requery.CommandText:='select * from customer_debt'+
              ' where checkornot='+''''+ls_checkedornot+''''

              else

              ADODataSet_customerdebt_requery.CommandText:='select * from customer_debt'+
              ' where customername='+''''+ls_username+''''+' and checkornot='+''''+ls_checkedornot+'''';
               ADODataSet_customerdebt_requery.Prepared:=true;
               ADODataSet_customerdebt_requery.Open;

               //下面要去总的消费金额
                   totalmoney:=0;
               while not  DMHotel.ADODataSet_customerdebt_requery.Eof do
                   begin
                       totalmoney:=totalmoney+DMHotel.ADODataSet_customerdebt_requery.FieldValues['totalfee'];
                       ADODataSet_customerdebt_requery.Next;
                   end;
         end;



    //还账的查询
        procedure TDMHotel.CustomerreDebtQuery(ls_checkedornot:string;ls_username:string;var totalmoney:extended );
         begin
              ADODataSet_customerredebt_requery.Close;
              ADODataSet_customerredebt_requery.Prepared:=false;
              if ls_username='' then
              ADODataSet_customerredebt_requery.CommandText:='select * from customer_debt'+
              ' where checkornot='+''''+ls_checkedornot+''''

              else

              ADODataSet_customerredebt_requery.CommandText:='select * from customer_debt'+
              ' where customername='+''''+ls_username+''''+' and checkornot='+''''+ls_checkedornot+'''';
               ADODataSet_customerredebt_requery.Prepared:=true;
               ADODataSet_customerredebt_requery.Open;

               //下面要去总的消费金额
                   totalmoney:=0;
               while not  DMHotel.ADODataSet_customerredebt_requery.Eof do
                   begin
                       totalmoney:=totalmoney+DMHotel.ADODataSet_customerredebt_requery.FieldValues['totalfee'];
                       ADODataSet_customerredebt_requery.Next;
                   end;
         end;


    // 房间状态的查询
    procedure TDMHotel.RoomStatusQuery(ls_roomstatus:string);
    begin
        ADODataSet_roomstatus_requery.Close;
        ADODataSet_roomstatus_requery.Prepared:=false;
        ADODataSet_roomstatus_requery.CommandText:='select * from room_status '+
        ' where roomstatus='+''''+ls_roomstatus+'''';
             //  showmessage('select * from room_status '+
      //  ' where roomstatus='+''''+ls_roomstatus+'''');
        ADODataSet_roomstatus_requery.Prepared:=true;
        ADODataSet_roomstatus_requery.Open;
    end;

    //总经理对客房现金消费的查询
    procedure TDMHotel.ManagerRoomFeeQuery(ls_username:string;ls_begintime:Tdatetime;ls_endtime:Tdatetime;usernameCK:boolean;var totalmoney:extended);
    begin
    //先关闭相应的操作
        ADODataSet_roomfee_requery.Close;
        ADODataSet_roomfee_requery.Prepared:=false;

        if usernameCK=true then
                ADODataSet_roomfee_requery.CommandText:='select * from room_fee where'+
                ' username='+''''+ls_username+''''+' and checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+''''
        else
                ADODataSet_roomfee_requery.CommandText:='select * from room_fee where'+
                ' checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+'''';

         ADODataSet_roomfee_requery.Prepared:=true;
         ADODataSet_roomfee_requery.Open;

        //下面就是要计算总的金额
            totalmoney:=0;
        while not ADODataSet_roomfee_requery.Eof do
        begin
                totalmoney:=totalmoney+ADODataSet_roomfee_requery.FieldValues['totalfee'];
                ADODataSet_roomfee_requery.Next;
        end;
    end;

 //房客挂帐的已还的帐单查询
 procedure TDMHotel.ManagerRoomDebtQuery(ls_username:string;ls_begintime:Tdatetime;ls_endtime:Tdatetime;usernameCK:boolean;ls_checkedornot:string;  var totalmoney:extended);
 begin
    //先关闭相应的操作
        ADODataSet_roomdebt_requery.Close;
        ADODataSet_roomdebt_requery.Prepared:=false;

        if usernameCK=true then
                ADODataSet_roomdebt_requery.CommandText:='select * from room_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and username='+''''+ls_username+''''+' and checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+''''
        else
                ADODataSet_roomdebt_requery.CommandText:='select * from room_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+'''';
           //     ADODataSet_roomdebt_requery.CommandText:='select * from room_debt where checkornot='+
           //             ''''+'欠账'+'''';//ls_checkedornot+'''';
             //   showmessage(ADODataSet_roomdebt_requery.CommandText);

                     //showmessage(ls_checkedornot);
         ADODataSet_roomdebt_requery.Prepared:=true;
         ADODataSet_roomdebt_requery.Open;
         //ADODataSet_roomdebt_requery.Requery;

      //   showmessage('aaa');

        //下面就是要计算总的金额
            totalmoney:=0;
        while not ADODataSet_roomdebt_requery.Eof do
        begin
                totalmoney:=totalmoney+ADODataSet_roomdebt_requery.FieldValues['totalfee'];
                ADODataSet_roomdebt_requery.Next;
        end;
    end;

       //欠帐的帐单
     procedure TDMHotel.ManagerRoomReDebtQuery(ls_username:string;ls_begintime:Tdatetime;ls_endtime:Tdatetime;usernameCK:boolean;ls_checkedornot:string;  var totalmoney:extended);
    begin
    //先关闭相应的操作
        ADODataSet_roomredebt_requery.Close;
        ADODataSet_roomredebt_requery.Prepared:=false;

        if usernameCK=true then
                ADODataSet_roomredebt_requery.CommandText:='select * from room_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and username='+''''+ls_username+''''+' and redebttime>'+''''+datetostr(ls_begintime)+''''+
                ' and redebttime<'+''''+datetostr(ls_Endtime+1)+''''
        else
                ADODataSet_roomredebt_requery.CommandText:='select * from room_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and redebttime>'+''''+datetostr(ls_begintime)+''''+
                ' and redebttime<'+''''+datetostr(ls_Endtime+1)+'''';

         ADODataSet_roomredebt_requery.Prepared:=true;
         ADODataSet_roomredebt_requery.Open;

        //下面就是要计算总的金额
            totalmoney:=0;
        while not ADODataSet_roomredebt_requery.Eof do
        begin
                totalmoney:=totalmoney+ADODataSet_roomredebt_requery.FieldValues['totalfee'];
                ADODataSet_roomredebt_requery.Next;
        end;

      end;


      //非房客的消费的付现金的查询
      //数据库表是有大小写区分的
    procedure TDMHotel.ManagerCustomerReDebtQuery(ls_username:string;ls_begintime:Tdatetime;ls_endtime:Tdatetime;usernameCK:boolean;ls_checkedornot:string;  var totalmoney:extended);
    begin
    //先关闭相应的操作
        ADODataSet_Customerredebt_requery.Close;
        ADODataSet_Customerredebt_requery.Prepared:=false;

        if usernameCK=true then
                ADODataSet_Customerredebt_requery.CommandText:='select * from customer_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and customername='+''''+ls_username+''''+' and checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+''''
        else
                ADODataSet_customerredebt_requery.CommandText:='select * from customer_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and checktime>'+''''+datetostr(ls_begintime)+''''+
                ' and checktime<'+''''+datetostr(ls_Endtime+1)+'''';
                          
         ADODataSet_Customerredebt_requery.Prepared:=true;
       //  SHOWMESSAGE('A');
         ADODataSet_Customerredebt_requery.Open;

        //下面就是要计算总的金额
            totalmoney:=0;
        while not ADODataSet_Customerredebt_requery.Eof do
        begin
                totalmoney:=totalmoney+ADODataSet_Customerredebt_requery.FieldValues['totalfee'];
                ADODataSet_Customerredebt_requery.Next;
        end;
        end;

      //非房客帐单的查询
    procedure TDMHotel.ManagerCustomerDebtQuery(ls_username:string;ls_begintime:Tdatetime;ls_endtime:Tdatetime;usernameCK:boolean;ls_checkedornot:string;  var totalmoney:extended);
    begin
    //先关闭相应的操作
        ADODataSet_Customerdebt_requery.Close;
        ADODataSet_Customerdebt_requery.Prepared:=false;

        if usernameCK=true then
                ADODataSet_Customerdebt_requery.CommandText:='select * from customer_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and customername='+''''+ls_username+''''+' and indebttime>'+''''+datetostr(ls_begintime)+''''+
                ' and indebttime<'+''''+datetostr(ls_Endtime+1)+''''
        else
                ADODataSet_customerdebt_requery.CommandText:='select * from customer_debt where'+
                ' checkornot='+''''+ls_checkedornot+''''+
                ' and indebttime>'+''''+datetostr(ls_begintime)+''''+
                ' and indebttime<'+''''+datetostr(ls_Endtime+1)+'''';
                         
         ADODataSet_Customerdebt_requery.Prepared:=true;
       //  SHOWMESSAGE('A');
         ADODataSet_Customerdebt_requery.Open;

        //下面就是要计算总的金额
            totalmoney:=0;
        while not ADODataSet_Customerdebt_requery.Eof do
        begin
                totalmoney:=totalmoney+ADODataSet_Customerdebt_requery.FieldValues['totalfee'];
                ADODataSet_Customerdebt_requery.Next;
        end;
    end;


end.