ord140_02.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

  begin
    edtItemID.Text:='';
    edtItemName.Text:='';
    ShowMsg('UMS10000460');  //输入的料品编号无效，请重新输入
    edtItemID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbCustIDClick(Sender: TObject);
begin
  inherited;
//客户编号
  if not edtCustID.Focused then edtCustID.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryOrd150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtCustID.Text:=qryOrd150.FieldByName('O150_002').AsString;
    edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString;
  end;
end;

procedure TOrd140_02Form.edtCustIDExit(Sender: TObject);
begin
  inherited;
//客户编号
  if trim(edtCustID.Text)='' then Exit;
  if qryOrd150.Locate('O150_002',edtCustID.Text,[]) then
  begin
    edtCustID.Text:=qryOrd150.FieldByName('O150_002').AsString;
    edtCustName.Text:=qryOrd150.FieldByName('O150_003').AsString;
  end else
  begin
    edtCustID.Text:='';
    edtCustName.Text:='';
    ShowMsg('UMS10000585');  //输入的客户编号无效，请重新输入
    edtCustID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbCustGradeClick(Sender: TObject);
begin
  inherited;
//客户级别
  if not edtCustGrade.Focused then edtCustGrade.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryCustGrade,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtCustGrade.Text:=qryCustGrade.FieldByName('S100_002').AsString;
    edtCustGradeName.Text:=qryCustGrade.FieldByName('S100_003').AsString;
  end;
end;

procedure TOrd140_02Form.edtCustGradeExit(Sender: TObject);
begin
  inherited;
//客户级别
  if trim(edtCustGrade.Text)='' then Exit;
  if qryCustGrade.Locate('S100_002',edtCustGrade.Text,[]) then
  begin
    edtCustGrade.Text:=qryCustGrade.FieldByName('S100_002').AsString;
    edtCustGradeName.Text:=qryCustGrade.FieldByName('S100_003').AsString;
  end else
  begin
    edtCustGrade.Text:='';
    edtCustGradeName.Text:='';
    ShowMsg('UMS10000586');  //输入的客户级别无效，请重新输入
    edtCustGrade.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbSaleIDClick(Sender: TObject);
begin
  inherited;
//销售员号
  if not edtSaleID.Focused then edtSaleID.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qryHrm150,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtSaleID.Text:=qryHrm150.FieldByName('H150_002').AsString;
    edtSaleName.Text:=qryHrm150.FieldByName('H150_003').AsString;
  end;
end;

procedure TOrd140_02Form.edtSaleIDExit(Sender: TObject);
begin
  inherited;
//销售员号
  if trim(edtSaleID.Text)='' then Exit;
  if qryHrm150.Locate('H150_002',edtSaleID.Text,[]) then
  begin
    edtSaleID.Text:=qryHrm150.FieldByName('H150_002').AsString;
    edtSaleName.Text:=qryHrm150.FieldByName('H150_003').AsString;
  end else
  begin
    edtSaleID.Text:='';
    edtSaleName.Text:='';
    ShowMsg('UMS10000587');  //输入的销售员号无效，请重新输入
    edtSaleID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbSaleGradeClick(Sender: TObject);
begin
  inherited;
//销售员级别
  if not edtSaleGrade.Focused then edtSaleGrade.SetFocus;
  HwSelDataForm:=THwSelDataForm.Create(Application);
  HwSelDataForm.OpenSelData(qrySaleGrade,nil);
  if HwSelDataForm.ShowModal=1 then
  begin
    edtSaleGrade.Text:=qrySaleGrade.FieldByName('S100_002').AsString;
    edtSaleGradeName.Text:=qrySaleGrade.FieldByName('S100_003').AsString;
  end;
end;

procedure TOrd140_02Form.edtSaleGradeExit(Sender: TObject);
begin
  inherited;
//销售员级别
  if trim(edtSaleGrade.Text)='' then Exit;
  if qrySaleGrade.Locate('S100_002',edtSaleID.Text,[]) then
  begin
    edtSaleGrade.Text:=qrySaleGrade.FieldByName('S100_002').AsString;
    edtSaleGradeName.Text:=qrySaleGrade.FieldByName('S100_003').AsString;
  end else
  begin
    edtSaleGrade.Text:='';
    edtSaleGradeName.Text:='';
    ShowMsg('UMS10000588');  //输入的销售员级别无效，请重新输入
    edtSaleGrade.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.cbItemIDClick(Sender: TObject);
