ufind.pas

delphi开发的人事信息管理系统,包括详细的软件开发文档

unit uFind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, Buttons, ExtCtrls;

type
  Tfrmfind = class(TForm)
    btnOK: TSpeedButton;
    btnCancel: TSpeedButton;
    Panel1: TPanel;
    Label3: TLabel;
    gbinqu: TGroupBox;
    rbename: TRadioButton;
    rbname: TRadioButton;
    rbstano: TRadioButton;
    edtinqu: TEdit;
    procedure rbstanoClick(Sender: TObject);
    procedure rbnameClick(Sender: TObject);
    procedure rbenameClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfind: Tfrmfind;

implementation

uses ustainfo;

var
  fid: integer = 0;

{$R *.dfm}

procedure Tfrmfind.rbstanoClick(Sender: TObject);
begin
  label3.Caption := '请输入工号：';
  edtinqu.SetFocus;
end;

procedure Tfrmfind.rbnameClick(Sender: TObject);
begin
  label3.Caption := '请输入姓名：';
  edtinqu.SetFocus;
end;

procedure Tfrmfind.rbenameClick(Sender: TObject);
begin
  label3.Caption := '请输入拼音：';
  edtinqu.SetFocus;
end;

procedure Tfrmfind.btnOKClick(Sender: TObject);
var
  i: integer;
begin
  if edtinqu.Text <> '' then
  begin
    with frmstainfo do
    begin
      tvper.SetFocus;
      if rbstano.Checked = true then
      begin
        for i := fid to tvper.Items.Count - 1 do
        begin
          fid := fid + 1;
          if tvper.Items[i].data <> nil then
            if Psid(tvper.Items[i].Data)^.sno = edtinqu.Text then
            begin
              tvper.Items[i].Selected := true;
              tvper.Setfocus;
              break;
            end;
        end;
        if i = tvper.Items.Count then
        begin
          fid := 0;
          //MessageBox(handle, '已到了末尾!', '提示', mb_IconInformation + mb_Ok);
          MessageDlg('已到了末尾!', mtInformation, [mbOk], 0);
        end;
      end
      else if rbname.Checked = true then
      begin
        for i := fid to tvper.Items.Count - 1 do
        begin
          fid := fid + 1;
          if tvper.Items[i].data <> nil then
            if tvper.Items[i].text = edtinqu.Text then
            begin
              tvper.Items[i].Selected := true;
              tvper.Setfocus;
              break;
            end;
        end;
        if i = tvper.Items.Count then
        begin
          fid := 0;
          //MessageBox(handle, '已到了末尾!', '提示', mb_IconWarning + mb_Ok);
          MessageDlg('已到了末尾!', mtInformation, [mbOk], 0);
        end;
      end
      else
      begin
        for i := fid to tvper.Items.Count - 1 do
        begin
          fid := fid + 1;
          if tvper.Items[i].data <> nil then
            if Psid(tvper.Items[i].Data)^.sen = edtinqu.Text then
            begin
              tvper.Items[i].Selected := true;
              tvper.Setfocus;
              break;
            end;
        end;
        if i = tvper.Items.Count then
        begin
          fid := 0;
          //MessageBox(handle, '已到了末尾!', '提示', mb_IconWarning + mb_Ok);
          MessageDlg('已到了末尾!', mtInformation, [mbOk], 0);
        end;
      end;
    end;
  end
  else
  begin
    MessageBox(self.Handle, '请输入查询条件!', '提示', mb_IconInformation + mb_Ok);
    edtinqu.SetFocus;
  end;
end;

procedure Tfrmfind.btnCancelClick(Sender: TObject);
begin
  close;
end;

end.