【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“jhlr.pas”一文，供大家参考学习

    unit jhlr;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;
    
    type
      TForm3 = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit5: TEdit;
        Edit6: TEdit;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        ADOQuery1: TADOQuery;
        ADOQuery2: TADOQuery;
        procedure Edit5Change(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure DBGrid1CellClick(Column: TColumn);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
        procedure Edit2KeyPress(Sender: TObject; var Key: Char);
        procedure Edit3KeyPress(Sender: TObject; var Key: Char);
        procedure Edit4KeyPress(Sender: TObject; var Key: Char);
        procedure Edit5KeyPress(Sender: TObject; var Key: Char);
      private
        { Private declarations }
        procedure clearedit;
      public
        { Public declarations }
      end;
    
    var
      Form3: TForm3;
    
    implementation
    
    uses Ustock;
    
    {$R *.dfm}
    
    procedure TForm3.clearedit;
    begin
      edit1.Text:='';
      edit2.Text:='';
      edit3.Text:='';
      edit4.Text:='';
      edit5.Text:='';
      edit6.Text:='';
    end;
    procedure TForm3.Edit5Change(Sender: TObject);
    begin
      if edit5.Text<>'' then
      begin
        button1.SetFocus;
        if edit4.Text<>'' then
          edit6.Text:=floattostr(strtofloat(edit4.Text)*strtofloat(edit5.Text));
      end;
    end;
    
    procedure TForm3.Button1Click(Sender: TObject);
    begin
      with adoquery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert into stockrecord values(:chmc,:cpbh,'
                   +':cpmc,:jhdz,:jhrq,:jg,:sl,:je,:sgy)');
        Parameters.ParamByName('chmc').Value:=
                                form1.StatusBar1.Panels[0].Text;
        Parameters.ParamByName('cpbh').Value:=edit1.Text;
        Parameters.ParamByName('cpmc').Value:=edit2.Text;
        Parameters.ParamByName('jhdz').Value:=edit3.Text;
        Parameters.ParamByName('jhrq').Value:=date();
        Parameters.ParamByName('jg').Value:=strtofloat(edit4.Text);
        Parameters.ParamByName('sl').Value:=strtoint(edit5.Text);
        Parameters.ParamByName('je').Value:=strtofloat(edit6.Text);
        Parameters.ParamByName('sgy').Value:=
                                form1.StatusBar1.Panels[2].Text;
        ExecSQL;
      end;
      clearedit;
      adoquery2.Close;
      adoquery2.Open;
    end;
    
    procedure TForm3.DBGrid1CellClick(Column: TColumn);
    begin
      edit1.Text:=dbgrid1.Fields[0].AsString;
      edit2.Text:=dbgrid1.Fields[1].AsString;
      edit3.Text:=dbgrid1.Fields[2].AsString;
      edit4.Text:=floattostr(dbgrid1.Fields[4].AsCurrency);
      edit5.Text:=floattostr(dbgrid1.Fields[5].AsInteger);
      edit6.Text:=floattostr(dbgrid1.Fields[6].AsCurrency);
      button2.Enabled:=true;
      button2.SetFocus;
    end;
    
    procedure TForm3.Button2Click(Sender: TObject);
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('delete from stockrecord '
               +'where 产品编号=:bh and 进货日期=:rq');
      adoquery1.Parameters.ParamByName('bh').Value:=edit1.Text;
      adoquery1.Parameters.ParamByName('rq').Value:=dbgrid1.Fields[3].AsString;
      adoquery1.ExecSQL;
      clearedit;
      button2.Enabled:=false;
      adoquery2.Close;
      adoquery2.Open;
    end;
    
    procedure TForm3.Button3Click(Sender: TObject);
    begin
      close;
    end;
    
    procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        edit2.SetFocus;
    end;
    
    procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        edit3.SetFocus;
    end;
    
    procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        edit4.SetFocus;
    end;
    
    procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        if edit4.Text<>'' then
        begin
          edit5.SetFocus;
          if edit5.Text<>'' then
            edit6.Text:=floattostr(strtofloat(edit4.Text)*strtofloat(edit5.Text));
        end;
    end;
    
    procedure TForm3.Edit5KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        button1.SetFocus;
    end;
    
    end.