ord150_02.pas.svn-base

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

  inherited;
//查找
  if qryOrd150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsOrd150);
end;

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

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

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

procedure TOrd150_02Form.sbClassClick(Sender: TObject);
begin
  inherited;
//客户分类
  Ord110_02Form:=TOrd110_02Form.Create(Application);
  Ord110_02Form.OpenData(0);
  Ord110_02Form.ShowModal;
  qryOrd110.Close;
  qryOrd110.Open;
end;

procedure TOrd150_02Form.sbRegionClick(Sender: TObject);
begin
  inherited;
//地区
  Ord120_01Form:=TOrd120_01Form.Create(Application);
  Ord120_01Form.ShowModal;
  qryOrd120.Close;
  qryOrd120.Open;
end;

procedure TOrd150_02Form.sbDiscountClick(Sender: TObject);
begin
  inherited;
//折扣代码
end;

procedure TOrd150_02Form.sbCommissionClick(Sender: TObject);
begin
  inherited;
//佣金代码
end;

procedure TOrd150_02Form.sbRecNoteClick(Sender: TObject);
begin
  inherited;
//应收票据
  if not edtRecNote.Focused then edtRecNote.SetFocus;
  Gld150_01Form:=TGld150_01Form.Create(Application);
  if Gld150_01Form.ShowModal=1 then
  begin
    case Gld150_01Form.PageControl1.ActivePageIndex of
      0:
        begin
          edtRecNote.Text:=Gld150_01Form.ADOQuery1.FieldByName('G150_002').Value;
          qryOrd150.FieldByName('O150_016').Value:=Gld150_01Form.ADOQuery1.FieldByName('G150_001').Value;
        end;
      1:
        begin
          edtRecNote.Text:=Gld150_01Form.ADOQuery2.FieldByName('G150_002').Value;
          qryOrd150.FieldByName('O150_016').Value:=Gld150_01Form.ADOQuery1.FieldByName('G150_001').Value;
        end;
      2:
        begin
          edtRecNote.Text:=Gld150_01Form.ADOQuery3.FieldByName('G150_002').Value;
          qryOrd150.FieldByName('O150_016').Value:=Gld150_01Form.ADOQuery1.FieldByName('G150_001').Value;
        end;
      3:
        begin
          edtRecNote.Text:=Gld150_01Form.ADOQuery4.FieldByName('G150_002').Value;
          qryOrd150.FieldByName('O150_016').Value:=Gld150_01Form.ADOQuery1.FieldByName('G150_001').Value;
        end;
      4:
        begin
          edtRecNote.Text:=Gld150_01Form.ADOQuery5.FieldByName('G150_002').Value;
          qryOrd150.FieldByName('O150_016').Value:=Gld150_01Form.ADOQuery1.FieldByName('G150_001').Value;
        end;
    end;
  end;
end;

procedure TOrd150_02Form.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  inherited;
  AllowChange:=not ActSave.Enabled;
end;

procedure TOrd150_02Form.SpeedButton3Click(Sender: TObject);
begin
  inherited;
//币别编号
  Gld100_01Form:=TGld100_01Form.Create(Application);
  Gld100_01Form.ShowModal;
  qryGld100.Close;
  qryGld100.Open;
end;

procedure TOrd150_02Form.bbtnInsertClick(Sender: TObject);
begin
  inherited;
//新增联系人
  if qryOrd150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SetButtonStateA(True);

  qryOrd151.Insert;
  qryOrd151.FieldByName('O151_001').Value:=qryOrd150.FieldByName('O150_001').Value;
  qryOrd151.FieldByName('O151_011').Value:=cbPrimary.Enabled;
  edtContact.SetFocus;
end;

procedure TOrd150_02Form.bbtnUpdateClick(Sender: TObject);
begin
  inherited;
//修改联系人
  if qryOrd151.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SetButtonStateA(True);

  qryOrd151.Edit;
  edtContact.SetFocus;
end;

procedure TOrd150_02Form.bbtnDeleteClick(Sender: TObject);
begin
  inherited;
