u_form_select.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Form_Select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Tabs, Grids, DBGridEh, DB, ADODB, StdCtrls, Buttons;

type
  TF_Form_Select = class(TForm)
    Panel1: TPanel;
    Q_main: TADOQuery;
    DS_main: TDataSource;
    Q_mainSID: TGuidField;
    Q_mainFormname: TStringField;
    Q_mainCaption: TStringField;
    Q_mainFormstyle: TStringField;
    Q_mainWidth: TIntegerField;
    Q_mainHeight: TIntegerField;
    Q_mainFormLeft: TIntegerField;
    Q_mainFormTop: TIntegerField;
    Q_mainMain_table: TStringField;
    Q_mainDetail_table: TStringField;
    Q_mainKey_Field: TStringField;
    Edit1: TEdit;
    BTN_find: TBitBtn;
    Label1: TLabel;
    DBGridEh1: TDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure BTN_findClick(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    RESULT_FORM: string;
    RESULT_GUID: string;
    { Public declarations }
  end;

var
  F_Form_Select: TF_Form_Select;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Form_Select.FormShow(Sender: TObject);
begin
  Q_main.Open;
end;

procedure TF_Form_Select.DBGridEh1DblClick(Sender: TObject);
begin
  RESULT_GUID := Q_MAIN.FIELDBYNAME('SID').ASSTRING;
  RESULT_FORM := Q_MAIN.FIELDBYNAME('FORMNAME').ASSTRING;
  CLOSE;
end;

procedure TF_Form_Select.BTN_findClick(Sender: TObject);
begin
  SQL_S := 'Select * from TB_form where 1=1 and Caption like ''%' + Trim(edit1.Text) + '%''';
  SQL_change(Q_main, Sql_S);
end;

procedure TF_Form_Select.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
    BTN_findClick(sender);
end;

procedure TF_Form_Select.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  RESULT_GUID := Q_MAIN.FIELDBYNAME('SID').ASSTRING;
  RESULT_FORM := Q_MAIN.FIELDBYNAME('FORMNAME').ASSTRING;
end;

procedure TF_Form_Select.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 MYDBGridEHDrawColumnCelL(DBGRIDEH1, Rect, Datacol, Column, State);
end;

end.