ad_enter_adparam.pas

一个MRPII系统源代码版本

unit Ad_Enter_AdParam;

Interface

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

Type
  TFrm_Ad_Enter_AdParam = Class(TFrm_Base_Condition)
    Label1: TLabel;
    MEDT_Month: TMaskEdit;
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
     procedure Init(Connection: TAdOConnection);
    { Public declarations }
  end;

var
  Frm_Ad_Enter_AdParam: TFrm_Ad_Enter_AdParam;

implementation
Uses Sys_Global;
{$R *.DFM}

procedure TFrm_Ad_Enter_AdParam.btn_okClick(Sender: TObject);
var
  Add:Boolean;
begin
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Add('select ParamCode from Ad_Param Where ParamCode=''StartUseMonth''');
    Open;
    Add:=RecordCount=0;
    Close;
    Sql.clear;
    if(Add)then
    begin
      SQL.Text:='Insert into Ad_Param(ParamCode,ParamName,ParamValueC)'
        +' Values('
        +' ''StartUseMonth'''
        +',''模块起用月份'''
        +','''+MEDT_Month.Text+''''
        +')';
    end else
    begin
      SQL.Text:='Update Ad_Param'
        +' Set ParamValueC='''+MEDT_Month.Text+''''
        +' Where ParamCode=''StartUseMonth'' ';
    end;
    try
      ExecSQL;
      DispInfo('数据保存成功',1);
      Self.ModalResult:=MrOK;
    except
      DispInfo('数据保存失败',1);
    end;
  end;
end;

procedure TFrm_Ad_Enter_AdParam.Init(Connection: TAdOConnection);
begin
  AdoQry_Tmp.Connection:=Connection;
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Add('select ParamValueC from Ad_Param Where ParamCode=''StartUseMonth''');
    Open;
    If RecordCount=0 Then MEDT_Month.Text:=FormatDateTime('yyyy.mm',Date) Else MEDT_Month.Text:=fieldbyname('ParamValueC').AsString;
  end;

end;

procedure TFrm_Ad_Enter_AdParam.FormCreate(Sender: TObject);
begin
//
end;

end.