D7myzhenyong/进度统计查询(Statistics.dll)/U_UserSel.pas

unit U_UserSel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator;

type
  FdDy = record
    inc: integer; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD>־<EFBFBD><D6BE><EFBFBD>
    FDdys: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
    FdDysName: string[32]; //<2F>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>׽<EFBFBD><D7BD><EFBFBD>
  end;

  TfrmUserSel = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    ADOQueryMain: TADOQuery;
    Label3: TLabel;
    UserName: TEdit;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_User: TClientDataSet;
    Label1: TLabel;
    UserID: TEdit;
    ToolButton1: TToolButton;
    v2Column1: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v2Column4: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure UserNameChange(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
  private
 
    { Private declarations }
    procedure InitGrid();
  public
    FGDY, FFILLER, FLeader, FGDYNAME: string;
  end;

var
  frmUserSel: TfrmUserSel;

implementation

uses
  U_DataLink, U_Fun;

{$R *.dfm}

procedure TfrmUserSel.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      SQL.Clear;
      sql.Add(' select * from SY_User where wxid is not null ');
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_User);
    SInitCDSData20(ADOQueryMain, CDS_User);
  finally
    ADOQueryMain.EnableControls;
  end;
  with CDS_User do
  begin
    First;
    while not Eof do
    begin
      if (FieldByName('UserName').AsString = FFILLER) or (FieldByName('UserName').AsString = FGDY) or (FieldByName('UserName').AsString = FLeader) or (FieldByName('UserName').AsString = FGDYNAME) then
      begin
        Edit;
        FieldByName('SSEL').Value := TRUE;
        Post;
      end;

      Next;
    end;
  end;
end;

procedure TfrmUserSel.FormDestroy(Sender: TObject);
begin
  frmUserSel := nil;
end;

procedure TfrmUserSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmUserSel.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(trim(self.caption), Tv2, '<27><>Ӧ<EFBFBD>̹<EFBFBD><CCB9><EFBFBD>');
  Close;
end;

procedure TfrmUserSel.FormShow(Sender: TObject);
begin
  ReadCxGrid(trim(self.Caption), Tv2, '<27><>Ӧ<EFBFBD>̹<EFBFBD><CCB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  InitGrid();
end;

procedure TfrmUserSel.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmUserSel.ToolButton2Click(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
    SCreateCDS20(ADOQueryMain, CDS_User);
    SInitCDSData20(ADOQueryMain, CDS_User);
  end;
end;

procedure TfrmUserSel.UserNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmUserSel.ToolButton1Click(Sender: TObject);
begin
  ModalResult := 1;
end;

end.