mryhdl.pas

客户管理系统主要是以客户为基础

unit MRYHDL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, inifiles, jpeg, ExtCtrls;

type
  TFRM_YHDL = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_YHDL: TFRM_YHDL;
  dl,p : integer;
  yhmc,ppl : string;
  a : array[1..31] of string;
implementation
  uses MRCSH, MRCRM_ZJM, DATA;
{$R *.dfm}

procedure TFRM_YHDL.BitBtn2Click(Sender: TObject);
begin
  if jj = 1 then
    FRM_YHDL.Hide  
  ELSE
    Application.Terminate;
end;

procedure TFRM_YHDL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if jj = 1 then
    FRM_YHDL.Hide;
  //ELSE
   // FRM_CSH.Close;
end;

procedure TFRM_YHDL.BitBtn1Click(Sender: TObject);
var
  P:INTEGER;
begin
  with database.ADO_user do
  begin
    close;
    sql.Clear;
    sql.Add('select * from tb_user where user_name=:a and user_mm=:b and user_yhjs=:c');
    Parameters.ParamByName('a').Value := Trim(Edit1.Text);
    Parameters.ParamByName('b').Value := Trim(Edit2.Text);
    Parameters.ParamByName('c').Value := Trim(Combobox1.Text);
    open;
  end;
  if database.ADO_user.RecordCount>0 then
  begin
    yhmc := database.ADO_user.fieldbyname('user_name').AsString;
    for p := 1 to 31 do
    begin
      ppl := inttostr(p);
      a[p] := booltostr(database.ADO_user.fieldbyname(ppl).AsVariant,True);
    end;
    if jj = 1 then
    begin
      FRM_YHDL.Visible := FALSE;
      self.Close;
      //FRM_CRM.Show;
      FRM_CRM.StatusBar1.Panels.Items[1].Text := '操作员名称：  '+yhmc;
    end
    else
    begin
      FRM_YHDL.Visible := FALSE;
      SElf.Close;
      //FRM_CRM.Show;
    end;
  end
  else
  begin
    showmessage('操作员名称、密码或操作员级别不正确'+#13+'请重新输入。');
    edit1.Clear;
    edit2.Clear;
    combobox1.Text := '';
    dl := dl+1;
  end;
  if jj <> 1 then
  begin
    if dl = 4 then
    begin
        FRM_CSH.Close;
    end;
  end;

end;

procedure TFRM_YHDL.FormShow(Sender: TObject);
var
  ini : Tinifile;
  ssp : string;
begin
  if jj = 1 then
  begin
    ssp := '重新登录';
    FRM_YHDL.Caption := '重新登录';
  end
  else
  begin
    dl := 0;
    ssp := '登录';
    FRM_YHDL.Caption := '登录';
  end;
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  EDIT1.Clear;
  edit2.Clear;
  combobox1.Text := '';
  edit1.SetFocus; 
end;

procedure TFRM_YHDL.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_return then
   edit2.SetFocus;
end;

procedure TFRM_YHDL.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_return then
   combobox1.SetFocus;
end;

procedure TFRM_YHDL.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = vk_return then
    bitbtn1.SetFocus;
end;

end.