begin
  inherited;
  edtItemID.Enabled:=cbItemID.Checked;
  sbItemID.Enabled:=cbItemID.Checked;
  if edtItemID.Enabled then edtItemID.Color:=AEnableColor else edtItemID.Color:=ADisableColor;
  if not edtItemID.Enabled then
  begin
    edtItemID.Text:='';
    edtItemName.Text:='';
  end;

  cbItemClass.Enabled:=not cbItemID.Checked;
//  edtItemClass.Enabled:=not cbItemID.Checked;
  if edtItemClass.Enabled then edtItemClass.Color:=AEnableColor else edtItemClass.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbItemClassClick(Sender: TObject);
begin
  inherited;
  edtItemClass.Enabled:=cbItemClass.Checked;
  if edtItemClass.Enabled then edtItemClass.Color:=AEnableColor else edtItemClass.Color:=ADisableColor;
  if not edtItemClass.Enabled then
  begin
    edtItemClass.Text:='';
  end;

  cbItemID.Enabled:=not cbItemClass.Checked;
//  edtItemID.Enabled:=not cbItemClass.Checked;
//  sbItemID.Enabled:=not cbItemClass.Checked;
  if edtItemID.Enabled then edtItemID.Color:=AEnableColor else edtItemID.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbCustIDClick(Sender: TObject);
begin
  inherited;
  edtCustID.Enabled:=cbCustID.Checked;
  sbCustID.Enabled:=cbCustID.Checked;
  if edtCustID.Enabled then edtCustID.Color:=AEnableColor else edtCustID.Color:=ADisableColor;
  if not edtCustID.Enabled then
  begin
    edtCustID.Text:='';
    edtCustName.Text:='';
  end;

  cbCustClass.Enabled:=not cbCustID.Checked;
//  edtCustClass.Enabled:=not cbCustID.Checked;
  if edtCustClass.Enabled then edtCustClass.Color:=AEnableColor else edtCustClass.Color:=ADisableColor;

  cbCustGrade.Enabled:=not cbCustID.Checked;
//  edtCustGrade.Enabled:=not cbCustID.Checked;
//  sbCustGrade.Enabled:=not cbCustID.Checked;
  if edtCustGrade.Enabled then edtCustGrade.Color:=AEnableColor else edtCustGrade.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbCustClassClick(Sender: TObject);
begin
  inherited;
  edtCustClass.Enabled:=cbCustClass.Checked;
  if edtCustClass.Enabled then edtCustClass.Color:=AEnableColor else edtCustClass.Color:=ADisableColor;
  if not edtCustClass.Enabled then
  begin
    edtCustClass.Text:='';
  end;

  cbCustID.Enabled:=not cbCustClass.Checked;
//  edtCustID.Enabled:=not cbCustClass.Checked;
//  sbCustID.Enabled:=not cbCustClass.Checked;
  if edtCustID.Enabled then cbCustClass.Color:=AEnableColor else cbCustClass.Color:=ADisableColor;

  cbCustGrade.Enabled:=not cbCustClass.Checked;
//  edtCustGrade.Enabled:=not cbCustClass.Checked;
//  sbCustGrade.Enabled:=not cbCustClass.Checked;
  if edtCustGrade.Enabled then edtCustGrade.Color:=AEnableColor else edtCustGrade.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbCustGradeClick(Sender: TObject);
begin
  inherited;
  edtCustGrade.Enabled:=cbCustGrade.Checked;
  sbCustGrade.Enabled:=cbCustGrade.Checked;
  if edtCustGrade.Enabled then edtCustGrade.Color:=AEnableColor else edtCustGrade.Color:=ADisableColor;
  if not edtCustGrade.Enabled then
  begin
    edtCustGrade.Text:='';
    edtCustGradeName.Text:='';
  end;

  cbCustID.Enabled:=not cbCustGrade.Checked;
//  edtCustID.Enabled:=not cbCustGrade.Checked;
//  sbCustID.Enabled:=not cbCustGrade.Checked;
  if edtCustID.Enabled then cbCustClass.Color:=AEnableColor else cbCustClass.Color:=ADisableColor;

  cbCustClass.Enabled:=not cbCustGrade.Checked;
