ad_enter_startusead.pas

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

unit Ad_Enter_StartUseAd;

Interface

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

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

var
  Frm_Ad_Enter_StartUseAd: TFrm_Ad_Enter_StartUseAd;

implementation
Uses Sys_Global;
{$R *.DFM}

procedure TFrm_Ad_Enter_StartUseAd.btn_okClick(Sender: TObject);
var
  Add:Boolean;
  StrStArMonth:String;
begin
  If DispInfo('您真的想正式启用固定资产模块吗？',2)='n' Then
    Abort;

  With AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Add('Select ParamCode From Ad_Param Where ParamCode=''StartUseAd''');
    Open;
    Add:=RecordCount=0;
    Close;
    Sql.clear;
    if(Add)then
      begin
      //  SQL.Add('Select GetDate() As ParamValueC');
      //  Open;
      //  StrStArMonth:=Copy(fieldbyname('ParamValueC').AsString,1,7);
        StrStArMonth := MEdt_Month.Text;
        Close;
        Sql.clear;
        SQL.Text:='Insert Into Ad_Param(ParamCode,ParamName,ParamValueN,ParamValueC) '+
                              ' Values(''StartUseAd'',''模块启用月份'',1,'''+StrStArMonth+''') '+
                  'Exec Dbo.Init_AdModule ';
      end
    Else begin
      SQL.Text:='Update Ad_Param'
        +' Set ParamValueN='''+IntToStr(Cmbx_StartUse.Itemindex)+''''
        +' Where ParamCode=''StartUseAd'' ';
    end;
    Try
      ExecSQL;
      DispInfo('模块启用成功',1);
      Self.ModalResult:=MrOK;
      Cmbx_StartUse.ItemIndex:=1;
      Cmbx_StartUse.Enabled:=False;
      MEdt_Month.Enabled := False;
      Btn_ok.Enabled:=False;
    Except
      DispInfo('模块启用失败',1);
    end;
  end;
end;

procedure TFrm_Ad_Enter_StartUseAd.Init(Connection: TAdOConnection);
begin
  AdoQry_Tmp.Connection:=Connection;
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Add('select * from Ad_Param Where ParamCode=''StartUseAd''');
    Open;
    If RecordCount=0 Then
    begin
      Close;
      Sql.clear;
      SQL.Add('Select GetDate() As ParamValueC');
      Open;
      MEDT_Month.Text:=Copy(fieldbyname('ParamValueC').AsString,1,7);
      MEdt_Month.Enabled := True;
      Cmbx_StartUse.ItemIndex:=0;
    end
    Else begin
       MEDT_Month.Text:=fieldbyname('ParamValueC').AsString;
       Cmbx_StartUse.ItemIndex:=fieldbyname('ParamValueN').AsInteger;
       IF fieldbyname('ParamValueN').AsInteger=1 Then
          Btn_ok.Enabled:=False;
    end;
  end;
end;

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

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

end.