📄 sal_qry_totalsaleorder2_c.pas

📁 一个MRPII系统源代码版本
💻 PAS
字号:
unit Sal_Qry_TotalSaleOrder2_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Db, AdODB, StdCtrls, Mask, linkedit;

Type
  TFrm_Sal_Qry_TotalSaleOrder2_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    MEdt_CreateDateStArt: TMaskEdit;
    MEdt_CreateDateend: TMaskEdit;
    Edt_CustomerNameStArt: TEdit;
    Edt_CustomerNameend: TEdit;
    Edt_SloNoStArt: TEdit;
    Edt_SloNoend: TEdit;
    Edt_SaleTypeNameStArt: TEdit;
    Edt_SaleTypeNameend: TEdit;
    Edt_SaleDeptNameStArt: TEdit;
    Edt_SaleDeptNameend: TEdit;
    Edt_SaleEmployeeNameStArt: TEdit;
    Edt_SaleEmployeeNameend: TEdit;
    Edt_PayTermNameStArt: TEdit;
    Edt_PayTermNameend: TEdit;
    Edt_CurrencyName: TEdit;
    Edt_SaleDeptCodeStArt: TLinkEdit;
    Edt_SaleDeptCodeend: TLinkEdit;
    Edt_CustomerCodeStArt: TLinkEdit;
    Edt_CustomerCodeend: TLinkEdit;
    Edt_SaleTypeCodeStArt: TLinkEdit;
    Edt_SaleTypeCodeend: TLinkEdit;
    Edt_SaleEmployeeCodeStArt: TLinkEdit;
    Edt_SaleEmployeeCodeend: TLinkEdit;
    Edt_PayTermCodeStArt: TLinkEdit;
    Edt_PayTermCodeend: TLinkEdit;
    Edt_CurrencyCode: TLinkEdit;
    procedure btn_okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edt_CustomerCodeStArtExit(Sender: TObject);
    procedure Edt_CustomerCodeendExit(Sender: TObject);
    procedure Edt_SaleTypeCodeStArtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_SaleTypeCodeendKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_SaleTypeCodeStArtExit(Sender: TObject);
    procedure Edt_SaleTypeCodeendExit(Sender: TObject);
    procedure Edt_SaleDeptCodeStArtExit(Sender: TObject);
    procedure Edt_SaleDeptCodeendExit(Sender: TObject);
    procedure Edt_SaleEmployeeCodeStArtExit(Sender: TObject);
    procedure Edt_SaleEmployeeCodeendExit(Sender: TObject);
    procedure Edt_PayTermCodeStArtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_PayTermCodeendKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edt_PayTermCodeStArtExit(Sender: TObject);
    procedure Edt_PayTermCodeendExit(Sender: TObject);
    procedure Edt_CurrencyCodeExit(Sender: TObject);
    procedure Edt_SaleTypeCodeStArtButtonClick(Sender: TObject);
    procedure Edt_SaleTypeCodeendButtonClick(Sender: TObject);
    procedure Edt_PayTermCodeStArtButtonClick(Sender: TObject);
    procedure Edt_PayTermCodeendButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Sal_Qry_TotalSaleOrder2_C: TFrm_Sal_Qry_TotalSaleOrder2_C;

implementation

uses Sal_Qry_TotalSaleOrder2, Sys_Global;