//  edtCustClass.Enabled:=not cbCustGrade.Checked;
  if edtCustClass.Enabled then edtCustClass.Color:=AEnableColor else edtCustClass.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbSaleIDClick(Sender: TObject);
begin
  inherited;
  edtSaleID.Enabled:=cbSaleID.Checked;
  sbSaleID.Enabled:=cbSaleID.Checked;
  if edtSaleID.Enabled then edtSaleID.Color:=AEnableColor else edtSaleID.Color:=ADisableColor;
  if not edtSaleID.Enabled then
  begin
    edtSaleID.Text:='';
    edtSaleName.Text:='';
  end;

  cbSaleGrade.Enabled:=not cbSaleID.Checked;
//  edtSaleGrade.Enabled:=not cbSaleID.Checked;
//  sbSaleGrade.Enabled:=not cbSaleID.Checked;
  if edtSaleGrade.Enabled then edtSaleGrade.Color:=AEnableColor else edtSaleGrade.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbSaleGradeClick(Sender: TObject);
begin
  inherited;
  edtSaleGrade.Enabled:=cbSaleGrade.Checked;
  sbSaleGrade.Enabled:=cbSaleGrade.Checked;
  if edtSaleGrade.Enabled then edtSaleGrade.Color:=AEnableColor else edtSaleGrade.Color:=ADisableColor;
  if not edtSaleID.Enabled then
  begin
    edtSaleGrade.Text:='';
    edtSaleGradeName.Text:='';
  end;

  cbSaleID.Enabled:=not cbSaleGrade.Checked;
//  edtSaleID.Enabled:=not cbSaleGrade.Checked;
//  sbSaleID.Enabled:=not cbSaleGrade.Checked;
  if edtSaleID.Enabled then edtSaleID.Color:=AEnableColor else edtSaleID.Color:=ADisableColor;
end;

procedure TOrd140_02Form.cbRegionClick(Sender: TObject);
begin
  inherited;
  edtRegion.Enabled:=cbRegion.Checked;
  if edtRegion.Enabled then edtRegion.Color:=AEnableColor else edtRegion.Color:=ADisableColor;
  if not edtRegion.Enabled then
  begin
    edtRegion.Text:='';
  end;
end;

procedure TOrd140_02Form.cbRangeChange(Sender: TObject);
begin
  inherited;
  qryItems.Close;
  qryItems.SQL.Clear;
  case ARangeList.IndexOf(cbRange.Text) of
    0:qryItems.SQL.Add('select I150_001 as FNo,I150_002 as FCode,I150_003 as FName from INV150 order by I150_002');  //料品编号
    1:qryItems.SQL.Add('select I120_001 as FNo,I120_002 as FCode,I120_003 as FName from INV120 order by I120_002');  //料品分类
    2:qryItems.SQL.Add('select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ORD150 order by O150_002');  //客户编号
    3:qryItems.SQL.Add('select O110_001 as FNo,O110_002 as FCode,O110_002 as FName from ORD110 order by O110_002');  //客户分类
    4:qryItems.SQL.Add('select S100_001 as FNo,S100_002 as FCode,S100_003 as FName from SYS100 where S100_004=0 order by S100_002');  //客户级别
    5:qryItems.SQL.Add('select H150_001 as FNo,H150_002 as FCode,H150_003 as FName from HRM150 order by H150_002');  //销售员号
    6:qryItems.SQL.Add('select S100_001 as FNo,S100_002 as FCode,S100_003 as FName from SYS100 where S100_004=1 order by S100_002');  //销售员级别
    7:qryItems.SQL.Add('select O120_001 as FNo,O120_002 as FCode,O120_002 as FName from ORD120 order by O120_002');  //交货地区
  end;
  dbgOrd140BFCode.Visible:=ARangeList.IndexOf(cbRange.Text) in [0,1,2,4,5,6];
  qryItems.Open;
  if not Visible then Exit;
  while not adsOrd140B.Eof do adsOrd140B.Delete;
  adsOrd140C.Filter:='';
  adsOrd140C.Filtered:=False;
  while not adsOrd140C.Eof do adsOrd140C.Delete;
