bjpx.pas

人力资源管理系统（Delphi程序）大家学习共勉

unit bjpx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, ComCtrls,
  HumanResourceControls, Grids, DBGrids, DB, ADODB;

type
  TFrmBjpx = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBDTPKsrq: TDBDateTimePicker;
    DBDTPJsrq: TDBDateTimePicker;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSet1PXXX_GH: TWideStringField;
    ADODataSet1PXXX_PXMC: TWideStringField;
    ADODataSet1PXXX_PXNR: TWideStringField;
    ADODataSet1PXXX_PXXZ: TWideStringField;
    ADODataSet1PXXX_KSSJ: TDateTimeField;
    ADODataSet1PXXX_JSSJ: TDateTimeField;
    ADODataSet1PXXX_PXDD: TWideStringField;
    ADODataSet1PXXX_ZBDW: TWideStringField;
    ADODataSet1PXXX_WCQK: TWideStringField;
    ADODataSet1PXXX_ZSHM: TWideStringField;
    DBEdtPxmc: TDBEdit;
    DBEdtPxnr: TDBEdit;
    DBEdtPxxz: TDBEdit;
    Label5: TLabel;
    DBEdtPxdd: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdtZbdw: TDBEdit;
    Label8: TLabel;
    DBEdtWcqk: TDBEdit;
    Label9: TLabel;
    DBEdtZshm: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure ADODataSet1NewRecord(DataSet: TDataSet);
    procedure ADODataSet1BeforePost(DataSet: TDataSet);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure ADODataSet1BeforeInsert(DataSet: TDataSet);
  private
    { Private declarations }
    FGh:string;
    procedure setGh(value:string);


  public
    { Public declarations }
    property Gh:string read FGh write setGh ;

  end;

var
  FrmBjpx: TFrmBjpx;

implementation
uses
  dm;

{$R *.dfm}

procedure TFrmBjpx.setGh(value:string);
begin
  FGh := value;
  if trim(FGh) = '' then //工号为空
  begin
    ADODataSet1.Active := false;
  end
  else
  begin
    //下面查找是否有工号为FGh的员工
    ADODataSet2.Active := false;
    ADODataSet2.CommandText := 'select * from jbzl where trim(JBZL_GH)' +
          ' = ''' + trim(FGh) + '''';
    ADODataSet2.Active := true;
    if ADODataSet2.IsEmpty then //此员工不存在
    begin
      ShowMessage('未找到工号为' + FGh + '的员工');
      ADODataSet1.Active := false;
    end
    else   //存在此员工
    begin
      Caption := '编辑培训信息:' +
        ADODataSet2.fieldbyName('JBZL_XM').AsString ; 
      ADODataSet1.Active := false;
      ADODataSet1.CommandText := 'select * from pxxx where trim(pxxx_Gh)' +
            ' = ''' + trim(FGh) + ''' order by pxxx_KSSJ';
      ADODataSet1.Active := true;
    end;// if ADODataSet1.IsEmpty
  end; // if trim(FGh) <> ''
end;

procedure TFrmBjpx.FormCreate(Sender: TObject);
begin
  DBDTPKsrq.MaxDate := now;
  DBDTPJsrq.MaxDate := now;
end;

procedure TFrmBjpx.ADODataSet1NewRecord(DataSet: TDataSet);
begin
  ADODataSet1.Fields.FieldByName('PXXX_GH').Value := Gh;
end;

procedure TFrmBjpx.ADODataSet1BeforePost(DataSet: TDataSet);
begin
  if trim(DBEdtPxmc.Text)='' then
  begin
    ShowMessage('请输入培训名称！');
    Abort ;
    DBEdtPxmc.SetFocus ;
    exit;
  end;

  if trim(DBEdtPxnr.Text)='' then
  begin
    ShowMessage('请输入培训名称！');
    Abort ;
    DBEdtPxnr.SetFocus ;
    exit;
  end;

  if trim(DBEdtPxxz.Text)='' then
  begin
    ShowMessage('请输入培训性质！');
    Abort ;
    DBEdtPxxz.SetFocus ;
    exit;
  end;

  if ADODataSet1.FieldByName('PXXX_KSSJ').Value = Null then
  begin
    ShowMessage('请输入开始日期！');
    Abort ;
    DBDTPKsrq.SetFocus ;
    exit;
  end;

  if ADODataSet1.FieldByName('PXXX_JSSJ').Value = Null then
  begin
    ShowMessage('请输入结束日期！');
    Abort ;
    DBDTPJsrq.SetFocus ;
    exit;
  end;

  if (DBDTPJsrq.Checked) and (DBDTPJsrq.Date < DBDTPKsrq.Date) then
  begin
    ShowMessage('结束日期必须晚于开始日期！');
    Abort ;
    DBDTPJsrq.SetFocus ;
    exit;
  end;

  if trim(DBEdtZbdw.Text) = '' then
  begin
    ShowMessage('请输入主办单位！');
    Abort ;
    DBEdtZbdw.SetFocus ;
    exit;
  end;

  if trim(DBEdtPxdd.Text) = '' then
  begin
    ShowMessage('请输入培训地点！');
    Abort ;
    DBEdtPxdd.SetFocus ;
    exit;
  end;


end;

procedure TFrmBjpx.DBGrid1TitleClick(Column: TColumn);
var
  tempSortStr,FN:string;
begin
  FN := Column.FieldName;
  tempSortStr := ADODataSet1.Sort ;
  if tempSortStr = (FN + ' ASC') then
  begin
      ADODataSet1.Sort := FN + ' DESC';
  end
  else
  begin
    ADODataSet1.Sort := FN + ' ASC';
  end;
end;

procedure TFrmBjpx.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmBjpx.ADODataSet1BeforeInsert(DataSet: TDataSet);
begin
  DBDTPKsrq.DateTime := now;
  DBDTPJsrq.DateTime := now;  
end;

end.