?? ord140_02.pas.svn-base

?? 這是一個(gè)功能齊全的,代碼完整的ERP企業(yè)信息管理系統(tǒng),現(xiàn)在上傳和大家分享
?? SVN-BASE
?? 第 1 頁 / 共 3 頁
字號(hào):
上一頁 1 23
  begin
    edtItemID.Text:='';
    edtItemName.Text:='';
    ShowMsg('UMS10000460');  //輸入的料品編號(hào)無效，請(qǐng)重新輸入
    edtItemID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbCustIDClick(Sender: TObject);
begin
  inherited;
//客戶編號(hào)
  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;
//客戶編號(hào)
  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');  //輸入的客戶編號(hào)無效，請(qǐng)重新輸入
    edtCustID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbCustGradeClick(Sender: TObject);
begin
  inherited;
//客戶級(jí)別
  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;
//客戶級(jí)別
  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');  //輸入的客戶級(jí)別無效，請(qǐng)重新輸入
    edtCustGrade.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbSaleIDClick(Sender: TObject);
begin
  inherited;
//銷售員號(hào)
  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;
//銷售員號(hào)
  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');  //輸入的銷售員號(hào)無效，請(qǐng)重新輸入
    edtSaleID.SetFocus;
    Abort;
  end;
end;

procedure TOrd140_02Form.sbSaleGradeClick(Sender: TObject);
begin
  inherited;
//銷售員級(jí)別
  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;
//銷售員級(jí)別
  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');  //輸入的銷售員級(jí)別無效，請(qǐng)重新輸入
    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');  //料品編號(hào)
    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');  //客戶編號(hào)
    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');  //客戶級(jí)別
    5:qryItems.SQL.Add('select H150_001 as FNo,H150_002 as FCode,H150_003 as FName from HRM150 order by H150_002');  //銷售員號(hào)
    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');  //銷售員級(jí)別
    7:qryItems.SQL.Add('select O120_001 as FNo,O120_002 as FCode,O120_002 as FName from ORD120 order by O120_002');  //交貨地區(qū)
  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.
上一頁 1 23
?? 文件大小 5005 K
?? 上傳用戶 struggle10000
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#ERP #代碼 #企業(yè)信息 #管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ord140_02.pas.svn-base

?? 快捷鍵說明