//删除联系人
  if qryOrd151.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if IsExists('select 1 from ORD152 where O152_001='+qryOrd151O151_001.AsString+' and O152_008='+''''+qryOrd151O151_002.AsString+'''') then
  begin
    ShowMsg('UMS10000513');  //该客戶联系人员在相关的客户产货地址资料中，请先删除客户交货地址
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    try
      qryOrd151.Delete;
    except
      qryOrd151.Refresh;
    end;
  end;
  bbtnDelete.Enabled:=not qryOrd151.IsEmpty;
end;

procedure TOrd150_02Form.bbtnSaveClick(Sender: TObject);
begin
  inherited;
//保存联系人
  if trim(edtContact.Text)='' then
  begin
    ShowMsg('UMS10000189');  //联系人名不能为空
    edtContact.SetFocus;
    Abort;
  end;
  if edtDept.Text='' then qryOrd151.FieldByName(edtDept.DataField).Clear;
  if edtPost.Text='' then qryOrd151.FieldByName(edtPost.DataField).Clear;
  if edtTel.Text='' then qryOrd151.FieldByName(edtTel.DataField).Clear;
  if edtFaxNo.Text='' then qryOrd151.FieldByName(edtFaxNo.DataField).Clear;
  if edtMobile.Text='' then qryOrd151.FieldByName(edtMobile.DataField).Clear;
  if edtConEmail.Text='' then qryOrd151.FieldByName(edtConEmail.DataField).Clear;
  if edtAdd.Text='' then qryOrd151.FieldByName(edtAdd.DataField).Clear;
  if edtZip.Text='' then qryOrd151.FieldByName(edtZip.DataField).Clear;
  try
    qryOrd151.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  SetButtonStateA(False);
end;

procedure TOrd150_02Form.bbtnCancelClick(Sender: TObject);
begin
  inherited;
//取消联系人
  qryOrd151.Cancel;
  SetButtonStateA(False);
end;

procedure TOrd150_02Form.bbtnInsert1Click(Sender: TObject);
begin
  inherited;
//新增交货地点
  if qryOrd150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SetButtonStateB(True);

  qryOrd152.Insert;
  qryOrd152.FieldByName('O152_001').Value:=qryOrd150.FieldByName('O150_001').Value;
  qryOrd152.FieldByName('O152_010').Value:=cbPrimaryPlace.Enabled;
  edtPlace.SetFocus;
end;

procedure TOrd150_02Form.bbtnUpdate1Click(Sender: TObject);
begin
  inherited;
//修改交货地点
  if qryOrd152.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  SetButtonStateB(True);

  qryOrd152.Edit;
  edtPlace.SetFocus;
end;

procedure TOrd150_02Form.bbtnDelete1Click(Sender: TObject);
begin
  inherited;
//删除交货地点
  if qryOrd152.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if IsExists('select 1 from ORD153 where O153_001='+qryOrd152O152_001.AsString+' and O153_011='+''''+qryOrd152O152_002.AsString+'''') then
  begin
    ShowMsg('UMS10000512');  //该客戶交货地址存在相关的客户产品资料，请先删除客户产品资料
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    try
      qryOrd152.Delete;
    except
      qryOrd152.Refresh;
    end;
  end;
  bbtnDelete1.Enabled:=not qryOrd152.IsEmpty;
end;

procedure TOrd150_02Form.bbtnSave1Click(Sender: TObject);
begin
  inherited;
//保存交货地点
  if trim(edtPlace.Text)='' then
  begin
    ShowMsg('UMS10000190');  //交货地点不能为空
    edtPlace.SetFocus;
    Abort;
  end;
  if cbCity.Text='' then
  begin
    ShowMsg('UMS10000191');  //所属地区不能为空
    cbCity.SetFocus;
    Abort;
  end;
  if trim(edtPlaceAdd.Text)='' then
  begin
    ShowMsg('UMS10000192');  //交货地址不能为空
    edtPlaceAdd.SetFocus;
    Abort;
  end;
  edtConExit(edtCon);
  if edtPlaceAdd.Text='' then qryOrd152.FieldByName(edtPlaceAdd.DataField).Clear;
  if edtPlaceZip.Text='' then qryOrd152.FieldByName(edtPlaceZip.DataField).Clear;
  if edtCon.Text='' then qryOrd152.FieldByName(edtCon.DataField).Clear;
  if edtPlaceTel.Text='' then qryOrd152.FieldByName(edtPlaceTel.DataField).Clear;
  if edtPlaceFax.Text='' then qryOrd152.FieldByName(edtPlaceFax.DataField).Clear;
  try
    qryOrd152.Post;
  except
    ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
    Abort;
  end;
  SetButtonStateB(False);
end;

procedure TOrd150_02Form.bbtnCancel1Click(Sender: TObject);
begin
  inherited;
//取消交货地点
  qryOrd152.Cancel;
  SetButtonStateB(False);
end;

procedure TOrd150_02Form.sbItemClick(Sender: TObject);
begin
  inherited;
//产品编号查询
  if not edtItem.Focused then edtItem.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryInv150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtItem.Text:=qryInv150.FieldByName('I150_002').AsString;
    edtItemName.Text:=qryInv150.FieldByName('I150_003').AsString;
  end;
end;

procedure TOrd150_02Form.edtItemExit(Sender: TObject);
begin
  inherited;
//产品编号
  if trim(edtItem.Text)='' then Exit;
  if qryInv150.Locate('I150_002',edtItem.Text,[]) then
  begin
    edtItem.Text:=qryInv150.FieldByName('I150_002').AsString;
    edtItemName.Text:=qryInv150.FieldByName('I150_003').AsString;
  end else
  begin
    edtItem.Text:='';
    edtItemName.Text:='';
    ShowMsg('UMS10000267');  //输入的产品编号无效
    edtItem.SetFocus;
    Abort;
  end;
end;

procedure TOrd150_02Form.bbtnInsert2Click(Sender: TObject);
begin
  inherited;
//产品资料-新增
  if qryOrd150.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;