rgtselectformctrlfrmselect.pas

中国移动大客户管理系统

//------------------------------------------------------------
//      作者:曾庆顺
//      模块:选择窗体和控件名称窗口
//      时间：2002.09.20
//      功能介绍：
//-----------------------------------------------------------
unit RgtSelectFormCtrlFrmSelect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, ExtCtrls, Db, DBClient, Menus,
  DBTables;

type
  TRgtSelectFormCtrlSelect = class(TForm)
    PnlQuery: TPanel;
    EdtFormName: TEdit;
    PnlBtn: TPanel;
    BtnClear: TButton;
    BtnQuery: TButton;
    BtnSelect: TButton;
    BtnCancel: TButton;
    EdtControlName: TEdit;
    DsSysFormCtrlList: TDataSource;
    Label4: TLabel;
    EdtLISTID: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    EdtExtra: TEdit;
    EdtFormCaption: TEdit;
    EdtControlCaption: TEdit;
    CdsSysFormCtrlList: TQuery;
    btn_sort: TButton;
    Splitter1: TSplitter;
    DbgSysFormCtrlList: TDBGrid;
    procedure BtnClearClick(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure BtnSelectClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DbgSysFormCtrlListDblClick(Sender: TObject);
    procedure EdtLISTIDKeyPress(Sender: TObject; var Key: Char);
    procedure btn_sortClick(Sender: TObject);
    procedure CdsSysFormCtrlListAfterScroll(DataSet: TDataSet);
  private

    { Private declarations }
    P_Condition:String;
  public
    { Public declarations }
    P_QueryFORMNAME,P_QueryCONTROLNAME,P_FORMNAME,P_CONTROLNAME :string;
  end;

var
  RgtSelectFormCtrlSelect: TRgtSelectFormCtrlSelect;

implementation
uses dmmain,sort;
{$R *.DFM}

procedure TRgtSelectFormCtrlSelect.BtnClearClick(Sender: TObject);
var V_I:Integer;
begin
  For V_I:=0 To (PnlQuery.ControlCount-1) do
    If  PnlQuery.Controls[V_I].ClassType=TEdit Then
      (PnlQuery.Controls[V_I] as TEdit).Text:='';

end;


procedure TRgtSelectFormCtrlSelect.BtnQueryClick(Sender: TObject);
var
  sqlstr :string;
begin
  screen.Cursor :=crHourGlass;
  P_Condition:=' 1=1 ';
  if Trim(EdtLISTID.Text)<>'' then
    P_Condition:=' and ListId='+Trim(EdtLISTID.Text);

  If Trim(EdtFormName.Text)<>'' Then
    P_Condition:=P_Condition + ' and FORMNAME like '+#39+EdtFormName.Text+#39;

  If Trim(EdtControlName.Text)<>'' Then
    P_Condition:=P_Condition  + ' and CONTROLNAME like '+#39+EdtControlName.Text+#39;

  If Trim(EdtFormCaption.Text)<>'' Then
    P_Condition:=P_Condition  + ' and FORMCAPTION like '+#39+EdtFormCaption.Text+#39;

  If Trim(EdtControlCaption.Text)<>'' Then
    P_Condition:=P_Condition + ' and CONTROLCAPTION like '+#39+EdtControlCaption.Text+#39;

  If Trim(EdtExtra.Text)<>'' Then
    P_Condition:=P_Condition + ' and EXTRA like '+#39+EdtExtra.Text+#39;

  CdsSysFormCtrlList.close;
  sqlstr :='Select * from SysFormCtrlList where ';
  sqlstr :=sqlstr+P_Condition;
  CdsSysFormCtrlList.sql.text :=sqlstr;
  CdsSysFormCtrlList.open;
  screen.Cursor :=crDefault;
end;

procedure TRgtSelectFormCtrlSelect.BtnSelectClick(Sender: TObject);
begin
  ModalResult:=MrOk;
end;

procedure TRgtSelectFormCtrlSelect.BtnCancelClick(Sender: TObject);
begin
  ModalResult:=MrCanCel;
end;

procedure TRgtSelectFormCtrlSelect.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
end;


procedure TRgtSelectFormCtrlSelect.DbgSysFormCtrlListDblClick(
  Sender: TObject);
begin
  ModalResult:=MrOk;
end;

procedure TRgtSelectFormCtrlSelect.EdtLISTIDKeyPress(Sender: TObject;
  var Key: Char);
begin
  If not (Key in ['0'..'9',#8,#13]) then
    Key:=#0;

end;

procedure TRgtSelectFormCtrlSelect.btn_sortClick(Sender: TObject);
begin
  p_Sort(CdsSysFormCtrlList,DbgSysFormCtrlList);
end;

procedure TRgtSelectFormCtrlSelect.CdsSysFormCtrlListAfterScroll(
  DataSet: TDataSet);
begin
  if CdsSysFormCtrlList.Active then
  begin
    P_FORMNAME :=CdsSysFormCtrlList.fieldbyname('FORMNAME').asstring;
    P_CONTROLNAME :=CdsSysFormCtrlList.fieldbyname('CONTROLNAME').asstring;
    P_QueryFORMNAME :=CdsSysFormCtrlList.fieldbyname('FORMCAPTION').asstring;
    P_QueryCONTROLNAME :=CdsSysFormCtrlList.fieldbyname('CONTROLCAPTION').asstring;
  end;
end;

end.