📄 bas_customer_d.pas

📁 一个MRPII系统源代码版本
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
  end;
end;

procedure TFrm_Bas_Customer_D.edt_AreaCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'AreaName','区域名称','AreaCode','区域代码','Area');

end;

procedure TFrm_Bas_Customer_D.edt_AreaCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_AreaName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select AreaCode,AreaName From Area Where AreaCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_AreaName.text:='';
      DispInfo('该区域代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_AreaName.Text:=fieldbyname('AreaName').asstring;
  end;

end;

procedure TFrm_Bas_Customer_D.edt_ShipModeCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ShipModeName','发货方式名称','ShipModeCode','发货方式代码','ShipMode');

end;

procedure TFrm_Bas_Customer_D.edt_PayTermCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'PayTermName','付款条款名称','PayTermCode','付款条款代码','PayTerm');

end;

procedure TFrm_Bas_Customer_D.edt_SaleTypeCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'SaleTypeName','销售类型名称','SaleTypeCode','销售类型代码','SaleType');

end;

procedure TFrm_Bas_Customer_D.edt_PayTermCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_PayTermName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select PayTermCode,PayTermName From PayTerm Where PayTermCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_PayTermName.Text:='';
      DispInfo('该付款条款代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_PayTermName.Text:=fieldbyname('PayTermName').asstring;
  end;

end;

procedure TFrm_Bas_Customer_D.edt_SaleTypeCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_SaleTypeName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select SaleTypeCode,SaleTypeName From SaleType Where SaleTypeCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_SaleTypeName.Text:='';
      DispInfo('该销售类型代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_SaleTypeName.Text:=fieldbyname('SaleTypeName').asstring;
  end;

end;

procedure TFrm_Bas_Customer_D.edt_ShipModeCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_ShipModeName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select ShipModeCode,ShipModeName From ShipMode Where ShipModeCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_ShipModeName.text:='';
      DispInfo('该发货方式代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_ShipModeName.Text:=fieldbyname('ShipModeName').asstring;
  end;

end;

procedure TFrm_Bas_Customer_D.edt_CurrencyCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_CurrencyName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select currencyCode,currencyName From currency Where currencyCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_CurrencyName.Text:='';
      DispInfo('该货币代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_CurrencyName.Text:=fieldbyname('currencyName').asstring;
  end;


end;

procedure TFrm_Bas_Customer_D.edt_EmployeeCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
    edt_EmployeeName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select EmployeeCode,EmployeeName From Employee Where EmployeeCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_EmployeeName.Text:='';
      DispInfo('该人员代码代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_EmployeeName.Text:=fieldbyname('EmployeeName').asstring;
  end;


end;

procedure TFrm_Bas_Customer_D.edt_DeptCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if Trim(Tedit(sender).text)='' then
   begin
   edt_DeptName.Text:='';
    exit;
   end;
  with AdoQry_Tmp do
  begin
    Close;
    SQL.clear;
    SQL.Add('Select DeptCode,DeptName From Dept Where DeptCode='''+TEdit(Sender).Text+'''');
    Open;
    if  eof then
    begin
      edt_DeptName.Text:='';
      DispInfo('该部门代码不存在',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
    edt_DeptName.Text:=fieldbyname('DeptName').asstring;
  end;


end;

procedure TFrm_Bas_Customer_D.Extedt_InvoiceArKmCodeNameExit(
  Sender: TObject);
begin
  inherited;
  If ActiveControl.Name = 'btn_Cancel' then exit;
  if Trim(Extedt_InvoiceArKmCodeName.text)<>'' then
  begin
    ExecuteSql(AdoQry_tmp,'select KmCode,KmName from Gl_AccountSubject'
                         +' where KmCode='+QuotedStr(Extedt_InvoiceArKmCodeName.Text),0);
    if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      Extedt_InvoiceArKmCodeName.SetFocus;
      abort;
    end;                         
    Edt_InvoiceArKmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end
  else Edt_InvoiceArKmName.Text:='';
end;

procedure TFrm_Bas_Customer_D.ExtEdt_GenerallyInvoiceArKmCodeExit(
  Sender: TObject);
begin
  inherited;
  If ActiveControl.Name = 'btn_Cancel' then exit;
  if Trim(ExtEdt_GenerallyInvoiceArKmCode.text)<>'' then
  begin
    ExecuteSql(AdoQry_tmp,'select KmCode,KmName from Gl_AccountSubject'
                         +' where KmCode='+QuotedStr(ExtEdt_GenerallyInvoiceArKmCode.Text),0);
    if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      Extedt_InvoiceArKmCodeName.SetFocus;
      abort;
    end;                         
    Edt_GInvoiceArKmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end
  else  Edt_GInvoiceArKmName.Text := '';
end;

procedure TFrm_Bas_Customer_D.ExtEdt_SepcialInvoiceArKmCodeExit(
  Sender: TObject);
begin
  inherited;
  If ActiveControl.Name = 'btn_Cancel' then exit;
  if Trim(ExtEdt_SepcialInvoiceArKmCode.text)<>'' then
  begin
    ExecuteSql(AdoQry_tmp,'select KmCode,KmName from Gl_AccountSubject'
                         +' where KmCode='+QuotedStr(ExtEdt_SepcialInvoiceArKmCode.Text),0);
    if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      TExtEdit(Sender).SetFocus;
      abort;
    end;                         
    Edt_SInvoiceArKmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end
  else  Edt_SInvoiceArKmName.Text := '';
end;

procedure TFrm_Bas_Customer_D.ExtEDT_SaleCoStkMCodeExit(Sender: TObject);
begin
  inherited;
  If ActiveControl.Name = 'btn_Cancel' then exit;
  if Trim(ExtEDT_SaleCoStkMCode.text)<>'' then
  begin
    ExecuteSql(AdoQry_tmp,'select KmCode,KmName from Gl_AccountSubject'
                         +' where KmCode='+QuotedStr(ExtEDT_SaleCoStkMCode.Text),0);
    if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      ExtEDT_SaleCoStkMCode.SetFocus;
      abort;
    end;
    ExtEDT_SaleCoStkMName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end
  else  ExtEDT_SaleCoStkMName.Text := '';
end;

procedure TFrm_Bas_Customer_D.ExtEdt_OtherSaleCoStkmCodeExit(
  Sender: TObject);
begin
  inherited;
  If ActiveControl.Name = 'btn_Cancel' then exit;
  if Trim(ExtEdt_OtherSaleCoStkmCode.text)<>'' then
  begin
    ExecuteSql(AdoQry_tmp,'select KmCode,KmName from Gl_AccountSubject'
                         +' where KmCode='+QuotedStr(ExtEdt_OtherSaleCoStkmCode.Text),0);
    if AdoQry_Tmp.RecordCount=0 then
    begin
      DispInfo('科目代码错误！',3);
      ExtEdt_OtherSaleCoStkmCode.SetFocus;
      abort;
    end;
    ExtEdt_OtherSaleCoStkmName.Text := AdoQry_Tmp.fieldbyname('KmName').AsString;
  end
  else  ExtEdt_OtherSaleCoStkmName.Text := '';
end;

end.
上一页 1 23
⌨️ 快捷键说明

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