rl_yuefen_unit.pas

来自「通用人力资源系统,分类可以自设定 可以熟练掌握DELPHI语言」· PAS 代码 · 共 47 行

unit rl_yuefen_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGridEh, DB, DBTables, ComCtrls;

type
  Trl_yuefen = class(TForm)
    StatusBar1: TStatusBar;
    tb_yuefen: TTable;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rl_yuefen: Trl_yuefen;

implementation

{$R *.dfm}

procedure Trl_yuefen.Button1Click(Sender: TObject);
begin
  with tb_yuefen do
    if State = dsEdit then
      Post;
  tb_yuefen.Close;
  close;
end;

procedure Trl_yuefen.Button2Click(Sender: TObject);
begin
  close;
end;

end.