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.

  • 相关阅读:
    session和cookie的理解
    CSS3媒体查询能检测到的特性小结
    怎样让搜索引擎收录你的网站|向搜索引擎提交你的网站
    vue-i18n vue-cli项目中实现国际化 多语言切换功能 一
    chrome中hack解决input:-webkit-autofill自定义样式
    知识分享
    iPhone的CSS3媒体查询
    C#中异常:“The type initializer to throw an exception(类型初始值设定项引发异常)”的简单分析与解决方法
    快速原型设计工具-Axure RP的介绍及简单使用(生产初期向客户展示设计产品的原型-也就是展示产品)
    纯CSS实现下拉菜单及下拉容器等(纯CSS实现导航条及导航下拉容器)
  • 原文地址:https://www.cnblogs.com/DKSoft/p/996393.html
Copyright © 2011-2022 走看看