mrp_enter_oeparam.pas

一个MRPII系统源代码版本

unit Mrp_Enter_OeParam;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, Db, AdODB, StdCtrls, ExtCtrls, ComCtrls, Mask;

Type
  TFrm_Mrp_Enter_OeParam = Class(TFrm_Base_Dialog)
    Label8: TLabel;
    Cmbx_autoCloseMo: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    Edt_Overqtydeny_Percent: TEdit;
    procedure Edt_BuyerCtrlTypeChange(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btn_CancelClick(Sender: TObject);
    procedure MEdt_AutoRunPSI1Change(Sender: TObject);
    procedure Edt_Overqtydeny_PercentExit(Sender: TObject);
  private
    { Private declarations }
    FReadOnly:Boolean;
  public
   procedure InitForm(AdoConnection:TAdoConnection;ReadOnly:Boolean);
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_OeParam: TFrm_Mrp_Enter_OeParam;

implementation

{$R *.DFM}
uses Sys_Global;
{ TFrm_Bas_Param }


procedure TFrm_Mrp_Enter_OeParam.InitForm(AdoConnection: TAdoConnection;
  ReadOnly: Boolean);
var I: integer;
begin
  FReadOnly:=ReadOnly;
  AdoQry_Tmp.Connection:=AdOConnection;
  AdoQry_Tmp.Close ;
  AdoQry_Tmp.SQL.clear ;
  AdoQry_Tmp.SQL.Add('select * from MrpParam');
  AdoQry_Tmp.Open ;
  With AdoQry_Tmp do
  begin
    if Locate('MrpParamCode','autoCloseMo',[]) then
      cmbx_autoCloseMo.ItemIndex:=fieldbyname('MrpParamValueN').asinteger;
    If  Locate('MrpParamCode','Overqtydeny_Percent',[])  then
      Edt_Overqtydeny_Percent.text:=fieldbyname('MrpParamValueN').Asstring;
    
  end;
end;

procedure TFrm_Mrp_Enter_OeParam.Edt_BuyerCtrlTypeChange(Sender: TObject);
begin
  inherited;
  if not FReadOnly then
    Btn_Ok.Enabled :=True;
end;

procedure TFrm_Mrp_Enter_OeParam.btn_okClick(Sender: TObject);
var sqltext:string;
begin
  inherited;
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('autoCloseMo');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('autoCloseMo')      +','
              +quotedstr('完成后是否自动关闭订单行')+','
              +inttostr(cmbx_autoCloseMo.Itemindex)+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+inttostr(Cmbx_autoCloseMo.ItemIndex)+
               ' where MrpParamCode='''+'autoCloseMo'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;

    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('Overqtydeny_Percent');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('Overqtydeny_Percent')      +','
              +quotedstr('')+','
              +Edt_Overqtydeny_Percent.text+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+Edt_Overqtydeny_Percent.text+
               ' where MrpParamCode='''+'Overqtydeny_Percent'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
  Close;
end;

procedure TFrm_Mrp_Enter_OeParam.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=CaFree;
end;

procedure TFrm_Mrp_Enter_OeParam.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  If Key=Vk_EScApe then
    Close;
end;

procedure TFrm_Mrp_Enter_OeParam.btn_CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_Mrp_Enter_OeParam.MEdt_AutoRunPSI1Change(Sender: TObject);
begin
  inherited;
  if not FReadOnly then
    Btn_Ok.Enabled :=True;
end;

procedure TFrm_Mrp_Enter_OeParam.Edt_Overqtydeny_PercentExit(
  Sender: TObject);
begin
  inherited;
 if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF Self.Text<>'' then
  try
    StrTofloat(Edt_Overqtydeny_Percent.text);
  except
    DispInfo('请输入合法的数值！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;

end;

end.