load.pas

劳保用品管理系统

unit load;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB;

type
  Tloadfm = class(TForm)
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loadfm: Tloadfm;

implementation
uses input, main, adodata;
{$R *.dfm}

procedure Tloadfm.DBGrid1CellClick(Column: TColumn);
var s1, s2: string;
begin
  if loadfm.Tag = 1 then
  begin
    if adodm.loadquery.RecordCount = 0 then inputfm.Edit39.SetFocus;
    if adodm.loadquery.RecordCount > 0 then
    begin
      s1 := adodm.loadquery.FieldValues['部门名称'];
      s2 := adodm.loadquery.FieldValues['部门编号'];
      inputfm.Edit39.Text := s1;
      inputfm.Edit1.Text := s2;
    end;
    loadfm.Close;
    inputfm.Edit2.setfocus;
  end;
//工种
  if loadfm.Tag = 2 then
  begin
    if adodm.loadquery.RecordCount = 0 then inputfm.Edit40.SetFocus;
    if adodm.loadquery.RecordCount > 0 then
    begin
      s1 := adodm.loadquery.FieldValues['工种名称'];
      s2 := adodm.loadquery.FieldValues['工种编号'];
      inputfm.Edit40.Text := s1;
      inputfm.Edit5.Text := s2;
    end;
    loadfm.Close;
    inputfm.Edit5.SetFocus;
  end;


end;

procedure Tloadfm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
//var s1,s2:string;
begin
//--部门
{if (key=#13) and (loadfm.Tag =1) then
 begin
   if loadfm.adoquery1.RecordCount=0 then inputfm.Edit39.SetFocus;
   if loadfm.adoquery1.RecordCount>1 then
    begin
    s1:=loadfm.adoquery1.FieldValues['部门名称'];
    s2:=loadfm.adoquery1.FieldValues['部门编号'];
    inputfm.edit39.Text:=s1;
    inputfm.Edit1.Text :=s2;
    end;
    loadfm.Close ;
    inputfm.Edit2.setfocus;
 end;
//--工种编号
if (key=#13) and (loadfm.Tag =2) then
 begin
   if loadfm.adoquery1.RecordCount=0 then inputfm.Edit40.SetFocus;
   if loadfm.adoquery1.RecordCount>1 then
    begin
    s1:=loadfm.adoquery1.FieldValues['工种名称'];
    s2:=loadfm.adoquery1.FieldValues['工种编号'];
    inputfm.edit40.Text:=s1;
    inputfm.Edit5.Text :=s2;
    end;
    loadfm.Close ;
      inputfm.Edit5.SetFocus;
//    inputfm.combobox4.setfocus;
 end;
}
end;

procedure Tloadfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tag := 0;
end;

procedure Tloadfm.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  mainfm.SetFocus;
end;

end.