cghzedit.pas

一个仓库管理中的子系统－－采购子系统

unit cghzedit;

interface

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

type
  TcghzeditForm = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    qtEdit: TEdit;
    Label3: TLabel;
    bzEdit: TEdit;
    StatusBar1: TStatusBar;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
  sqbidstr:string;
  cpbhstr:string;
    { Public declarations }
  end;

var
  cghzeditForm: TcghzeditForm;

implementation

uses Datamodule;

{$R *.DFM}



procedure TcghzeditForm.BitBtn2Click(Sender: TObject);
begin
   if (qtedit.text='') or (bzEdit.Text='')then
   begin
   messageDlg('请您输入数据内容！',mtInformation,[mbOK],0);
   exit;
   end;
   with datamodule1.PublicQuery1 do
   begin
   requestLive:=True;
   sql.Clear;
   sql.Add('select * From dbo.a_cghzglb');
   sql.Add('where sqbid='+''''+sqbidstr+''''+' and cpbh='+''''+cpbhstr+'''');
   prepare;
   open;
   edit;
   FieldByName('qt').asstring:=qtEdit.Text;
   FieldByname('bz').asstring:=bzEdit.Text;
   post;
   end;
   messageDlg('记录已经成功写入数据库！',mtInformation,[mbOK],0);
   close;
end;

procedure TcghzeditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   datamodule1.PublicQuery1.RequestLive:=false;
   datamodule1.PublicQuery1.Close;
end;

end.