ser510_02.pas.svn-base

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

  else if ParName='S500_012' then ParValue:=qrySer510S500_012.DisplayLabel //部门名称                                          
  else if ParName='S500_013' then ParValue:=qrySer510S500_013.DisplayLabel //职务名称                                          
  else if ParName='S500_014' then ParValue:=qrySer510S500_014.DisplayLabel //联系电话                                          
  else if ParName='S500_033' then ParValue:=qrySer510S500_033.DisplayLabel //来电内容                                          
  else if ParName='S510_010' then ParValue:=qrySer510S510_010.DisplayLabel //制单日期                                          
  else if ParName='S510_011' then ParValue:=qrySer510S510_011.DisplayLabel //制单人员                                          
  else if ParName='S510_012' then ParValue:=qrySer510S510_012.DisplayLabel //修改日期                                          
  else if ParName='S510_013' then ParValue:=qrySer510S510_013.DisplayLabel //修改人员
  else if ParName='S510_009' then ParValue:=qrySer510S510_011.DisplayLabel //调查内容
  else if ParName='H150_002' then ParValue:=qrySer510S510_012.DisplayLabel //员工编号
  else if ParName='H150_003' then ParValue:=qrySer510S510_013.DisplayLabel //员工姓名
end;

procedure TSer510_02Form.ActExitExecute(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

procedure TSer510_02Form.qrySer510AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if qrySer510.State in [dsInsert,dsEdit] then Exit;
  if qrySer510.IsEmpty then Exit;
  edtCode.Text:=qrySer510.FieldByName('S510_001').AsString;
  edtCallCode.Text:=qrySer510.FieldByName('S510_002').AsString;
  AOldCallCode:=edtCallCode.Text;
  edtCallName.Text:=qrySer510.FieldByName('S500_002').AsString;
  edtDate.Text:=qrySer510.FieldByName('S500_007').AsString;
  edtBillNo.Text:=qrySer510.FieldByName('S500_016').AsString;
  edtAppelater.Text:=qrySer510.FieldByName('H150_002').AsString;
  edtAppelateName.Text:=qrySer510.FieldByName('H150_003').AsString;
  edtCust.Text:=qrySer510.FieldByName('O150_002').AsString;
  edtCustName.Text:=qrySer510.FieldByName('O150_003').AsString;
  edtPhone.Text:=qrySer510.FieldByName('O150_005').AsString;
  edtAddress.Text:=qrySer510.FieldByName('O150_012').AsString;
  edtFax.Text:=qrySer510.FieldByName('O150_006').AsString;
  edtItem.Text:=qrySer510.FieldByName('I150_002').AsString;
  edtItemName.Text:=qrySer510.FieldByName('I150_003').AsString;
  edtMacNo.Text:=qrySer510.FieldByName('S500_019').AsString;
  edtCallPerson.Text:=qrySer510.FieldByName('S500_011').AsString;
  edtDept.Text:=qrySer510.FieldByName('S500_012').AsString;
  edtPost.Text:=qrySer510.FieldByName('S500_013').AsString;
  edtTelNo.Text:=qrySer510.FieldByName('S500_014').AsString;
  memDetails.Text:=qrySer510.FieldByName('S500_033').AsString;  

  edtRepDate.Text:=qrySer510.FieldByName('S510_003').AsString;
  edtPerson.Text:=qrySer510.FieldByName('S510_005').AsString;
  edtDept.Text:=qrySer510.FieldByName('S510_006').AsString;
  edtPosit.Text:=qrySer510.FieldByName('S510_007').AsString;
  edtContact.Text:=qrySer510.FieldByName('S510_008').AsString;
  memReport.Text:=qrySer510.FieldByName('S510_009').AsString;
  edtCreateDate.Text:=qrySer510.FieldByName('S510_010').AsString;
  edtCreateBy.Text:=qrySer510.FieldByName('S510_011').AsString;
  edtUpdateDate.Text:=qrySer510.FieldByName('S510_012').AsString;
  edtUpdateBy.Text:=qrySer510.FieldByName('S510_013').AsString;

  if not Active then Exit;
  if ActSave.Enabled then Exit;
  ActNext.Enabled:=not qrySer510.Eof;
  ActLast.Enabled:=not qrySer510.Eof;
  ActFirst.Enabled:=not qrySer510.Bof;
  ActPrior.Enabled:=not qrySer510.Bof;
end;

procedure TSer510_02Form.SaveData;
var
  ADate:TDateTime;
  AAppelater:Integer;
begin
//确定(&O)
  if edtCode.Enabled then
  begin
    if trim(edtCode.Text)='' then
    begin
      ShowMsg('UMS10000371');  //调查单号不能为空
      edtCode.SetFocus;
      Abort;
    end;
    if IsExists('select 1 from SER510 where S510_001='+''''+edtCode.Text+'''') then
    begin
      ShowMsg('UMS10000372');  //调查单号已存在，请重新输入
      edtCode.SetFocus;
      Abort;
    end;
  end;
  if not qrySer500.Locate('S500_001',edtCallCode.Text,[]) then
  begin
    ShowMsg('UMS10000373');  //无效的来电编号，请重新输入
    edtCallCode.SetFocus;
    Abort;
  end;
  if not qryHrm150.Locate('H150_002',edtAppelater.Text,[]) then
  begin
    ShowMsg('UMS10000374');  //无效的调查人员编号，请重新输入
    edtAppelater.SetFocus;
    Abort;
  end;
  AAppelater:=qryHrm150.FieldByName('H150_001').Value;
  if trim(edtPerson.Text)='' then
  begin
    ShowMsg('UMS10000396');  //受调查人员不能为空
    edtPerson.SetFocus;
    Abort;
  end;
  if trim(edtRepDate.Text)='' then
  begin
    ShowMsg('UMS10000397');  //调查日期不能为空
    edtPerson.SetFocus;
    Abort;
  end;

  if AMode='ADD' then
  begin
    qrySer510.Insert;
    qrySer510.FieldByName('S510_010').AsString:=edtCreateDate.Text;  //制单日期
    qrySer510.FieldByName('S510_011').AsString:=edtCreateBy.Text;  //制单人员
    qrySer510.FieldByName('S510_012').AsString:=edtUpdateDate.Text;  //修改日期
    qrySer510.FieldByName('S510_013').AsString:=edtUpdateBy.Text;  //修改人员
  end else
  begin
    ADate:=GetServerDate;
    qrySer510.Edit;
    qrySer510.FieldByName('S510_012').Value:=ADate;  //修改日期
    qrySer510.FieldByName('S510_013').Value:=AUserName;  //修改人员
  end;
  qrySer510.FieldByName('S510_002').Value:=edtCallCode.Text;  //来电编号
  qrySer510.FieldByName('S510_003').Value:=edtRepDate.Date;  //调查日期
  qrySer510.FieldByName('S510_004').Value:=AAppelater;  //调查人员
  qrySer510.FieldByName('S510_005').Value:=edtPerson.Text;  //受调查人
  qrySer510.FieldByName('S510_006').Value:=edtDeptName.Text;  //部门名称
  qrySer510.FieldByName('S510_007').Value:=edtPosit.Text;  //职位名称
  qrySer510.FieldByName('S510_008').Value:=edtContact.Text;  //联系电话
  qrySer510.FieldByName('S510_009').Value:=memReport.Text;  //调查内容
  try
    if AMode='ADD' then
    begin
      if not edtCode.Enabled then edtCode.Text:=GetAutoCode('SER510');
      qrySer510.FieldByName('S510_001').Value:=edtCode.Text;  //调查单号
    end;
    qrySer510.Post;
    //更新来电记录信息(来电状态)
    UpdateSolution(edtCode.Text);
    //当修改来电编号，则同时修改原来电记录
    if (AOldCallCode<>'') and (AOldCallCode<>edtCode.Text) then UpdateSolution(AOldCallCode);
    SetButtonState(False);
    ActRefresh.Execute;
    qrySer510AfterScroll(qrySer510);

    if AMode='ADD' then
    begin
      if ShowDialog('['+edtCode.Text+'] '+GetDBString('UMS10000309'),1)=IDYES then  //记录保存成功，是否继续增加新记录？
      begin
        ActInsert.Execute;
      end;
    end;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
end;

procedure TSer510_02Form.qrySer510CalcFields(DataSet: TDataSet);
var
  ACustNo,AItemNo:Integer;
  AMacNo:string;
  ACustomerInfo:TCustomerInfo;
begin
  inherited;
  ACustNo:=qrySer510O150_001.Value;
  AItemNo:=0;
  AMacNo:='';
  GetCustomerInfo(ACustNo,AItemNo,AMacNo,ACustomerInfo);
  qrySer510O150_005.Value:=ACustomerInfo.CustPhone;
  qrySer510O150_006.Value:=ACustomerInfo.CustFax;
  qrySer510O150_012.Value:=ACustomerInfo.CustAddress;
end;

procedure TSer510_02Form.sbCallCodeClick(Sender: TObject);
var
  ACustNo,AItemNo:Integer;
  AMacNo:string;
  ACustomerInfo:TCustomerInfo;
begin
  inherited;
//来电编号
  if not edtCallCode.Focused then edtCallCode.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qrySer500,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    if qrySer500.IsEmpty then Exit;
    edtCallCode.Text:=qrySer500.FieldByName('S500_001').AsString;
    edtCallName.Text:=qrySer500.FieldByName('S500_002').AsString;
    edtDate.Text:=qrySer500.FieldByName('S500_007').AsString;
    edtBillNo.Text:=qrySer500.FieldByName('S500_016').AsString;
    edtCust.Text:=qrySer500.FieldByName('O150_002').AsString;
    edtCustName.Text:=qrySer500.FieldByName('O150_003').AsString;
    edtItem.Text:=qrySer500.FieldByName('I150_002').AsString;
    edtItemName.Text:=qrySer500.FieldByName('I150_003').AsString;
    edtMacNo.Text:=qrySer500.FieldByName('S500_019').AsString;
    edtCallPerson.Text:=qrySer500.FieldByName('S500_011').AsString;
    edtDept.Text:=qrySer500.FieldByName('S500_012').AsString;
    edtPost.Text:=qrySer500.FieldByName('S500_013').AsString;
    edtTelNo.Text:=qrySer500.FieldByName('S500_014').AsString;
    memDetails.Text:=qrySer500.FieldByName('S500_033').AsString;
    ACustNo:=qrySer500.FieldByName('O150_001').AsInteger;
    AItemNo:=0;
    AMacNo:='';
    GetCustomerInfo(ACustNo,AItemNo,AMacNo,ACustomerInfo);
    edtPhone.Text:=ACustomerInfo.CustPhone;
    edtFax.Text:=ACustomerInfo.CustFax;
    edtAddress.Text:=ACustomerInfo.CustAddress;
  end;
end;

procedure TSer510_02Form.edtCallCodeExit(Sender: TObject);
var
  ACustNo,AItemNo:Integer;
  AMacNo:string;
  ACustomerInfo:TCustomerInfo;
begin
  inherited;
//来电编号
  if trim(edtCallCode.Text)='' then Exit;
  if qrySer500.Locate('S500_001',edtCallCode.Text,[]) then
  begin
    edtCallCode.Text:=qrySer500.FieldByName('S500_001').Value;
    edtCallName.Text:=qrySer500.FieldByName('S500_002').Value;
    edtDate.Text:=qrySer500.FieldByName('S500_007').AsString;
    edtBillNo.Text:=qrySer500.FieldByName('S500_009').AsString;
    edtCust.Text:=qrySer500.FieldByName('O150_002').AsString;
    edtCustName.Text:=qrySer500.FieldByName('O150_003').AsString;
    edtItem.Text:=qrySer500.FieldByName('I150_002').AsString;
    edtItemName.Text:=qrySer500.FieldByName('I150_003').AsString;
    edtMacNo.Text:=qrySer500.FieldByName('S500_019').AsString;
    edtCallPerson.Text:=qrySer500.FieldByName('S500_011').AsString;
    edtDept.Text:=qrySer500.FieldByName('S500_012').AsString;
    edtPost.Text:=qrySer500.FieldByName('S500_013').AsString;
    edtTelNo.Text:=qrySer500.FieldByName('S500_014').AsString;
    memDetails.Text:=qrySer500.FieldByName('S500_033').AsString;
    ACustNo:=qrySer500.FieldByName('O150_001').AsInteger;
    AItemNo:=0;
    AMacNo:='';
    GetCustomerInfo(ACustNo,AItemNo,AMacNo,ACustomerInfo);
    edtPhone.Text:=ACustomerInfo.CustPhone;
    edtFax.Text:=ACustomerInfo.CustFax;
    edtAddress.Text:=ACustomerInfo.CustAddress;
  end else
  begin
    edtCallCode.Text:='';
    edtCallName.Text:='';
    edtDate.Text:='';
    edtBillNo.Text:='';
    edtCust.Text:='';
    edtCustName.Text:='';
    edtItem.Text:='';
    edtItemName.Text:='';
    edtMacNo.Text:='';
    edtCallPerson.Text:='';
    edtDept.Text:='';
    edtPost.Text:='';
    edtTelNo.Text:='';
    memDetails.Text:='';
    edtPhone.Text:='';
    edtFax.Text:='';
    edtAddress.Text:='';
    ShowMsg('UMS10000375');  //输入的来电编号无效
    edtCallCode.SetFocus;
    Abort;
  end;
end;

procedure TSer510_02Form.sbAppelaterClick(Sender: TObject);
begin
  inherited;
//调查人员
  if not edtAppelater.Focused then edtAppelater.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryHrm150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    if qryHrm150.IsEmpty then Exit;
    edtAppelater.Text:=qryHrm150.FieldByName('H150_002').AsString;
    edtAppelateName.Text:=qryHrm150.FieldByName('H150_003').AsString;
  end;
end;

procedure TSer510_02Form.edtAppelaterExit(Sender: TObject);
begin
  inherited;
//调查人员
  if trim(edtAppelater.Text)='' then Exit;
  if qryHrm150.Locate('H150_002',edtAppelater.Text,[]) then
  begin
    edtAppelater.Text:=qryHrm150.FieldByName('H150_002').Value;
    edtAppelateName.Text:=qryHrm150.FieldByName('H150_003').Value;
  end else
  begin
    edtAppelater.Text:='';
    edtAppelateName.Text:='';
    ShowMsg('UMS10000393');  //输入的员工编号无效
    edtAppelater.SetFocus;
    Abort;
  end;
end;

initialization
  RegisterClass(TSer510_02Form);

finalization
  UnRegisterClass(TSer510_02Form);

end.