sal_qry_analyzeshiporder1_c.pas

一个MRPII系统源代码版本

    SQL.clear;
    SQL.Add('Select SaleTypeCode,SaleTypeName From SaleType '
            +' Where SaleTypeCode='''+TEdit(Sender).Text+'''');
    Open;
    {If Eof Then
    begin
      DispInfo('销售类型代码错误，请重新输入',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end
    else }
    Edt_SaleTypeNameStArt.Text :=AdoQry_tmp.fieldbyname('SaleTypeName').AsString;
  end;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleTypeCodeendExit(
  Sender: TObject);
begin
  inherited;
{  If Trim(TEdit(Sender).Text)='' Then
  begin
    DispInfo('销售类型代码不能为空!',1);
    TWinControl(Sender).SetFocus;
    Abort;
  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
      DispInfo('销售类型代码错误，请重新输入',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end
    else}
    Edt_SaleTypeNameend.Text :=AdoQry_tmp.fieldbyname('SaleTypeName').AsString;
  end;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleDeptCodeStArtExit(
  Sender: TObject);
begin
  inherited;
//  DeptCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select DeptCode,DeptName from Dept '
                      +'          where DeptCode= '''+Edt_SaleDeptCodeStArt.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_SaleDeptNameStArt.Text := AdoQry_Tmp.fieldbyname('DeptName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleDeptCodeendExit(
  Sender: TObject);
begin
  inherited;
//  DeptCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select DeptCode,DeptName from Dept '
                      +'          where DeptCode= '''+Edt_SaleDeptCodeend.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_SaleDeptNameend.Text := AdoQry_Tmp.fieldbyname('DeptName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleEmployeeCodeStArtExit(
  Sender: TObject);
begin
  inherited;
//  EmployeeCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select EmployeeCode,EmployeeName from Employee '
                      +'          where EmployeeCode= '''+Edt_SaleEmployeeCodeStArt.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_SaleEmployeeNameStArt.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;

end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleEmployeeCodeendExit(
  Sender: TObject);
begin
  inherited;
//  EmployeeCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select EmployeeCode,EmployeeName from Employee '
                      +'          where EmployeeCode= '''+Edt_SaleEmployeeCodeend.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_SaleEmployeeNameend.Text := AdoQry_Tmp.fieldbyname('EmployeeName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeStArtKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
   If key=120 Then
  CommOnHint(Sender,AdoQry_Tmp,'PayTermName','付款条款名称','PayTermCode',
             '付款条款代号',' PayTerm ');
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeendKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
   If key=120 Then
  CommOnHint(Sender,AdoQry_Tmp,'PayTermName','付款条款名称','PayTermCode',
             '付款条款代号',' PayTerm ');
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeStArtExit(
  Sender: TObject);
begin
  inherited;
{  If Trim(Edt_PayTermCodeStArt.text)='' then
  begin
    DispInfo('付款条款不能为空！',3);
    Edt_PayTermCodeStArt.SetFocus;
    Abort;
  end
  else
  begin}
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.clear;
    AdoQry_Tmp.SQL.Text:=' Select * from PayTerm where PayTermCode='''+Trim(Edt_PayTermCodeStArt.text)+''' ';
    AdoQry_Tmp.Open;
{    if AdoQry_Tmp.Eof then
    begin
      DispInfo('付款条款输入错误！',3);
      Edt_PayTermCodeStArt.SetFocus;
      Abort;
    end
    else}
     Edt_PayTermNameStArt.Text :=AdoQry_Tmp.fieldbyname('PayTermName').AsString;
//  end;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeendExit(
  Sender: TObject);
begin
  inherited;
{  If Trim(Edt_PayTermCodeend.text)='' then
  begin
    DispInfo('付款条款不能为空！',3);
    Edt_PayTermCodeend.SetFocus;
    Abort;
  end
  else
  begin}
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.clear;
    AdoQry_Tmp.SQL.Text:=' Select * from PayTerm where PayTermCode='''+Trim(Edt_PayTermCodeend.text)+''' ';
    AdoQry_Tmp.Open;
{    if AdoQry_Tmp.Eof then
    begin
      DispInfo('付款条款输入错误！',3);
      Edt_PayTermCodeend.SetFocus;
      Abort;
    end
    else}
     Edt_PayTermNameend.Text :=AdoQry_Tmp.fieldbyname('PayTermName').AsString;
//  end;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_CurrencyCodeExit(
  Sender: TObject);
begin
  inherited;
//  CurrencyCodeCheck(Sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select CurrencyCode,CurrencyName from Currency '
                      +'          where CurrencyCode= '''+Edt_CurrencyCode.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_CurrencyName.Text := AdoQry_Tmp.fieldbyname('CurrencyName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_ItemCodeStArtExit(
  Sender: TObject);
begin
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select ItemName from Item '
                      +'          where ItemCode= '''+Edt_ItemCodeStArt.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_ItemNameStArt.Text := AdoQry_Tmp.fieldbyname('ItemName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_ItemCodeendExit(
  Sender: TObject);
begin
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select ItemName from Item '
                      +'          where ItemCode= '''+Edt_ItemCodeend.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_ItemNameend.Text := AdoQry_Tmp.fieldbyname('ItemName').AsString;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleTypeCodeStArtButtonClick(
  Sender: TObject);
begin
  inherited;
    CommonHint(Sender,AdoQry_tmp,'SaleTypeName','销售类型描述','SaleTypeCode','销售类型代码',
            'SaleType');
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_SaleTypeCodeendButtonClick(
  Sender: TObject);
begin
  inherited;
    CommonHint(Sender,AdoQry_tmp,'SaleTypeName','销售类型描述','SaleTypeCode','销售类型代码',
            'SaleType');
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeStArtButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'PayTermName','付款条款名称','PayTermCode',
             '付款条款代号',' PayTerm ');
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder1_C.Edt_PayTermCodeendButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'PayTermName','付款条款名称','PayTermCode',
             '付款条款代号',' PayTerm ');
end;

end.