frmloginunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmLoginUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;

type
  TfrmCOMP = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCOMP: TfrmCOMP;

implementation

uses dmUnit, frmUserLoginUnit;

{$R *.dfm}

procedure TfrmCOMP.FormShow(Sender: TObject);
begin
  dm.cdsCOMP.Active:=True;
end;

procedure TfrmCOMP.BitBtn3Click(Sender: TObject);
var
  s:string;
begin
  dm.COMPNO:=dm.cdsCOMP.FieldByName('COMPNO').AsString;

  try
    dm.cdsPSWD.Active:=False;
    s:='Select * from pswd where compno='''+dm.cdsCOMP.fieldbyname('compNO').AsString+'''';
    dm.cdsPSWD.SQL.Clear;
    dm.cdsPSWD.SQL.Add(s);
    dm.cdsPSWD.Active:=True;

    if not assigned(frmUserLogin) then
       frmUserLogin:=tfrmUserLogin.Create(self);
       frmUserLogin.wwUser.Refresh;
    frmUserLogin.ShowModal;
    if frmUserlogin.ModalResult=mrOK then
      begin
        dm.Login:=True;
        close;
      end;
  except
    showMessage('连接不通');
  end;
end;

procedure TfrmCOMP.BitBtn4Click(Sender: TObject);
begin
  close;
end;

end.