【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“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.