end;

procedure TOrd140_02Form.adsOrd140CNewRecord(DataSet: TDataSet);
var
  ANo:Integer;
begin
  inherited;
  if cbSame.Checked then ANo:=0 else ANo:=adsOrd140BFNo.AsInteger;
  adsOrd140CFNo.AsInteger:=ANo;
end;

procedure TOrd140_02Form.cbSumDisClick(Sender: TObject);
begin
  inherited;
  if cbSumDis.Checked then
  begin
    if not (cbType.ItemIndex in [2,3]) then cbType.ItemIndex:=2;
    cbAmtType.ItemIndex:=1;
    cbAmtType.Enabled:=True;
  end else
  begin
    cbAmtType.ItemIndex:=-1;
    cbAmtType.Enabled:=False;
  end;
  if cbAmtType.Enabled then cbAmtType.Color:=AEnableColor else cbAmtType.Color:=ADisableColor;
end;

procedure TOrd140_02Form.adsOrd140BAfterScroll(DataSet: TDataSet);
var
  ANo:Integer;
begin
  inherited;
  if cbSame.Checked then ANo:=0 else ANo:=adsOrd140BFNo.AsInteger;
  adsOrd140C.Filter:='';
  adsOrd140C.Filtered:=False;
  adsOrd140C.Filter:='FNo='+IntToStr(ANo);
  adsOrd140C.Filtered:=True;
end;

procedure TOrd140_02Form.cbSameClick(Sender: TObject);
var
  ANo:Integer;
begin
  inherited;
  if not Visible then Exit;
  if cbSame.Checked then ANo:=0 else ANo:=adsOrd140BFNo.AsInteger;
  adsOrd140C.DisableControls;
  adsOrd140C.Filter:='';
  adsOrd140C.Filtered:=False;
  adsOrd140C.First;
  while not adsOrd140C.Eof do
  begin
    adsOrd140C.Edit;
    adsOrd140CFNo.Value:=ANo;
    adsOrd140C.Post;
    adsOrd140C.Next;
  end;
  adsOrd140C.EnableControls;
  adsOrd140B.Next;
  adsOrd140B.Prior;
end;

procedure TOrd140_02Form.cbTypeChange(Sender: TObject);
begin
  inherited;
  if (cbSumDis.Checked) and (not (cbType.ItemIndex in [2,3])) then
    cbType.ItemIndex:=2;
end;

procedure TOrd140_02Form.tlbInsertClick(Sender: TObject);
begin
  inherited;
//新增
  HwSelDataBForm:=THwSelDataBForm.Create(Application);
  HwSelDataBForm.OpenData(ARangeList.IndexOf(cbRange.Text));
  if HwSelDataBForm.ShowModal=1 then
  begin
    HwSelDataBForm.adsItems.First;
    while not HwSelDataBForm.adsItems.Eof do
    begin
      if HwSelDataBForm.adsItems.FieldByName('FSel').Value=-1 then
      begin
        adsOrd140B.Append;
        adsOrd140BFNo.AsString:=HwSelDataBForm.adsItems.FieldByName('FNo').AsString;
        adsOrd140BFCode.AsString:=HwSelDataBForm.adsItems.FieldByName('FCode').AsString;
        adsOrd140BFName.AsString:=HwSelDataBForm.adsItems.FieldByName('FName').AsString;
        adsOrd140BFParent.AsString:=HwSelDataBForm.adsItems.FieldByName('FParent').AsString;
        adsOrd140B.Post;
      end;
      HwSelDataBForm.adsItems.Next;
    end;
  end;
end;

procedure TOrd140_02Form.tlbDeleteClick(Sender: TObject);
begin
  inherited;
//删除
  if adsOrd140B.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if not cbSame.Checked then
  begin
    while not adsOrd140C.Eof do adsOrd140C.Delete;
  end;
  adsOrd140B.Delete;
end;

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

procedure TOrd140_02Form.cbOrderClick(Sender: TObject);
begin
  inherited;
  cbSumDis.Checked:=cbOrder.Checked;
  cbSumDis.Enabled:=not cbOrder.Checked;
end;

initialization
  RegisterClass(TOrd140_02Form);

finalization
  UnRegisterClass(TOrd140_02Form);

end.