uinsert.~pas

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

  adoqopen(adoquery1,'select  zbcgb.* ,zzjjgb.jgmc as jgmc from zzjjgb,zbcgb where zzjjgb.jgbm=zbcgb.jgbm order by id');
  adoquery1.last ;
  label16.Caption:=inttostr(adoquery1.fieldbyname('id').Asinteger+1);
 l:=adoqzbcg.RecNo;
 dbgrid1.Refresh;
 edtscqy.Text :=adoqzbcg.fieldbyname('scqy').asstring;
 edtfwdw.Text:=adoqzbcg.fieldbyname('jgmc').asstring;
 edtwh.text:=adoqzbcg.fieldbyname('wh').asstring;
 edtypmc.text:=adoqzbcg.fieldbyname('ypmc').asstring;
 edtspm.text:=adoqzbcg.fieldbyname('spm').asstring;
 edtjx.text:=adoqzbcg.fieldbyname('jx').asstring;
 edtgg.text:=adoqzbcg.fieldbyname('gg').asstring;
 edtdw.text:=adoqzbcg.fieldbyname('dw').asstring;
 edtzlcc.text:=adoqzbcg.fieldbyname('zlcc').asstring;
 if  adoqzbcg.fieldbyname('zblsj').asstring<>'' then
 edtlsjg.Text:=formatfloat('0.00',strtofloat(adoqzbcg.fieldbyname('zblsj').asstring))
 else
 edtlsjg.Text:='';
 
 DateTimePicker1.DateTime:=(adoqzbcg.fieldbyname('zbrq').AsDateTime);
 sptnsave.Enabled:=true;
  l:=0;
end;

procedure Tfrminsert.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 statusbar1.Panels[0].Text:='当前药品：序号为'+datasource1.DataSet.Fields[0].AsString;
 statusbar1.Panels[1].Text:='药品总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

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


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

procedure Tfrminsert.edtwhKeyPress(Sender: TObject; var Key: Char);
begin

sptnsave.Enabled:=true;
end;

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

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

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


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

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


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

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


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

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


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

procedure Tfrminsert.edtzlccKeyPress(Sender: TObject; var Key: Char);
begin

 if key=#13 then
   begin
     key:=#0;
     if sptnsave.Enabled=true then
     sptnsave.OnClick(sender);
     edtscqy.SetFocus;
     edtscqy.SelectAll;
   end;
end;

procedure Tfrminsert.edtlsjgKeyPress(Sender: TObject; var Key: Char);
var
s:string;
begin
 s := edtlsjg.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 = '.') or (key = #13) or (key = #8) then
  else abort;
   if key=#13 then
   begin
     key:=#0;
     edtzlcc.SetFocus;
    edtzlcc.SelectAll;
   end;
end;

procedure Tfrminsert.edtscqyMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtscqy.SelectAll;
end;

procedure Tfrminsert.edtwhMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtwh.SelectAll;
end;

procedure Tfrminsert.edtypmcMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtypmc.SelectAll;
end;

procedure Tfrminsert.edtspmMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtspm.SelectAll;
end;

procedure Tfrminsert.edtjxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtjx.SelectAll;
end;

procedure Tfrminsert.edtggMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtgg.SelectAll;
end;

procedure Tfrminsert.edtdwMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 edtdw.SelectAll;
end;

procedure Tfrminsert.edtlsjgMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtlsjg.SelectAll;
end;

procedure Tfrminsert.edtzlccMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 edtzlcc.SelectAll;
end;

procedure Tfrminsert.FormShow(Sender: TObject);
begin
 edtscqy.SetFocus;
 edtscqy.SelectAll;
end;

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

procedure Tfrminsert.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 Tfrminsert.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 Tfrminsert.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 Tfrminsert.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 Tfrminsert.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
    edtlsjg.SetFocus;
    edtlsjg.SelectAll;
    abort;
  end;
end;

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

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

procedure Tfrminsert.FormResize(Sender: TObject);
begin
dbgrid1.Left:=0;
dbgrid1.top:=200;
dbgrid1.width:=frminsert.Width-18;
dbgrid1.Height:=frminsert.Height-290;
end;

procedure Tfrminsert.DateTimePicker1Change(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtscqyChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;

end;

procedure Tfrminsert.edtypmcChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtjxChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtspmChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtggChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtdwChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtlsjgChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtzlccChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

procedure Tfrminsert.edtwhChange(Sender: TObject);
begin
insertflag:=true;
sptnsave.Enabled:=true;
end;

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

procedure Tfrminsert.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
  edtscqy.SetFocus;
  edtscqy.SelectAll;
    abort;
  end;
end;
end.