{$R *.DFM}

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Frm_Sal_Qry_TotalSaleOrder2.CreateDateStArt:=MEdt_CreateDateStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.CreateDateend:=MEdt_CreateDateend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.CustomerCodeStArt:=Edt_CustomerCodeStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.CustomerCodeend:=Edt_CustomerCodeend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SloNoStArt:=Edt_SloNoStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SloNoend:=Edt_SloNoend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleTypeCodeStArt:=Edt_SaleTypeCodeStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleTypeCodeend:=Edt_SaleTypeCodeend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleDeptCodeStArt:=Edt_SaleDeptCodeStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleDeptCodeend:=Edt_SaleDeptCodeend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleEmployeeCodeStArt:=Edt_SaleEmployeeCodeStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.SaleEmployeeCodeend:=Edt_SaleEmployeeCodeend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.PayTermCodeStArt:=Edt_PayTermCodeStArt.Text;
  Frm_Sal_Qry_TotalSaleOrder2.PayTermCodeend:=Edt_PayTermCodeend.Text;
  Frm_Sal_Qry_TotalSaleOrder2.CurrencyCode:=Edt_CurrencyCode.Text;
  ConditionHint:='下单日期 从：'+MEdt_CreateDateStArt.Text+'到：'+MEdt_CreateDateend.Text
                +'/客户标识 从:' +Edt_CustomerCodeStArt.Text+ '到：'+Edt_CustomerCodeend.Text
                +'/销售订单号 从:'+Edt_SloNoStArt.Text+ '到：'+Edt_SloNoend.Text
                +'/销售类型标识 从:'+Edt_SaleTypeCodeStArt.Text+ '到：'+Edt_SaleTypeCodeend.Text
                +'/销售部门标识 从:'+Edt_SaleDeptCodeStArt.Text+ '到：'+Edt_SaleDeptCodeend.Text
                +'/营销业务员标识 从:'+Edt_SaleEmployeeCodeStArt.Text+ '到：'+Edt_SaleEmployeeCodeend.Text
                +'/付款条款标识 从:'+Edt_PayTermCodeStArt.Text+ '到：'+Edt_PayTermCodeend.Text
                +'/货币标识 :'+Edt_CurrencyCode.Text;


  self.ModalResult:=mrOk;
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.FormShow(Sender: TObject);
begin
  inherited;
  MEdt_CreateDateStArt.Text := FormatDateTime('YYYY.MM.DD',Date()-90);
  MEdt_CreateDateend.Text := FormatDateTime('YYYY.MM.DD',Date());
  Edt_CustomerCodeStArt.Text:='';
  Edt_CustomerCodeend.Text:='ZZZZZZ';
  Edt_SloNoStArt.Text:='';
  Edt_SloNoend.Text:='ZZZZZZ';
  Edt_SaleTypeCodeStArt.Text:='';
  Edt_SaleTypeCodeend.Text:='ZZZZZZ';
  Edt_SaleDeptCodeStArt.Text:='';
  Edt_SaleDeptCodeend.Text:='ZZZZZZ';
  Edt_SaleEmployeeCodeStArt.Text:='';
  Edt_SaleEmployeeCodeend.Text:='ZZZZZZ';
  Edt_PayTermCodeStArt.Text:='';
  Edt_PayTermCodeend.Text:='ZZZZZZ';

  Edt_CustomerNameStArt.Text:='';
  Edt_CustomerNameend.Text:='';
  Edt_SaleTypeNameStArt.Text:='';
  Edt_SaleTypeNameend.Text:='';
  Edt_SaleDeptNameStArt.Text:='';
  Edt_SaleDeptNameend.Text:='';
  Edt_SaleEmployeeNameStArt.Text:='';
  Edt_SaleEmployeeNameend.Text:='';
  Edt_PayTermNameStArt.Text:='';
  Edt_PayTermNameend.Text:='';

  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text :='Select Top 1 * from Currency';
  AdoQry_Tmp.Open ;
  Edt_CurrencyCode.Text:=AdoQry_Tmp.fieldbyname('CurrencyCode').AsString;
  Edt_CurrencyName.Text:=AdoQry_Tmp.fieldbyname('CurrencyName').AsString;
  MEdt_CreateDateStArt.SetFocus;
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.Edt_CustomerCodeStArtExit(
  Sender: TObject);
begin
  inherited;
//  CustomerCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select CustomerCode,CustomerName from Customer '
                      +'          where CustomerCode= '''+Edt_CustomerCodeStArt.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_CustomerNameStArt.Text := AdoQry_Tmp.fieldbyname('CustomerName').AsString;
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.Edt_CustomerCodeendExit(
  Sender: TObject);
begin
  inherited;
//  CustomerCodeCheck(sender);
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text:=' Select CustomerCode,CustomerName from Customer '
                      +'          where CustomerCode= '''+Edt_CustomerCodeend.Text+''' ';
  AdoQry_Tmp.Open;
  Edt_CustomerNameend.Text := AdoQry_Tmp.fieldbyname('CustomerName').AsString;
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.Edt_SaleTypeCodeStArtKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  If (Key=120) Then
    CommonHint(Sender,AdoQry_tmp,'SaleTypeName','销售类型描述','SaleTypeCode','销售类型代码',
            'SaleType');
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.Edt_SaleTypeCodeendKeyDown(
  Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  If (Key=120) Then
    CommonHint(Sender,AdoQry_Tmp,'SaleTypeName','销售类型描述','SaleTypeCode','销售类型代码',
            'SaleType');
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_C.Edt_SaleTypeCodeStArtExit(
  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_SaleTypeNameStArt.Text :=AdoQry_tmp.fieldbyname('SaleTypeName').AsString;
  end;
end;

procedure TFrm_Sal_Qry_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_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_TotalSaleOrder2_C.Edt_SaleTypeCodeStArtButtonClick(
  Sender: TObject);
begin
  inherited;
   CommonHint(Sender,AdoQry_Tmp,'SaleTypeName','销售类型描述','SaleTypeCode','销售类型代码',
            'SaleType');
end;

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

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

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

end.
⌨️ 快捷键说明

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