ywgl_sbwx_fyform.pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit YWGL_SBWX_FYFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, DBCtrls;

type
  TYWGL_SBWX_FY = class(TForm)
    DBEdit1: TDBEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_SBWX_FY: TYWGL_SBWX_FY;

implementation

uses YWGL_SBWXFORM;

{$R *.DFM}

procedure TYWGL_SBWX_FY.BitBtn1Click(Sender: TObject);
begin
if (dbedit1.text='')  then begin
    showmessage('费用不能为空.');
    dbedit1.setfocus;
    exit;
end;
YWGL_SBWX.ADOQuery2.Post;
close;
end;

end.