ap_enter_startuseap.pas

一个MRPII系统源代码版本

unit Ap_Enter_StartUseAp;

Interface

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

Type
  TFrm_Ap_Enter_StartUseAp = Class(TFrm_Base_Condition)
    Edt_StArtMonth: TEdit;
    CmBx_IsStArt: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure btn_CancelClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FIsEmpty:integer;  //0:为空；1：不为空；
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection); Override;
  end;

var
  Frm_Ap_Enter_StartUseAp: TFrm_Ap_Enter_StartUseAp;

implementation

uses Sys_Global;

{$R *.DFM}

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

procedure TFrm_Ap_Enter_StartUseAp.SetDBConnect(
  AdOConnection: TAdOConnection);
begin
  inherited;
  Caption:='应付模块启用';
  with AdoQry_Tmp do
  begin
    Close;
    sql.clear;
    sql.text:=' select * from ApParam'
             +' where ApParamCode=''StartUseAp'' and ApParamName=''应付模块启用''';
    open;
    if isempty then
    begin
      FIsEmpty:=0;
      Edt_StArtMonth.text:=formatdatetime('yyyy.mm',date());
      CmBx_IsStArt.Itemindex:=0;
    end
    else
    begin
      FIsEmpty:=1;
      if (fieldbyname('ApParamValueN').asinteger=0) or (fieldbyname('ApParamValueN').asstring='') then
      begin
        Edt_StArtMonth.text:=formatdatetime('yyyy.mm',date());
        CmBx_IsStArt.Itemindex:=0;
      end
      else
      begin
        btn_ok.enabled:=False;
        Edt_StArtMonth.text:=formatdatetime('yyyy.mm',strtodate(fieldbyname('ApParamValueC').asstring+'.01'));
        CmBx_IsStArt.Itemindex:=fieldbyname('ApParamValueN').asinteger;
        CmBx_IsStArt.Enabled :=False;
      end;
    end;
  end;

end;

procedure TFrm_Ap_Enter_StartUseAp.btn_okClick(Sender: TObject);
begin
  inherited;
  if DispInfo('您真的想正式启用应付模块吗',2)='y' then
  begin
    dbconnect.beginTrans ;
    try
      if FIsEmpty=0 then
        Executesql(AdoQry_tmp,' insert ApParam (ApParamCode,ApParamName) Values(''StartUseAp'',''应付模块启用'') ' ,1);
      Executesql(AdoQry_tmp,' update ApParam '
                           +' set ApParamValueN=1, '
                           +' ApParamValueC='''+Trim(Edt_StArtMonth.text)+''''
                           +' where ApParamCode=''StartUseAp'' and ApParamName=''应付模块启用''' ,1);
      dbconnect.CommitTrans ;
      DispInfo('模块启用成功',3);
      //Close;
    except
     dbconnect.RollBackTrans ;
     DispInfo('模块启用失败',3);
     abort;
    end;
    btn_ok.Enabled :=False;
    if CmBx_IsStArt.Itemindex=0 then
     CmBx_IsStArt.Itemindex:=1;
  end;
end;

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

procedure TFrm_Ap_Enter_StartUseAp.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Enter_StartUseAp:=nil;
end;

end.