sfc_mnoutqry_c.pas

一个MRPII系统源代码版本

unit Sfc_MnOutQry_C;

Interface

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

Type
  TFrm_Sfc_MnOutQry_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MEdt_StArtDate: TMaskEdit;
    MEdt_EndDate: TMaskEdit;
    ExtEdt_DeptCode: TLinkEdit;
    Lbl_DeptName: TEdit;
    Label5: TLabel;
    LEdt_StArt_MoNo: TLinkEdit;
    Label6: TLabel;
    LEdt_End_MoNO: TLinkEdit;
    Label7: TLabel;
    Cmbx_LineStatus: TComboBox;
    Label8: TLabel;
    LEdt_StArt_Ite_ItemCode: TLinkEdit;
    LEdt_End_Ite_ItemCode: TLinkEdit;
    Label9: TLabel;
    procedure MEdt_EndDateExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure ExtEdt_DeptCodeExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    FStArtDate,FendDate,FDeptCode,FStArtMoNo,
    FStArtItemCode,FendItemCode,FendMoNo,FLineStatus:String;
    { Public declarations }
  end;

var
  Frm_Sfc_MnOutQry_C: TFrm_Sfc_MnOutQry_C;

implementation
Uses Sys_Global;
{$R *.DFM}

procedure TFrm_Sfc_MnOutQry_C.MEdt_EndDateExit(Sender: TObject);
begin
  inherited;
  DateCheck(Sender);
  If StrToDate(Medt_StArtDate.text)>StrToDate(Medt_EndDate.Text) then
  begin
    DispInfo('终止日期不能小于起始日期！',1);
    Medt_EndDate.SetFocus;
    Abort;
  end;
end;

procedure TFrm_Sfc_MnOutQry_C.FormActivate(Sender: TObject);
begin
  inherited;
  Medt_StArtDate.Text:=FormatDateTime('yyyy.mm.dd',Date()-30);
  Medt_EndDate.Text:=FormatDateTime('yyyy.mm.dd',Date());
  ExtEdt_DeptCode.SetFocus;
end;

procedure TFrm_Sfc_MnOutQry_C.btn_okClick(Sender: TObject);
begin
  inherited;
  FStArtDate:=Trim(MEdt_StArtDate.Text);
  FendDate:=Trim(MEdt_EndDate.Text);
  FDeptCode:=Trim(ExtEdt_DeptCode.Text);
  FStArtMoNO:=Trim(LEdt_StArt_MoNO.Text);
  FendMoNo:=Trim(LEdt_End_MoNo.Text);
  FStArtItemCode:=Trim(LEdt_StArt_Ite_ItemCode.Text);
  FendItemCode:=Trim(LEdt_End_Ite_ItemCode.Text);
  FLineStatus:=GetCode(Cmbx_LineStatus.Text);
  ConditionHint:='生产部门：'+ExtEdt_DeptCode.Text+' '+Lbl_DeptName.text
                +' 生产订单号从'+FStArtMONo+'到'+FendMoNo
                +' 父项物料代码从'+FStArtItemCode+'到'+FendItemCode
                +' 订单行状态='+Trim(Cmbx_LineStatus.Text)
                +' 起始日期：'+MEdt_StArtDate.Text+' 终止日期：'+MEdt_EndDate.Text;
  ModalResult:=Mrok;
end;

procedure TFrm_Sfc_MnOutQry_C.ExtEdt_DeptCodeExit(Sender: TObject);
begin
  inherited;
  If ActiveControl.Name='btn_Cancel' Then
    Exit;
  If Trim(TlinkEdit(Sender).Text)='' Then
    Exit;
  with AdoQry_tmp do
  begin
    Close;
    sql.text:='select DeptName from Dept where DeptCode='+QuotedStr(ExtEdt_DeptCode.Text);
    open;
    if not eof then
      Lbl_DeptName.Text:=fieldbyname('DeptName').AsString
    else
    begin
      DispInfo('部门代码有误',1);
      Twincontrol(Sender).SetFocus;
      Abort;
    end;
  end;
end;

procedure TFrm_Sfc_MnOutQry_C.FormCreate(Sender: TObject);
begin
  inherited;
  Cmbx_LineStatus.ItemIndex:=1;
end;

end.