ftrainresult.~pas

来自「一个基于delphi开发的人力资源管理的系统源码。」· ~PAS 代码 · 共 52 行

unit Ftrainresult;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox;

type
  Ttrainresult = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    cxLookupComboBox1: TcxLookupComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  trainresult: Ttrainresult;

implementation

uses Fmain;
{$R *.dfm}

procedure Ttrainresult.Button1Click(Sender: TObject);
begin
  close
end;

procedure Ttrainresult.Button2Click(Sender: TObject);
begin
  if self.cxLookupComboBox1.Text='' then
    begin
      MessageBox(handle,'请选择一项培训课目！','错误',MB_ICONERROR or MB_OK);
      exit;
    end;
  main.r_staffteachid.Append;
  main.r_staffteachid.FieldByName('teachid').AsString:=self.cxLookupComboBox1.EditValue;
  main.r_staffteachid.Post;
  self.Close;
end;

end.