📄 sal_qry_analyzesaleorder4_c.pas

📁 一个MRPII系统源代码版本
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Sal_Qry_AnalyzeSaleOrder4_C;

Interface

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

Type
  TFrm_Sal_Qry_AnalyzeSaleOrder4_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;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Edt_ItemNameStArt: TEdit;
    Edt_ItemNameend: TEdit;
    Edt_SaleTypeCodeStArt: TLinkEdit;
    Edt_SaleTypeCodeend: TLinkEdit;
    Edt_CustomerCodeStArt: TLinkEdit;
    Edt_CustomerCodeend: TLinkEdit;
    Edt_ItemCodeStArt: TLinkEdit;
    Edt_ItemCodeend: TLinkEdit;
    Edt_SaleDeptCodeStArt: TLinkEdit;
    Edt_SaleDeptCodeend: 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_ItemCodeStArtExit(Sender: TObject);
    procedure Edt_ItemCodeendExit(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_AnalyzeSaleOrder4_C: TFrm_Sal_Qry_AnalyzeSaleOrder4_C;

implementation

uses Sal_Qry_AnalyzeSaleOrder4, Sys_Global;

{$R *.DFM}

procedure TFrm_Sal_Qry_AnalyzeSaleOrder4_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Frm_Sal_Qry_AnalyzeSaleOrder4.CreateDateStArt:=MEdt_CreateDateStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.CreateDateend:=MEdt_CreateDateend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.CustomerCodeStArt:=Edt_CustomerCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.CustomerCodeend:=Edt_CustomerCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SloNoStArt:=Edt_SloNoStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SloNoend:=Edt_SloNoend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleTypeCodeStArt:=Edt_SaleTypeCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleTypeCodeend:=Edt_SaleTypeCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleDeptCodeStArt:=Edt_SaleDeptCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleDeptCodeend:=Edt_SaleDeptCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleEmployeeCodeStArt:=Edt_SaleEmployeeCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.SaleEmployeeCodeend:=Edt_SaleEmployeeCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.PayTermCodeStArt:=Edt_PayTermCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.PayTermCodeend:=Edt_PayTermCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.ItemCodeStArt:=Edt_ItemCodeStArt.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.ItemCodeend:=Edt_ItemCodeend.Text;
  Frm_Sal_Qry_AnalyzeSaleOrder4.CurrencyCode:=Edt_CurrencyCode.Text;
  ConditionHint:='下单日期 从：'+MEdt_CreateDateStArt.Text+'到：'+MEdt_CreateDateend.Text
                +'/销售客户标识 从:' +Edt_CustomerCodeStArt.Text+ '到：'+Edt_CustomerCodeend.Text
                +'/物料标识 从:' +Edt_ItemCodeStArt.Text+ '到：'+Edt_ItemCodeend.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;
  Frm_Sal_Qry_AnalyzeSaleOrder4.Lbl_Condition.Caption:=ConditionHint;
  self.ModalResult:=mrOk;
end;

procedure TFrm_Sal_Qry_AnalyzeSaleOrder4_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_ItemCodeStArt.Text:='';
  Edt_ItemCodeend.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_ItemNameStArt.Text:='';
  Edt_ItemNameend.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_AnalyzeSaleOrder4_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_AnalyzeSaleOrder4_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_AnalyzeSaleOrder4_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_AnalyzeSaleOrder4_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_AnalyzeSaleOrder4_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;
12 下一页
⌨️ 快捷键说明

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