📄 tas510_02.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 5 页
字号:
    edtItemName.Text:='';
    edtMacNo.Text:='';
    edtModel.Text:='';
    edtItemClass.Text:='';
    edtMaker.Text:='';
    edtMakerName.Text:='';
    ShowMsg('UMS10000268');  //输入的机身编号无效
    edtMacNo.SetFocus;
    Abort;
  end;
end;

procedure TTas510_02Form.edtDaysKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  ValidFloat(Sender,Key);
end;

procedure TTas510_02Form.ActFirstExecute(Sender: TObject);
begin
  inherited;
//最前
  if qryTas510.IsEmpty then Exit;
  qryTas510.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure TTas510_02Form.ActPriorExecute(Sender: TObject);
begin
  inherited;
//上移
  if qryTas510.IsEmpty then Exit;
  qryTas510.Prior;
  ActNext.Enabled:=not qryTas510.Eof;
  ActLast.Enabled:=not qryTas510.Eof;
  ActFirst.Enabled:=not qryTas510.Bof;
  ActPrior.Enabled:=not qryTas510.Bof;
end;

procedure TTas510_02Form.ActNextExecute(Sender: TObject);
begin
  inherited;
//下移
  if qryTas510.IsEmpty then Exit;
  qryTas510.Next;
  ActNext.Enabled:=not qryTas510.Eof;
  ActLast.Enabled:=not qryTas510.Eof;
  ActFirst.Enabled:=not qryTas510.Bof;
  ActPrior.Enabled:=not qryTas510.Bof;
end;

procedure TTas510_02Form.ActLastExecute(Sender: TObject);
begin
  inherited;
//最后
  if qryTas510.IsEmpty then Exit;
  qryTas510.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure TTas510_02Form.ActInsertExecute(Sender: TObject);
var
  ADate:TDateTime;
  S:String;
begin
  inherited;
//新增
  Screen.Cursor:=crHourGlass;
  AMode:='ADD';
  edtCode.Text:='';
  edtName.Text:='';
  cbClass.Text:='';
  edtManager.Text:='';
  edtManagerName.Text:='';
  //优先级缺省值
  S:=GetSysParams('TAS0008');
  if S<>'' then
  begin
    edtPriority.Text:=S;
    udPriority.Position:=StrToInt(S);
  end;
  edtPercent.Text:='0';
  edtOrder.Text:='';
  edtCust.Text:='';
  edtCustName.Text:='';
  edtPhone.Text:='';
  edtAddress.Text:='';
  edtContact.Text:='';
  edtPost.Text:='';
  edtEmail.Text:='';
  edtItem.Text:='';
  edtItemName.Text:='';
  edtMacNo.Text:='';
  edtModel.Text:='';
  edtItemClass.Text:='';
  edtMaker.Text:='';
  edtMakerName.Text:='';
  memDetails.Clear;
  AOldFrom:=0;
  AOldOrder:='';
  ADate:=GetServerDate;
  edtDate.Date:=ADate;
  edtReqDate.Date:=ADate;
  edtFromDate.Clear;
  edtToDate.Clear;
  edtFactFromDate.Clear;
  edtFactToDate.Clear;
  edtCreateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
  edtCreateBy.Text:=AUserName;
  edtUpdateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
  edtUpdateBy.Text:=AUserName;
  cbFrom.ItemIndex:=3;  //手工输入
  cbFromChange(cbFrom);
  edtDays.Text:='1';
  edtFactDays.Text:='0';
  cbUnit.ItemIndex:=1;  //天
  edtStatus.Text:=GetValue('select T120_003 from TAS120 where T120_001=1');

  SetButtonState(True);
  if Visible then
    if edtCode.Enabled then edtCode.SetFocus else edtName.SetFocus;
  Screen.Cursor:=crDefault;
end;

procedure TTas510_02Form.ActUpdateExecute(Sender: TObject);
begin             
  inherited;
//修改
  if qryTas510.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if qryTas510T510_003.AsInteger in [2,3,4] then
  begin
    ShowMsg('UMS10000311');  //不允许修改执行、完成、返工状态的记录
    Abort;
  end;
  Screen.Cursor:=crHourGlass;
  AMode:='UPD';
  SetButtonState(True);
  if Visible then
    if edtCode.Enabled then edtCode.SetFocus else edtName.SetFocus;
  Screen.Cursor:=crDefault;
end;

procedure TTas510_02Form.ActDeleteExecute(Sender: TObject);
var
  ATypeNo:Integer;
  AOrderID,ACode:string;
begin
  inherited;
//删除
  if qryTas510.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;

  //仅状态=计划时可删除
  if qryTas510T510_003.AsInteger<>1 then
  begin
    ShowMsg('UMS10000263');  //不允许删除非计划状态的记录
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDNO then Abort;  //确定要删除此记录吗?
  try
    ATypeNo:=qryTas510.FieldByName('T510_008').AsInteger;
    AOrderID:=qryTas510.FieldByName('T510_009').AsString;
    ACode:=qryTas510T510_001.AsString;
    DeleteTableRecord(qryTas510,'TAS510','T510_001='+''''+ACode+'''');
    //更新来源单据的相关字段
    case ATypeNo of
      0:UpdateOrderInfo(AOrderID,1);  //销售定单
      1:UpdateCallInfo(AOrderID,1);  //来电记录
      2:UpdateProjectInfo(AOrderID);   //项目计划
    end;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description+#13+SYSDM.qryQuery.SQL.Text,1);
    Abort;
  end;
end;

procedure TTas510_02Form.ActSaveExecute(Sender: TObject);
begin
  inherited;
//保存
  try
    Screen.Cursor:=crHourGlass;
    SaveData;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TTas510_02Form.ActCancelExecute(Sender: TObject);
begin
  inherited;
//取消
  SetButtonState(False);
  qryTas510AfterScroll(qryTas510);
end;

procedure TTas510_02Form.ActRefreshExecute(Sender: TObject);
var
  ACode:string;
begin
  inherited;
//刷新
  ACode:=qryTas510.FieldByName('T510_001').AsString;
  qryTas510.DisableControls;
  qryTas510.Close;
  qryTas510.Open;
  qryTas510.Locate('T510_001',ACode,[]);
  qryTas510.EnableControls;
end;

procedure TTas510_02Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if qryTas510.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsTas510);
end;

