frm_s_selectyhxxpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 138 行

unit frm_s_SelectYhxxpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, DB, ADODB, Grids, DBGrids, ImgList, Menus,
  UErrDisplay, StdCtrls, ExtCtrls, YLabelButton, ChangeImage, ModalForm1;

type
  Tfrm_s_SelectYhxx = class(TMyModalForm1)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery1Yhbh: TStringField;
    ADOQuery1Yhxm: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtyhbh: TEdit;
    edtyhxm: TEdit;
    edtbmmc: TEdit;
    ADOQuery1bjmc: TStringField;
    BtnBrowse: TChangeImg;
    BtnEdit: TChangeImg;
    procedure edtyhbhChange(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtyhbhKeyPress(Sender: TObject; var Key: Char);
    procedure edtyhxmChange(Sender: TObject);
    procedure BtnBrowseClick(Sender: TObject);
    procedure edtbmmcChange(Sender: TObject);
    procedure imgCloseButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yhbh: string;
  end;

var
  frm_s_SelectYhxx: Tfrm_s_SelectYhxx;

implementation

uses DM_DataModal, Frm_SlectClass, UGlobal, UTcard;
{$R *.dfm}

procedure Tfrm_s_SelectYhxx.edtyhbhChange(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
  begin
    sql.Clear;
    sql.add('select yhbh,yhxm,bjmc from vzx_s_yhxx ');
    sql.add('where yhbh like ''' + trim(edtyhbh.text) + '%''');
    sql.add('order by yhbh');
    open;
  end;
end;

procedure Tfrm_s_SelectYhxx.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  if not ADOQuery1.Eof then
  begin
    yhbh := ADOQuery1.fieldbyname('yhbh').asstring;
    close;
  end;
end;

procedure Tfrm_s_SelectYhxx.FormShow(Sender: TObject);
begin
  inherited;
  yhbh := '';
  edtyhbh.SetFocus;
end;

procedure Tfrm_s_SelectYhxx.edtyhbhKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key = #13 then DBGrid1DblClick(self);
end;

procedure Tfrm_s_SelectYhxx.edtyhxmChange(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
  begin
    sql.Clear;
    sql.add('select yhbh,yhxm,bjmc from vzx_s_yhxx ');
    sql.add('where yhxm like ''' + trim(edtyhxm.text) + '%''');
    sql.add('order by yhbh');
    open;
  end;
end;

procedure Tfrm_s_SelectYhxx.BtnBrowseClick(Sender: TObject);
begin
  inherited;
  if not assigned(SlectClass) then
    SlectClass := TSlectClass.Create(Application);
  slectclass.SelFlag:='BJXZ';
  SlectClass.ShowModal;
  edtbmmc.Text:=GsTempstr2;
  with ADOQuery1 do
  begin
    sql.Clear;
    sql.add('select yhbh,yhxm,bjmc from vzx_s_yhxx ');
    sql.add('where bjbh = ''' +GsTempstr1  + '''');
    sql.add('order by yhbh');
    open;
  end;
end;

procedure Tfrm_s_SelectYhxx.edtbmmcChange(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
  begin
    sql.Clear;
    sql.add('select yhbh,yhxm,bjmc from vzx_s_yhxx ');
    sql.add('where bjmc like ''' + trim(edtbmmc.text) + '%''');
    sql.add('order by yhbh');
    open;
  end;                   
end;

procedure Tfrm_s_SelectYhxx.imgCloseButtonClick(Sender: TObject);
begin
  inherited;
  yhbh:='';
end;

end.