dm.pas

酒店资源管理的软件

unit DM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOConnection: TADOConnection;
    ADODataSetGwBz: TADODataSet;
    DataSourceSzGwbz: TDataSource;
    ADODataSetXbdm: TADODataSet;
    ADODataSetBmdm: TADODataSet;
    ADODataSetGwdm: TADODataSet;
    ADODataSetHyzkdm: TADODataSet;
    ADODataSetJszcdm: TADODataSet;
    ADODataSetXldm: TADODataSet;
    DataSourceBmdm: TDataSource;
    DataSourceGwdm: TDataSource;
    DataSourceXbdm: TDataSource;
    DataSourceHyzkdm: TDataSource;
    DataSourceJszcdm: TDataSource;
    DataSourceXldm: TDataSource;
    ADODataSetGwBzGWBZ_ID: TAutoIncField;
    ADODataSetGwBzGWBZ_BMDM: TWideStringField;
    ADODataSetGwBzGWBZ_GWDM: TWideStringField;
    ADODataSetGwBzGWBZ_RS: TFloatField;
    ADODataSetGwBzGWBZ_BMMC: TStringField;
    ADODataSetGwBzGWBZ_GWMC: TStringField;
    ADODataSetJbzl: TADODataSet;
    DataSourceJbzl: TDataSource;
    ADODataSetJbzlJBZL_GH: TWideStringField;
    ADODataSetJbzlJBZL_XM: TWideStringField;
    ADODataSetJbzlJBZL_CYM: TWideStringField;
    ADODataSetJbzlJBZL_XB: TWideStringField;
    ADODataSetJbzlJBZL_CSRQ: TDateTimeField;
    ADODataSetJbzlJBZL_SFZH: TWideStringField;
    ADODataSetJbzlJBZL_JG: TWideStringField;
    ADODataSetJbzlJBZL_CJHGZSJ: TDateTimeField;
    ADODataSetJbzlJBZL_JBDWRQ: TDateTimeField;
    ADODataSetJbzlJBZL_JTZZ: TWideStringField;
    ADODataSetJbzlJBZL_BMDM: TWideStringField;
    ADODataSetJbzlJBZL_GWDM: TWideStringField;
    ADODataSetJbzlJBZL_HYZKDM: TWideStringField;
    ADODataSetJbzlJBZL_XLDM: TWideStringField;
    ADODataSetJbzlJBZL_JSZCDM: TWideStringField;
    ADODataSetJbzlJBZL_ZP: TBlobField;
    ADODataSetJbzlJBZL_LKBDWSJ: TDateTimeField;
    ADODataSetJbzlJBZL_LKBDWYY: TWideStringField;
    ADODataSetJbzlJBZL_XBMC: TWideStringField;
    ADODataSetJbzlJBZL_BMMC: TStringField;
    ADODataSetJbzlJBZL_GWMC: TStringField;
    ADODataSetJbzlJBZL_HYZK: TStringField;
    ADODataSetJbzlJBZL_XL: TStringField;
    ADODataSetJbzlJBZL_JSZC: TStringField;
    ADODataSetGwBzGWBZ_BH: TWideStringField;
    ADODataSetGwBzGWBZ_YQ: TMemoField;
    DataSourceSzdmb: TDataSource;
    procedure ADODataSetJbzlBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation
uses
  Dialogs;

{$R *.dfm}

procedure TDataModule1.ADODataSetJbzlBeforePost(DataSet: TDataSet);
begin
  with ADODataSetJbzl do
  begin
    if trim(FieldByName('JBZL_GH').AsString ) = '' then  //工号为空
    begin
      ShowMessage('请输入工号！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_XM').AsString ) = '' then //姓名为空
    begin
      ShowMessage('请输入姓名！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_XB').AsString ) = '' then //性别为空
    begin
      ShowMessage('请选择性别！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_CSRQ').AsString ) = '' then  //出生日期为空
    begin
      ShowMessage('请输入出生日期！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_SFZH').AsString ) = '' then //身份证号为空
    begin
      ShowMessage('请输入身份证号！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_CJGZSJ').AsString ) = '' then//参加工作日期为空
    begin
      ShowMessage('请输入参加工作日期！');
      Abort;
      exit;
    end;

    if FieldByName('JBZL_CSRQ').AsDateTime  >
      FieldByName('JBZL_CJGZSJ').AsDateTime  then    //出生日期晚于参加工作日期
    begin
      ShowMessage('出生日期晚于参加工作时间！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_JBDWRQ').AsString ) = '' then //进入单位日期为空
    begin
      ShowMessage('请输入进入本单位日期！');
      Abort;
      exit;
    end;

    if FieldByName('JBZL_JBDWRQ').AsDateTime  <
      FieldByName('JBZL_CJGZSJ').AsDateTime  then //参加工作日期晚于进入本单位日期
    begin
      ShowMessage('参加工作时间晚于进本单位时间！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_BMDM').AsString ) = '' then//未选择部门
    begin
      ShowMessage('请选择部门！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_GWDM').AsString ) = '' then //未选择岗位
    begin
      ShowMessage('请选择岗位！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_HYZKDM').AsString ) = '' then //未选择婚姻状况
    begin
      ShowMessage('请选择婚姻状况！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_XLDM').AsString ) = '' then //未选择学历
    begin
      ShowMessage('请选择学历！');
      Abort;
      exit;
    end;

    if trim(FieldByName('JBZL_JSZCDM').AsString ) = '' then  //未选择技术职称
    begin
      ShowMessage('请选择技术职称！');
      Abort;
      exit;
    end;

{    if FieldByName('JBZL_LKBDWSJ').AsDateTime  <
      FieldByName('JBZL_JBDWRQ').AsDateTime  then
    begin
      ShowMessage('离开本单位时间早于进本单位时间！');
      Abort;
      exit;
    end;}
  end;

end;

end.