yggl_gzjl_tcform.~pas

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

unit YGGL_GZJL_TCFORM;

interface

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

type
  TYGGL_GZJL_TC = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YGGL_GZJL_TC: TYGGL_GZJL_TC;

implementation

uses YGGL_GZJLFORM;

{$R *.DFM}

procedure TYGGL_GZJL_TC.BitBtn2Click(Sender: TObject);
begin
YGGL_GZJL.ADOQuery2.Cancel;
close;
end;

procedure TYGGL_GZJL_TC.BitBtn1Click(Sender: TObject);
begin
YGGL_GZJL.ADOQuery2.post;
close;
end;

procedure TYGGL_GZJL_TC.DBEdit1Enter(Sender: TObject);
begin
tdbedit(sender).color:=claqua;
end;

procedure TYGGL_GZJL_TC.DBEdit1Exit(Sender: TObject);
begin
tdbedit(sender).color:=clwindow;
end;

end.