uxiugai.pas

在公司做的一个小的系统源代码

procedure Tfrmxiugai.edtypmcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    edtscqy.SetFocus;
    edtscqy.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtjx.SetFocus;
    edtjx.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtjxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then         
  begin
    edtypmc.SetFocus;
    edtypmc.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtspm.SetFocus;
    edtspm.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtspmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then         
  begin
    edtjx.SetFocus;
    edtjx.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtgg.SetFocus;
    edtgg.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtggKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then         
  begin
    edtspm.SetFocus;
    edtspm.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtdw.SetFocus;
    edtdw.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtdwKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    edtgg.SetFocus;
    edtgg.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtzblsj.SetFocus;
    edtzblsj.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtzblsjKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    edtdw.SetFocus;
    edtdw.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtwh.SetFocus;
    edtwh.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtzlccKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
   DateTimePicker1.SetFocus;
    abort;
  end;
  if key=40 then
  begin
    combobox1.SetFocus;
   combobox1.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtglfsKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then         
  begin
    edtzlcc.SetFocus;
    edtzlcc.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtscqy.SetFocus;
    edtscqy.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtscqyKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtypmc.SetFocus;
     edtypmc.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtypmcKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtjx.SetFocus;
     edtjx.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtjxKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtspm.SetFocus;
     edtspm.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtspmKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtgg.SetFocus;
     edtgg.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtggKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtdw.SetFocus;
     edtdw.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtdwKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     key:=#0;
     edtzblsj.SetFocus;
     edtzblsj.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtzlccKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   begin
     key:=#0;
     combobox1.SetFocus;
    combobox1.SelectAll;
   end;
end;

procedure Tfrmxiugai.edtzblsjKeyPress(Sender: TObject; var Key: Char);
var
s:string;
begin  
s := edtzblsj.text;
  if (key = '.') and (length(s) = 0) then abort; //.号不在最前边
  if (key = '.') and (pos('.', s) <> 0) then abort; //.号前不能有两个

if(key>'0')and(key<'9')or(key='0')or(key='9')or(key=#13)or(key='.') or(key=#8)
    then  else
   abort;
  if key=#13 then
   begin
     key:=#0;
     edtzlcc.SetFocus;
     edtzlcc.SelectAll;
    end;
end;

procedure Tfrmxiugai.edtglfsKeyPress(Sender: TObject; var Key: Char);
begin
editflag:=true;
  if key=#13 then
   begin
     key:=#0;
     sptnsave.click;
   end;
end;

procedure Tfrmxiugai.DateTimePicker1Change(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.FormShow(Sender: TObject);
begin
editflag:=false;
edtscqy.SetFocus;
edtscqy.SelectAll;
end;

procedure Tfrmxiugai.edtzblsjExit(Sender: TObject);
var
  s1:real;
begin
if edtzblsj.text<>'' then
begin
s1:=strtofloat(edtzblsj.Text );
edtzblsj.Text:= FormatFloat( '0.00', s1) ;
end;
end;

procedure Tfrmxiugai.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
   begin
     editflag:=false;
     key:=#0;
     sptnsave.Click;
        end;
end;

procedure Tfrmxiugai.edtscqyChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtypmcChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtjxChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtspmChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtggChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtdwChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtzblsjChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtwhChange(Sender: TObject);
begin
editflag:=true;
end;

procedure Tfrmxiugai.edtzlccChange(Sender: TObject);
begin
 editflag:=true;
end;

procedure Tfrmxiugai.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    edtzlcc.SetFocus;
    edtzlcc.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtscqy.SetFocus;
  edtscqy.SelectAll;
    abort;
  end;
end;

procedure Tfrmxiugai.edtwhKeyPress(Sender: TObject; var Key: Char);
begin
edtwh.SelectAll;
end;

procedure Tfrmxiugai.edtwhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
   edtzblsj.SetFocus;
    edtzblsj.SelectAll;
    abort;
  end;
  if key=40 then
  begin
  DateTimePicker1.SetFocus;
    abort;
  end;
end;

procedure Tfrmxiugai.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=38 then
  begin
    edtwh.SetFocus;
    edtwh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtzlcc.SetFocus;
    edtzlcc.SelectAll;
    abort;
  end
end;

procedure Tfrmxiugai.ComboBox1Select(Sender: TObject);
begin
editflag:=true;
end;

end.