hrm152_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Hrm152_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Wwintl, Db,
  Menus, Grids, ComCtrls, ExtCtrls, ToolWin, Mask,
  DBCtrls, StdCtrls, wwdbdatetimepicker, Buttons, Bas200_01,
  FR_Desgn, ADODB, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, ActnList,
  wwfltdlg, wwDialog, Wwlocate;

type
  THrm152_01Form = class(TBas200_01Form)
    Edit1: TEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    SpeedButton1: TSpeedButton;
    DBEdit2: TDBEdit;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TStringField;
    qryHrm150H150_003: TStringField;
    ADOQuery1H152_001: TIntegerField;
    ADOQuery1H152_002: TStringField;
    ADOQuery1H152_003: TDateTimeField;
    ADOQuery1H152_004: TDateTimeField;
    ADOQuery1H152_005: TFloatField;
    ADOQuery1H152_006: TStringField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    dxDBGrid1H150_002: TdxDBGridLookupColumn;
    dxDBGrid1H150_003: TdxDBGridLookupColumn;
    dxDBGrid1H152_002: TdxDBGridMaskColumn;
    dxDBGrid1H152_003: TdxDBGridDateColumn;
    dxDBGrid1H152_004: TdxDBGridDateColumn;
    dxDBGrid1H152_005: TdxDBGridMaskColumn;
    dxDBGrid1H152_006: TdxDBGridMaskColumn;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActSaveExecute(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure ActInsertExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm152_01Form: THrm152_01Form;

implementation

uses SYSDATA, HwSelData, CommFun;

{$R *.DFM}

procedure THrm152_01Form.SpeedButton1Click(Sender: TObject);
begin
  inherited;
//员工编号查询
  if not ActSave.Enabled then Exit;
  Edit1.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryHrm150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    Edit1.Text:=qryHrm150.FieldByName('H150_002').AsString;
    ADOQuery1.FieldByName('H152_001').AsString:=qryHrm150H150_001.AsString;
    ADOQuery1.FieldByName('H150_003').AsString:=qryHrm150H150_003.AsString;
  end;
end;

procedure THrm152_01Form.Edit1Exit(Sender: TObject);
begin
  inherited;
  if (not ActSave.Enabled) then Exit;
  if not (ADOQuery1.State in [dsInsert,dsEdit]) then Exit;
  if Trim(Edit1.Text)='' then
  begin
    ADOQuery1.FieldByName('H152_001').AsString:='';
    Exit;
  end;
  if qryHrm150.Locate('H150_002',Edit1.Text,[loCaseInsensitive]) then
  begin
    ADOQuery1.Edit;
    ADOQuery1.FieldByName('H152_001').AsString:=qryHrm150H150_001.AsString;
  end else
  begin
    ShowMsg('UMS10000042');  //无效的员工编号
    Edit1.SetFocus;
    Abort;
  end;
end;

procedure THrm152_01Form.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key=vk_F4 then SpeedButton1.Click;
end;

procedure THrm152_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM15201001');  //暂住证明细
  Label6.Caption:=GetDBString('HRM15201002');  //员工编号
  Label1.Caption:=GetDBString('HRM15201004');  //暂住证号
  Label2.Caption:=GetDBString('HRM15201005');  //起始日期
  Label3.Caption:=GetDBString('HRM15201006');  //结束日期
  Label4.Caption:=GetDBString('HRM15201007');  //办证费用
  Label5.Caption:=GetDBString('HRM15201008');  //备注
  ADOQuery1H150_002.DisplayLabel:=GetDBString('HRM15201002');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('HRM15201003');  //员工姓名
  ADOQuery1H152_002.DisplayLabel:=GetDBString('HRM15201004');  //暂住证号
  ADOQuery1H152_003.DisplayLabel:=GetDBString('HRM15201005');  //起始日期
  ADOQuery1H152_004.DisplayLabel:=GetDBString('HRM15201006');  //结束日期
  ADOQuery1H152_005.DisplayLabel:=GetDBString('HRM15201007');  //办证费用
  ADOQuery1H152_006.DisplayLabel:=GetDBString('HRM15201008');  //备注
  qryHrm150H150_002.DisplayLabel:=GetDBString('HRM15201002');  //员工编号
  qryHrm150H150_003.DisplayLabel:=GetDBString('HRM15201003');  //员工姓名
end;

procedure THrm152_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  qryHrm150.Open;
  //设置界面信息
  SetInterface;
end;

procedure THrm152_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryHrm150.Close;
  inherited;
end;

procedure THrm152_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='H150_002' then ParValue:=GetDBString('HRM15201002')  //员工编号
  else if ParName='H150_002' then ParValue:=GetDBString('HRM15201003')  //员工姓名
  else if ParName='H152_002' then ParValue:=GetDBString('HRM15201004')  //暂住证号
  else if ParName='H152_003' then ParValue:=GetDBString('HRM15201005')  //起始日期
  else if ParName='H152_004' then ParValue:=GetDBString('HRM15201006')  //结束日期
  else if ParName='H152_005' then ParValue:=GetDBString('HRM15201007')  //办证费用
  else if ParName='H152_006' then ParValue:=GetDBString('HRM15201008')  //备注
end;

procedure THrm152_01Form.ActSaveExecute(Sender: TObject);
begin
//保存
  if Trim(Edit1.Text)='' then
  begin
    ShowMsg('UMS10000071');  //员工编号不能为空
    Edit1.SetFocus;
    Abort;
  end;
  if Trim(DBEdit1.Text)='' then
  begin
    ShowMsg('UMS10000092');  //暂住证号不能为空
    DBEdit1.SetFocus;
    Abort;
  end;
  if Trim(wwDBDateTimePicker1.Text)='' then
  begin
    ShowMsg('UMS10000093');  //暂住证起始日期不能为空
    wwDBDateTimePicker1.SetFocus;
    Abort;
  end;
  if Trim(wwDBDateTimePicker2.Text)='' then
  begin
    ShowMsg('UMS10000094');  //暂住证结束日期不能为空
    wwDBDateTimePicker2.SetFocus;
    Abort;
  end;
  if wwDBDateTimePicker1.Date>wwDBDateTimePicker2.Date then
  begin
    ShowMsg('UMS10000044');  //起始日期不能大于结束日期
    wwDBDateTimePicker2.SetFocus;
    Abort;
  end;
  if ADOQuery1H152_005.AsString='' then
  begin
    ShowMsg('UMS10000095');  //办证费用不能为空
    DBEdit4.SetFocus;
    Abort;
  end;
  inherited;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('update HRM150 set H150_025=:ID where H150_001=:User');
  SYSDM.qryQuery.Parameters.ParamByName('ID').Value:=ADOQuery1H152_002.Value;
  SYSDM.qryQuery.Parameters.ParamByName('User').Value:=ADOQuery1H152_001.Value;
  SYSDM.qryQuery.ExecSQL;
end;

procedure THrm152_01Form.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  inherited;
  Edit1.Text:=ADOQuery1.FieldByName('H150_002').AsString;
end;

procedure THrm152_01Form.ActInsertExecute(Sender: TObject);
begin
  inherited;
  Edit1.Text:='';
  Edit1.SetFocus;
end;

initialization
  RegisterClass(THrm152_01Form);

finalization
  UnRegisterClass(THrm152_01Form);

end.