ufind.pas

在在一原封不动硒鼓二可耕地z经理可耕地可耕地枯草杆菌二期工程二枯枯树可耕地票面苛

unit ufind;

interface

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

type
  TfrmFind = class(TForm)
    Label3: TLabel;
    gbInqu: TGroupBox;
    rbEName: TRadioButton;
    rbName: TRadioButton;
    rbStano: TRadioButton;
    edtInqu: TEdit;
    bbtnOk: TBitBtn;
    bbtnCancel: TBitBtn;
    procedure rbStanoClick(Sender: TObject);
    procedure rbNameClick(Sender: TObject);
    procedure rbENameClick(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnCancelClick(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.bbtnOkClick(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(self.Handle, '已到了末尾!', '提示', mb_IconInformation + mb_Ok);
        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(self.Handle, '已到了末尾!', '提示', mb_IconInformation + mb_Ok);
        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(self.Handle, '已到了末尾!', '提示', mb_IconInformation + mb_Ok);
        end;
      end;
    end;
  end
  else
  begin
    MessageBox(frmStainfo.Handle, '请输入查询条件!', '提示', mb_IconInformation + mb_Ok);
    edtInqu.SetFocus;
  end;
end;

procedure TfrmFind.bbtnCancelClick(Sender: TObject);
begin
  Close;
end;

end.