bjjl.pas

酒店资源管理的软件

unit bjjl;

interface

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

type
  TFrmBjjl = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBDTPKsrq: TDBDateTimePicker;
    DBDTPJsrq: TDBDateTimePicker;
    DBEdtDw: TDBEdit;
    DBEdtBm: TDBEdit;
    DBEdtSm: TDBEdit;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet2: TADODataSet;
    ADODataSet1JLXX_GH: TWideStringField;
    ADODataSet1JLXX_QSSJ: TDateTimeField;
    ADODataSet1JLXX_JZSJ: TDateTimeField;
    ADODataSet1JLXX_SZDW: TWideStringField;
    ADODataSet1JLXX_SZBM: TWideStringField;
    ADODataSet1JLXX_SM: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure ADODataSet1NewRecord(DataSet: TDataSet);
    procedure ADODataSet1BeforePost(DataSet: TDataSet);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FGh:string;
    procedure setGh(value:string);
  public
    { Public declarations }
    property Gh:string read FGh write setGh ;
  end;

var
  FrmBjjl: TFrmBjjl;

implementation
uses
  dm;

{$R *.dfm}

procedure TFrmBjjl.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 jlxx where trim(Jlxx_Gh)' +
            ' = ''' + trim(FGh) + ''' order by Jlxx_QSSJ';
      ADODataSet1.Active := true;
    end;// if ADODataSet1.IsEmpty
  end; // if trim(FGh) <> '' 
end;

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

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

procedure TFrmBjjl.ADODataSet1BeforePost(DataSet: TDataSet);
begin
  if not DBDTPKsrq.Checked then
  begin
    ShowMessage('必须输入开始日期！');
    Abort ;
    DBDTPKsrq.SetFocus ;
    exit;
  end;

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

  if trim(DBEdtDw.Text) = '' then
  begin
    ShowMessage('必须输入所在单位！');
    Abort ;
    DBEdtDw.SetFocus ;
    exit;
  end;

end;

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

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

end.