inv_params_h.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 235 行

unit Inv_Params_H;

Interface

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

Type
  TFrm_Inv_Params_H = Class(TFrm_Base_Dialog)
    CmBx_Oncheckfullin: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    cmbx_CheckSaleMaterial: TComboBox;
    Label3: TLabel;
    cmbx_OtherIncheck: TComboBox;
    Label4: TLabel;
    cmbx_Print: TComboBox;
    Label5: TLabel;
    Edit1: TEdit;
    procedure btn_okClick(Sender: TObject);
    procedure CmBx_OncheckfullinChange(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmbx_CheckSaleMaterialChange(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure cmbx_PrintChange(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure InitForm(AdoConnection:TAdoConnection);
  end;

var
  Frm_Inv_Params_H: TFrm_Inv_Params_H;

implementation

uses Sys_Global;

{$R *.DFM}

{ TFrm_Inv_Params_H }

procedure TFrm_Inv_Params_H.InitForm(AdoConnection: TAdoConnection);
begin
  AdoQry_Tmp.Connection:=AdOConnection;
  AdoQry_Tmp.Close ;
  AdoQry_Tmp.SQL.clear ;
  AdoQry_Tmp.SQL.Add('select * from InvParam');
  AdoQry_Tmp.Open ;
  With AdoQry_Tmp do
  begin
    if Locate('InvParamCode','Oncheckfullin',[]) then
      CmBx_Oncheckfullin.ItemIndex:=fieldbyname('InvValuen').asinteger;
    if Locate('InvParamCode','checkSaleMaterial',[]) then
      cmbx_CheckSaleMaterial.ItemIndex:=fieldbyname('InvValuen').asinteger;
    if Locate('InvParamCode','OtherIncheck',[]) then
      cmbx_OtherIncheck.ItemIndex:=fieldbyname('InvValuen').asinteger;
    if Locate('InvParamCode','mnListpAper',[]) then
      cmbx_Print.ItemIndex:=fieldbyname('InvValuen').asinteger;

  end;
   with AdoQry_tmp do
   begin
     Close;
     sql.text:='select InvValuec from InvParam where InvParamCode=''PchInOrderSignIn''';
     open;
     Edit1.text :=fieldbyname('InvValuec').asstring;
     Close;
   end;
  btn_ok.Enabled :=False;
end;

procedure TFrm_Inv_Params_H.btn_okClick(Sender: TObject);
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    sql.clear;
    sql.text:=' select * from InvParam  where InvParamCode=''Oncheckfullin''';
    open;
    if not eof then
    begin
      Close ;
      SQL.clear ;
      SQL.Add('Update InvParam Set InvValuen='+inttostr(CmBx_Oncheckfullin.ItemIndex)+
        ' where InvParamCode='''+'Oncheckfullin'+'''');
      ExecSql;
    end
    else
    begin
      Close;
      sql.text:='Insert InvParam(InvParamCode,InvParamName,InvValueN,InvValuec)'+
                ' Values('+'''checkSaleMaterial'''+','+'''质检判定结果是否全部入库'''+','+inttostr(CmBx_Oncheckfullin.ItemIndex)+','+
                ''' '''+')';
      execsql;
    end;
    Close;
    sql.clear;
    sql.text:=' select * from InvParam  where InvParamCode=''checkSaleMaterial''';
    open;
    if not eof then
    begin
      Close ;
      SQL.clear ;
      SQL.Add('Update InvParam Set InvValuen='+inttostr(cmbx_CheckSaleMaterial.ItemIndex)+
        ' where InvParamCode='''+'checkSaleMaterial'+'''');
      ExecSql;
    end
    else
    begin
      Close;
      sql.text:='Insert InvParam(InvParamCode,InvParamName,InvValueN,InvValuec)'+
                ' Values('+'''checkSaleMaterial'''+','+'''材料销售是否需要核定'''+','+inttostr(cmbx_CheckSaleMaterial.ItemIndex)+','+
               ''' '''+')';
      execsql;
    end;
    Close;
    sql.clear;
    sql.text:=' select * from InvParam  where InvParamCode=''OtherIncheck''';
    open;
    if not eof then
    begin
      Close;
      SQL.clear ;
      SQL.Add('Update InvParam Set InvValuen='+inttostr(cmbx_OtherIncheck.ItemIndex)+
        ' where InvParamCode='''+'OtherIncheck'+'''');
      ExecSql;
    end
    else
    begin
      Close;
      sql.text:='Insert InvParam(InvParamCode,InvParamName,InvValueN,InvValuec)'+
                ' Values('+'''OtherIncheck'''+','+'''其他入库是否需要核价'''+','+inttostr(cmbx_OtherIncheck.ItemIndex)+','+
                ''' '''+')';
      execsql;
    end;
    Close;
    sql.clear;
    sql.text:=' select * from InvParam  where InvParamCode=''mnListpAper''';
    open;
    if not eof then
    begin
      Close;
      SQL.clear ;
      SQL.Add('Update InvParam Set InvValuen='+inttostr(cmbx_Print.ItemIndex)+
        ' where InvParamCode='''+'mnListpAper'+'''');
      ExecSql;
    end
    else
    begin
       Close;
       sql.text:='Insert InvParam(InvParamCode,InvParamName,InvValueN,InvValuec)'+
                 ' Values('+'''mnListpAper'''+','+'''清单领料打印纸'''+','+inttostr(cmbx_Print.ItemIndex)+','+
                 ''' '''+')';
       execsql;
    end;
    Close;
    sql.clear;
    sql.text:=' select * from InvParam  where InvParamCode=''PchInOrderSignIn''';
    open;
    if not eof then
    begin
      Close;
      SQL.clear ;
      SQL.Add('Update InvParam Set InvValuec='''+Trim(edit1.text)+''''+
        ' where InvParamCode='''+'PchInOrderSignIn'+'''');
      ExecSql;
    end
    else
    begin
       Close;
       sql.text:='Insert InvParam(InvParamCode,InvParamName,InvValueN,InvValuec)'+
                 ' Values('+'''PchInOrderSignIn'''+','+'''采购入库单签名标签'''+','+'0'+','+
                 edit1.text+')';
       execsql;
    end;
  end;
  DispInfo('参数设置成功！',3);
  btn_ok.Enabled :=False;
end;

procedure TFrm_Inv_Params_H.CmBx_OncheckfullinChange(Sender: TObject);
begin
  inherited;
  if not  btn_ok.enabled then
    btn_ok.enabled:=True;
end;

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

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

procedure TFrm_Inv_Params_H.cmbx_CheckSaleMaterialChange(Sender: TObject);
begin
  inherited;
  if not  btn_ok.enabled then
    btn_ok.enabled:=True;
end;

procedure TFrm_Inv_Params_H.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Inv_Params_H:=nil;
end;

procedure TFrm_Inv_Params_H.cmbx_PrintChange(Sender: TObject);
begin
  inherited;
  if not  btn_ok.enabled then
    btn_ok.enabled:=True;
end;

procedure TFrm_Inv_Params_H.Edit1Change(Sender: TObject);
begin
  inherited;
  if not  btn_ok.enabled then
    btn_ok.enabled:=True;
end;

end.