bhgsqbedit.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 59 行

unit bhgsqbedit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TbhgsqbeditForm = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    lyEdit: TEdit;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    StatusBar1: TStatusBar;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  sqbidcode:string;
    { Public declarations }
  end;

var
  bhgsqbeditForm: TbhgsqbeditForm;

implementation

uses Datamodule;

{$R *.DFM}

procedure TbhgsqbeditForm.BitBtn2Click(Sender: TObject);
begin
    with datamodule1.PublicQuery1 do
    begin
    requestlive:=true;
    sql.Clear;
    sql.Add('select * From dbo.a_bhgsqxb');
    sql.Add('where sqbid='+''''+sqbidCode+'''');
    prepare;
    open;
    fieldByname('ly').asstring:=lyedit.Text;
    post;
    close;
    end;
end;

procedure TbhgsqbeditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    datamodule1.PublicQuery1.RequestLive:=False;
end;

end.