yggz.~pas

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8  then key:=8
else
begin
 if (key<96) or (key>105) then
  begin
  key:=0;
  flag:=false;
  end
  else
  flag:=true;
end;
end;

procedure TFRM_YGGZ.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=8  then key:=8
else
begin
 if (key<96) or (key>105) then
  begin
  key:=0;
  flag:=false;
  end
  else
  flag:=true;
end;
end;

procedure TFRM_YGGZ.Edit4Change(Sender: TObject);
var sumgz:real;
begin
if length(edit3.text)=0  then
      begin
       edit4.Text:='0.00';
       edit4.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit3Change(Sender: TObject);
var sumgz:real;
begin
if length(edit3.text)=0  then
      begin
       edit3.Text:='0.00';
       edit3.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit5Change(Sender: TObject);
var sumgz:real;
begin
if length(edit5.text)=0  then
      begin
      edit5.Text:='0.00';
      edit5.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit11Change(Sender: TObject);
var sumgz:real;
begin
if length(edit11.text)=0  then
      begin
       edit11.Text:='0.00';
        edit11.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit9Change(Sender: TObject);
var sumgz:real;
begin
if length(edit9.text)=0  then
      begin
       edit9.Text:='0.00';
        edit9.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit10Change(Sender: TObject);
var sumgz:real;
begin
if length(edit10.text)=0  then
      begin
       edit10.Text:='0.00';
        edit10.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit6Change(Sender: TObject);
var sumgz:real;
begin
if length(edit6.text)=0  then
      begin
       edit6.Text:='0.00';
        edit6.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit7Change(Sender: TObject);
var sumgz:real;
begin
if length(edit7.text)=0  then
      begin
       edit7.Text:='0.00';
        edit7.SelectAll;
      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit8Change(Sender: TObject);
var sumgz:real;
begin
if length(edit8.text)=0  then
      begin
      edit8.Text:='0.00';
       edit8.SelectAll;

      end;
if flag then
begin
    sumgz:=strtofloat(edit1.text)+strtofloat(edit2.text)+strtofloat(edit4.text)+
    strtofloat(edit3.text)+strtofloat(edit5.text)+strtofloat(edit11.text)+
    strtofloat(edit9.text)+strtofloat(edit10.text)-strtofloat(edit6.text)-
    strtofloat(edit7.text)-strtofloat(edit8.text);
    label13.Caption:=formatfloat('0.00',sumgz);
end;
end;

procedure TFRM_YGGZ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#8 then key:=#8 else

if (key>'9')or (key<'0') then key:=#0;
end;

procedure TFRM_YGGZ.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var i:integer;
begin
if treeview1.Selected.Level=2 then
   begin
   label15.Caption:=treeview1.Selected.Text;
   with data do
   begin
     aq1.Connection:=adoc1;
     aq1.Close;
     aq1.SQL.Clear;
     aq1.SQL.add(' select a.bmbh,a.ygmc,b.ygbh,b.jbgz,b.gwgz,b.wcbz, '+
  'b.ywtc,b.qqj,b.fwbt,b.yybt,b.jbf,b.ldbx,'+
  'b.grsds,b.fk from ygzl a,gzb b where a.ygbh=b.ygbh and a.bmbh=b.bmbh and a.ygmc=:ygmc');
     aq1.Parameters.ParamByName('ygmc').Value:=trim(treeview1.Selected.Text);
     aq1.Open;
  if aq1.Recordset.RecordCount>0 then
  begin
     aq1.First;
     stringgrid2.RowCount:=aq1.Recordset.RecordCount+1;
     stringgrid2.Font.Color:=clblack;
   while not aq1.Eof do
   begin
   for i:=1 to stringgrid2.RowCount-1 do
   begin
       stringgrid2.Cells[1,i]:=aq1.Fields.fieldbyname('bmbh').Value;
       stringgrid2.Cells[2,i]:=aq1.Fields.fieldbyname('ygbh').Value;
       stringgrid2.Cells[3,i]:=aq1.Fields.fieldbyname('ygmc').Value;
       stringgrid2.Cells[4,i]:=aq1.Fields.fieldbyname('jbgz').Value;
       stringgrid2.Cells[5,i]:=aq1.Fields.fieldbyname('gwgz').Value;
       stringgrid2.Cells[6,i]:=aq1.Fields.fieldbyname('wcbz').Value;
       stringgrid2.Cells[7,i]:=aq1.Fields.fieldbyname('ywtc').Value;
       stringgrid2.Cells[8,i]:=aq1.Fields.fieldbyname('qqj').Value;
       stringgrid2.Cells[9,i]:=aq1.Fields.fieldbyname('yybt').Value;
       stringgrid2.Cells[10,i]:=aq1.Fields.fieldbyname('fwbt').Value;
       stringgrid2.Cells[11,i]:=aq1.Fields.fieldbyname('jbf').Value;
       stringgrid2.Cells[12,i]:=aq1.Fields.fieldbyname('ldbx').Value;
       stringgrid2.Cells[13,i]:=aq1.Fields.fieldbyname('grsds').Value;
       stringgrid2.Cells[14,i]:=aq1.Fields.fieldbyname('fk').Value;
       aq1.Next;
   end;
   end;
   end;
   end;
   end;  

end;

procedure TFRM_YGGZ.ToolButton1Click(Sender: TObject);
begin
with data do
begin
  aq1.Connection:=adoc1;
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.Add('update gzb set jbgz=:jbgz,gwgz=:gwgz,wcbz=:wcbz, '+
  'ywtc=:ywtc,qqj=:qqj,fwbt=:fwbt,yybt=:yybt,jbf=:jbf,ldbx=:ldbx,'+
  'grsds=:grsds,fk=:fk where bmbh=:bmbh and ygbh=:ygbh');
  aq1.Parameters.ParamByName('jbgz').value:=edit1.text;
  aq1.Parameters.ParamByName('gwgz').value:=edit2.text;
  aq1.Parameters.ParamByName('wcbz').value:=edit3.text;
  aq1.Parameters.ParamByName('ywtc').value:=edit4.text;
  aq1.Parameters.ParamByName('qqj').value:=edit5.text;
  aq1.Parameters.ParamByName('fwbt').value:=edit6.text;
  aq1.Parameters.ParamByName('yybt').value:=edit7.text;
  aq1.Parameters.ParamByName('jbf').value:=edit8.text;
  aq1.Parameters.ParamByName('ldbx').value:=edit9.text;
  aq1.Parameters.ParamByName('grsds').value:=edit10.text;
  aq1.Parameters.ParamByName('fk').value:=edit11.text;
  aq1.Parameters.ParamByName('bmbh').value:=stringgrid2.Cells[1,1];
  aq1.Parameters.ParamByName('ygbh').value:=stringgrid2.Cells[2,1];
  aq1.ExecSQL;
end;
end;

end.