password.~pa

一套融入了系统营销管理思想的管理软件产品

unit Password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, fcButton, fcImgBtn, fcShapeBtn, ExtCtrls, 
  Db, Wwdatsrc, DBTables, Wwquery, wwdblook, Wwdbdlg, Mask, wwdbedit,
  DBCtrls;

type
  TfmPassword = class(TfmBaseDialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    qyCompany: TQuery;
    lcbCompanyID: TDBLookupComboBox;
    qyCompanyCompanyID: TStringField;
    dsCompany: TDataSource;
    Image1: TImage;
    Bevel1: TBevel;
    DBEdit1: TDBEdit;
    qyCompanyAttribName: TStringField;
    edPasswordCode: TDBEdit;
    edUserID: TDBEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmPassword: TfmPassword;

implementation

uses Main, DataModule, PublicFunction, Loading;

var
  iTimes : Integer;
  bAuthority, bCanExit : Boolean;

{$R *.DFM}

procedure TfmPassword.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  if (bAuthority) or (bCanExit) then
    CanClose := True
  else
    CanClose := False;
end;

procedure TfmPassword.PrepareDlg;
begin
  bAuthority := False;
  bCanExit := False;
  DM.tbInput.FieldByName('UserID').AsString := '';
  DM.tbInput.FieldByName('PasswordCode').AsString := '';
  iTimes := 0;
  qyCompany.Open;
end;

procedure TfmPassword.btnOKClick(Sender: TObject);
begin
  inherited;
  Inc(iTimes);
  bAuthority := True;
  bCanExit := False;
  with qyTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT UserID, PasswordCode, UserName ');
    SQL.Add('FROM Users ');
    SQL.Add('WHERE CompanyID = :CompanyID and UserID = :UserID ');
    ParamByName('CompanyID').AsString := DM.tbInput.FieldByName('CompanyID').AsString;
    ParamByName('UserID').AsString := DM.tbInput.FieldByName('UserID').AsString;
    Open;
  end;
  if qyTemp.FieldByName('UserID').AsString = '' then
    bAuthority := False
  else
  begin
    sUserID := qyTemp.FieldByName('UserID').AsString;
    sUserName := qyTemp.FieldByName('UserName').AsString;
  end;
  with qyTemp do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CompanyID, CompanyName, OpenningYear, ');
    SQL.Add('OpenningMonth, PeriodYear, PeriodMonth ');
    SQL.Add('FROM Company ');
    SQL.Add('WHERE CompanyID = :CompanyID ');
    ParamByName('CompanyID').AsString := DM.tbInput.FieldByName('CompanyID').AsString;
    Open;
  end;
  if qyTemp.FieldByName('CompanyID').AsString = '' then
    bAuthority := False
  else
  begin
    sStartPeriodDate := qyTemp.FieldByName('PeriodYear').AsString + '-' +
                        qyTemp.FieldByName('PeriodMonth').AsString + '-01';
    sEndPeriodDate := AddMonth(sStartPeriodDate, 1);
    sOpenningDate := qyTemp.FieldByName('OpenningYear').AsString + '-' +
                     qyTemp.FieldByName('OpenningMonth').AsString + '-01';
    sCompanyID := qyTemp.FieldByName('CompanyID').AsString;
    sCompanyName := qyTemp.FieldByName('CompanyName').AsString;
  end;
  if bAuthority then
  begin
    fmMain.Caption := 'ゅ豁秈綪