zoukankan      html  css  js  c++  java
  • TfrmSelGuest

    unit ufrmSelGuest;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ufrmBsGridSelect, cxStyles, cxCustomData, cxGraphics, cxFilter,
      cxData, cxDataStorage, cxEdit, DB, cxDBData, DBClient, mfDBClient,
      ActnList, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
      cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
      ComCtrls, ToolWin, mfFieldCentre, mfGridColCreator, mfDevGridColCreator,
      mfDBSearchMgr, mfBsFormCmptMgr, mfFormCmptMgr, StdCtrls, ExtCtrls,
      mfQueryCtrlsCreator, mfDevQueryCtrlsCreator, mfMovePanel, cxCheckBox,
      cxContainer;

    type
      TfrmSelGuest = class(TfrmBsGridSelect)
        procedure FormCreate(Sender: TObject);
        procedure FormMgrPrepare(Sender: TObject);
        procedure QueryCreatorGetQueryCondition(AQueryItem: TmfQueryCtrlsItem;
          var vCondi: string; var vProcessed: Boolean);
      private
        function GetProviderChecker: Integer;
        function GetCustChecker: Integer;
        function GetBrotherChecker: Integer;
        procedure SetProviderChecker(const AValue: Integer);
        procedure SetCustChecker(const AValue: Integer);
        procedure SetBrotherChecker(const AValue: Integer);
        { Private declarations }
      public
        property ProviderChecker: Integer read GetProviderChecker write
          SetProviderChecker;
        property CustChecker: Integer read GetCustChecker write SetCustChecker;
        property BrotherChecker: Integer read GetBrotherChecker write SetBrotherChecker;
        { Public declarations }


      end;

    var
      frmSelGuest: TfrmSelGuest;

    implementation

    {$R *.dfm}

    procedure TfrmSelGuest.FormCreate(Sender: TObject);
    begin
      inherited;
      fdcMain.Open;
      gccMain.Open;
    end;

    procedure TfrmSelGuest.FormMgrPrepare(Sender: TObject);
    var
      AIsRefresh: Boolean;
    begin
      AIsRefresh := false;
      //if FOleParams.FieldExists('Provi') then
      if FOleParams.IntegerValue['Provi'] <> ProviderChecker then
      begin
        ProviderChecker := FOleParams.IntegerValue['Provi'];
        AIsRefresh := true;
      end;
     // if FOleParams.FieldExists('Cust') then
      if FOleParams.IntegerValue['Cust'] <> CustChecker then
      begin
        CustChecker := FOleParams.IntegerValue['Cust'];
        AIsRefresh := true;
      end;

      //if FOleParams.FieldExists('Brother') then
      if FOleParams.IntegerValue['Brother'] <> BrotherChecker then
      begin
        BrotherChecker := FOleParams.IntegerValue['Brother'];
        AIsRefresh := true;
      end;
      if not cdsMain.Active or AIsRefresh then actRefresh.Execute;
    end;

    function TfrmSelGuest.GetProviderChecker: Integer;
    var
      ACheckBox: TcxCheckBox;
    begin
      Result := -1;
      if Assigned(QueryCreator.FindItemByFieldName('FGongYingShang')) then
      begin
        QueryCreator.FindItemByFieldName('FGongYingShang').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FGongYingShang').NextValueCtrl);
        if Assigned(ACheckBox) then
          case ACheckBox.State of
            cbsUnchecked: Result := 0;
            cbsChecked: Result := 1;
            cbsGrayed: Result := -1;
          end;
      end;
    end;

    function TfrmSelGuest.GetCustChecker: Integer;
    var
      ACheckBox: TcxCheckBox;
    begin
      Result := -1;
      if Assigned(QueryCreator.FindItemByFieldName('FKeHu')) then
      begin
        QueryCreator.FindItemByFieldName('FKeHu').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FKeHu').NextValueCtrl);
        if Assigned(ACheckBox) then
          case ACheckBox.State of
            cbsUnchecked: Result := 0;
            cbsChecked: Result := 1;
            cbsGrayed: Result := -1;
          end;
      end;
    end;

    function TfrmSelGuest.GetBrotherChecker: Integer;
    var
      ACheckBox: TcxCheckBox;
    begin
      Result := -1;
      if Assigned(QueryCreator.FindItemByFieldName('FTongHang')) then
      begin
        QueryCreator.FindItemByFieldName('FTongHang').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FTongHang').NextValueCtrl);
        if Assigned(ACheckBox) then
          case ACheckBox.State of
            cbsUnchecked: Result := 0;
            cbsChecked: Result := 1;
            cbsGrayed: Result := -1;
          end;
      end;
    end;

    procedure TfrmSelGuest.SetProviderChecker(const AValue: Integer);
    var
      ACheckBox: TcxCheckBox;
    begin
      if Assigned(QueryCreator.FindItemByFieldName('FGongYingShang')) then
      begin
        QueryCreator.FindItemByFieldName('FGongYingShang').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FGongYingShang').NextValueCtrl);
        if Assigned(ACheckBox) then
          case AValue of
            0: ACheckBox.State := cbsUnchecked;
            1: ACheckBox.State := cbsChecked;
            -1: ACheckBox.State := cbsGrayed;
          end;
      end;
    end;

    procedure TfrmSelGuest.SetCustChecker(const AValue: Integer);
    var
      ACheckBox: TcxCheckBox;
    begin
      if Assigned(QueryCreator.FindItemByFieldName('FKeHu')) then
      begin
        QueryCreator.FindItemByFieldName('FKeHu').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FKeHu').NextValueCtrl);
        if Assigned(ACheckBox) then
          case AValue of
            0: ACheckBox.State := cbsUnchecked;
            1: ACheckBox.State := cbsChecked;
            -1: ACheckBox.State := cbsGrayed;
          end;
      end;
    end;

    procedure TfrmSelGuest.SetBrotherChecker(const AValue: Integer);
    var
      ACheckBox: TcxCheckBox;
    begin
      if Assigned(QueryCreator.FindItemByFieldName('FTongHang')) then
      begin
        QueryCreator.FindItemByFieldName('FTongHang').Reset;
        ACheckBox := TcxCheckBox(QueryCreator.FindItemByFieldName('FTongHang').NextValueCtrl);
        if Assigned(ACheckBox) then
          case AValue of
            0: ACheckBox.State := cbsUnchecked;
            1: ACheckBox.State := cbsChecked;
            -1: ACheckBox.State := cbsGrayed;
          end;
      end;
    end;

    procedure TfrmSelGuest.QueryCreatorGetQueryCondition(
      AQueryItem: TmfQueryCtrlsItem; var vCondi: string;
      var vProcessed: Boolean);
    var
      ACheckBox: TcxCheckBox;
    begin
      vProcessed := True;

      if AQueryItem.FieldDataObject.FieldName = 'FKeHu' then
      begin
        ACheckBox := TcxCheckBox(AQueryItem.FirstValueCtrl);
        if Assigned(ACheckBox) then
          if ACheckBox.Checked then vCondi := 'FKeHu = 1';
      end else if AQueryItem.FieldDataObject.FieldName = 'FGongYingShang' then
      begin
        ACheckBox := TcxCheckBox(AQueryItem.FirstValueCtrl);
        if Assigned(ACheckBox) then
          if ACheckBox.Checked then vCondi := 'FGongYingShang = 1';
      end else if AQueryItem.FieldDataObject.FieldName = 'FTongHang' then
      begin
        ACheckBox := TcxCheckBox(AQueryItem.FirstValueCtrl);
        if Assigned(ACheckBox) then
          if ACheckBox.Checked then vCondi := 'FTongHang = 1';
      end else
        vProcessed := false;

     

    end;

    end.

  • 相关阅读:
    软件工程学习总结
    第13次作业--邮箱的正则表达式
    第12次作业--你的生日
    第11次作业--字符串处理
    第10次作业
    找回感觉的练习
    基础网络流学习笔记
    卷积定理的证明
    快速xxx变换相关
    主席树相关
  • 原文地址:https://www.cnblogs.com/DKSoft/p/996393.html
Copyright © 2011-2022 走看看