pfm_selyuangong.pas

POS收银系统

unit pfm_selyuangong;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrls, Buttons;

type
  Tfm_selyuangong = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    ygbm:string;
    { Public declarations }
  end;

var
  fm_selyuangong: Tfm_selyuangong;

implementation

{$R *.DFM}

procedure Tfm_selyuangong.BitBtn1Click(Sender: TObject);
begin
    if not query1.Eof then
    begin
        ygbm:=query1.fieldbyname('ygbm').asstring;
        modalresult:=mrOK;
    end;
    

end;

procedure Tfm_selyuangong.DBGrid1DblClick(Sender: TObject);
begin
     BitBtn1.Click;
end;

end.