ar_enter_startusear.pas

一个MRPII系统源代码版本

unit Ar_Enter_StartUseAr;

Interface

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

Type
  TFrm_Ar_Enter_StartUseAr = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    cmb_CashCtrl: TComboBox;
    Label2: TLabel;
    edt_Month: 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);
  private
    { Private declarations }
    FReadOnly:Boolean;
  public
   procedure InitForm(AdoConnection:TAdoConnection;ReadOnly:Boolean);
    { Public declarations }
  end;

var
  Frm_Ar_Enter_StartUseAr: TFrm_Ar_Enter_StartUseAr;
  kmCode:string;
  kmlevel:integer;
implementation

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

procedure TFrm_Ar_Enter_StartUseAr.InitForm(AdoConnection: TAdoConnection;
  ReadOnly: Boolean);
var I: integer;
    yy,mm:word;
begin
  FReadOnly:=ReadOnly;
  AdoQry_Tmp.Connection:=AdOConnection;
  Executesql(AdoQry_tmp,'select * from Ar_Param where ParamCode=''StartUseAr'' ',0);
//  edt_Month.Text:=formatdatetime('yyyy.mm',enCodedate(yy,mm,1));
  if AdoQry_Tmp.fieldbyname('ParamValueC').AsString='' then
  Edt_Month.Text := FormatDatetime('yyyy.mm',strtoDateTime(GetServerDateTime(AdoConnection)))
  else 
  Edt_Month.Text := AdoQry_Tmp.fieldbyname('ParamValueC').AsString;
  AdoQry_Tmp.Close ;
  AdoQry_Tmp.SQL.clear ;
  AdoQry_Tmp.SQL.Add('select * from Ar_Param');
  AdoQry_Tmp.Open ;
  With AdoQry_Tmp do
  begin
   if locate('ParamCode','StartUseAr',[]) then
     cmb_CashCtrl.ItemIndex:=fieldbyname('ParamValuen').asinteger
   else cmb_CashCtrl.ItemIndex:=0;
  end;
  if cmb_CashCtrl.ItemIndex=1 then
   btn_ok.Enabled:=False;
end;

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

procedure TFrm_Ar_Enter_StartUseAr.btn_okClick(Sender: TObject);
var sqltext:string;
begin
  inherited;
  if DispInfo('您真的想正式启用应收模块吗？',2)<>'y' then exit;
  sqltext:='select * from Ar_Param'
          +' where ParamCode=''StartUseAr''';
  Executesql(AdoQry_tmp,sqltext,0);
  if AdoQry_tmp.RecordCount=0 then 
    begin
      sqltext:='insert into Ar_Param(ParamCode,ParamName,ParamValuen,ParamValuec)'
              +' Values( '+quotedstr('StartUseAr')+','
              +            quotedstr('应收模块启用')+','
              +            inttostr(1)+','
              +QuotedStr(Edt_Month.Text)+' )';
      Executesql(AdoQry_tmp,sqltext,1)              ;
    end
  else
  Executesql(AdoQry_tmp,'update Ar_Param '
                      +' set ParamValuen=1, '
                      +'     ParamValuec='+QuotedStr(Edt_Month.Text)
                      +' where ParamCode=''StartUseAr''',1);
  Close;
end;

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

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

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

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

end.