procedure TTas510_02Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  FilterDialog(dsTas510);
end;

procedure TTas510_02Form.ActPrintExecute(Sender: TObject);
begin
  inherited;
//打印
  SelectReport(qryTas510,AProgramID,AReportName,ReportGetValue);
  ActRefresh.Execute;
end;

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

procedure TTas510_02Form.qryTas510AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if qryTas510.State in [dsInsert,dsEdit] then Exit;
  if qryTas510.IsEmpty then Exit;
  edtCode.Text:=qryTas510.FieldByName('T510_001').AsString;
  AOldCode:=edtCode.Text;
  edtName.Text:=qryTas510.FieldByName('T510_002').AsString;
  edtPriority.Text:=qryTas510.FieldByName('T510_005').AsString;
  if edtPriority.Text<>'' then udPriority.Position:=StrToInt(edtPriority.Text);
  cbFrom.ItemIndex:=qryTas510.FieldByName('T510_008').AsInteger;
  cbFromChange(cbFrom);
  edtOrder.Text:=qryTas510.FieldByName('T510_009').AsString;
  AOldFrom:=cbFrom.ItemIndex;
  AOldOrder:=edtOrder.Text;
  edtPercent.Text:=qryTas510.FieldByName('T510_014').AsString;
  cbUnit.ItemIndex:=qryTas510.FieldByName('T510_011').AsInteger;
  edtDate.Date:=qryTas510.FieldByName('T510_006').Value;
  edtReqDate.Date:=qryTas510.FieldByName('T510_007').Value;
  edtDays.Text:=qryTas510.FieldByName('T510_012').Value;
  edtFactDays.Text:='0';
  edtFactDays.Text:=qryTas510.FieldByName('T510_013').AsString;
  edtMacNo.Text:=qryTas510.FieldByName('T510_018').AsString;
  memDetails.Text:=qryTas510.FieldByName('T510_019').AsString;
  edtCreateDate.Text:=qryTas510.FieldByName('T510_020').AsString;
  edtCreateBy.Text:=qryTas510.FieldByName('T510_021').AsString;
  edtUpdateDate.Text:=qryTas510.FieldByName('T510_022').AsString;
  edtUpdateBy.Text:=qryTas510.FieldByName('T510_023').AsString;

  edtStatus.Text:=qryTas510.FieldByName('T120_003').AsString;
  cbClass.Text:=qryTas510.FieldByName('T100_002').AsString;
  qryTas100.Locate('T100_002',cbClass.Text,[]);
  edtManager.Text:=qryTas510.FieldByName('H150_002').AsString;
  edtManagerName.Text:=qryTas510.FieldByName('H150_003').AsString;
  edtCust.Text:=qryTas510.FieldByName('O150_002').AsString;
  edtCustName.Text:=qryTas510.FieldByName('O150_003').AsString;
  edtPhone.Text:=qryTas510.FieldByName('O150_005').AsString;
  edtAddress.Text:=qryTas510.FieldByName('O150_012').AsString;
  edtEmail.Text:=qryTas510.FieldByName('O150_007').AsString;
  edtContact.Text:=qryTas510.FieldByName('O151_002').AsString;
  edtPost.Text:=qryTas510.FieldByName('O151_004').AsString;
  edtItem.Text:=qryTas510.FieldByName('I150_002').AsString;
  edtItemName.Text:=qryTas510.FieldByName('I150_003').AsString;
  edtModel.Text:=qryTas510.FieldByName('I150_004').AsString;
  edtItemClass.Text:=qryTas510.FieldByName('I120_003').AsString;
  edtMaker.Text:=qryTas510.FieldByName('M150_002').AsString;
  edtMakerName.Text:=qryTas510.FieldByName('M150_003').AsString;

  edtFromDate.Clear;
  edtToDate.Clear;
  edtFactFromDate.Clear;
  edtFactToDate.Clear;
  if qryTas510.FieldByName('T510_025').AsString<>'' then
    edtFromDate.Date:=qryTas510.FieldByName('T510_025').Value;  //预计开始日期
  if qryTas510.FieldByName('T510_026').AsString<>'' then
    edtToDate.Date:=qryTas510.FieldByName('T510_026').Value;  //预计完成日期
  if qryTas510.FieldByName('T510_027').AsString<>'' then
    edtFactFromDate.Date:=qryTas510.FieldByName('T510_027').Value;  //实际开始日期
  if qryTas510.FieldByName('T510_028').AsString<>'' then
    edtFactToDate.Date:=qryTas510.FieldByName('T510_028').Value;  //实际完成日期

  //“任务计划”中必须输入产品信息
  cbClassCloseUp(cbClass,True);

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

procedure TTas510_02Form.SaveData;
var
  ADate:TDateTime;
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -