rydl.pas

酒店资源管理的软件

unit rydl;

interface

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

type
  TfrmRydl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    DTPLksj: TDateTimePicker;
    EdtLkyy: TEdit;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRydl: TfrmRydl;

implementation

uses DM, grzl;

{$R *.dfm}

procedure TfrmRydl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree ;
end;

procedure TfrmRydl.Button3Click(Sender: TObject);
begin
  frmGrzl := TfrmGrzl.Create(nil);
  frmGrzl.FormStyle := fsNormal ;
  frmGrzl.Visible := False ;
  frmGrzl.ShowModal ;
end;

procedure TfrmRydl.Button2Click(Sender: TObject);
begin
  Close ;
end;

procedure TfrmRydl.Button1Click(Sender: TObject);
var
  strLkyy,strSQL:String ;
begin
  with DataModule1.ADODataSetJbzl do
  begin
    if trim(EdtLkyy.Text)='' then  //未输入离开原因
    begin
      strLkyy :=  '未输入';
    end
    else
    begin
      strLkyy :=  EdtLkyy.Text;
    end;
    if MessageDlg('是否提交调离记录并终止所有的兼职?'+ #13#10 +
              '工号:' + FieldByName('JBZL_GH').AsString + #13#10 +
              '姓名:' + FieldByName('JBZL_Xm').AsString + #13#10 +
              '离开时间:' + DateToStr(DTPLksj.Date) + #13#10 +
              '离开原因:' + strLkyy ,mtWarning ,[mbYes,mbNo],MB_YESNO)
              = mrYes then                  //用户确认提交记录
    begin
      // 向基本资料中添加离开信息
      if DTPLksj.Date< FieldByName('JBZL_JBDWRQ').AsDateTime  then
      begin
        ShowMessage('离开本单位时间早于进本单位时间！');
        exit;
      end;
      try
        Edit;
        FieldByName('JBZL_Lkbdwsj').Value := DateToStr(DTPLksj.Date);
        FieldByName('JBZL_LKBDWYY').Value := EdtLkyy.Text;
        Post;
      except
        FieldByName('JBZL_Lkbdwsj').Value := Null ;
        FieldByName('JBZL_LKBDWYY').Value := Null ;
      end;
      Requery([]);
      //向兼职信息表中添加离开信息
      strSQL :=  'update jzxx set jzxx_zzsj = #' +
                DateToStr(DTPLksj.Date) +
                '# where trim(jzxx_gh) =''' +
                FieldByName('JBZL_GH').AsString + '''';
      ADOQuery1.SQL.Clear ;
      ADOQuery1.SQL.Add(strSQL);
      ADOQuery1.ExecSQL ;
    end;
  end;
end;

procedure TfrmRydl.FormCreate(Sender: TObject);
begin
  DTPLksj.MaxDate := now;
end;

end.