unit1.pas

实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添加、删除等。移动电话管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,ClassesU,ADODB, Mask, jpeg;

type
  TTfrm_login = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    edt_name: TEdit;
    Label2: TLabel;
    btn_ok: TButton;
    btn_exit: TButton;
    btn_reg: TButton;
    edt_pwd: TMaskEdit;
    Image1: TImage;
    Label3: TLabel;
    Label4: TLabel;
    procedure btn_exitClick(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn_regClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Tfrm_login: TTfrm_login;
  inputNum:integer;
implementation
 uses Control_OperatorU,Config,Unit2,Unit3,DAHelper;
{$R *.dfm}

procedure TTfrm_login.btn_exitClick(Sender: TObject);
begin
Close;
end;

procedure TTfrm_login.btn_okClick(Sender: TObject);
var
  OpID,OpPwd,sq1:string;
  Op:TOperator;
  ADOQuery:TADOQuery;
  var year,month,day:word;
begin
  Config.ADOCon:=TADOConnection.Create(nil);
  Config.ADOCon.LoginPrompt:=false;
  Config.ADOCon.KeepConnection:=true;
  begin
    Config.ADOCon.ConnectionString:=Config.connectinStr;
    Config.ADOCon.Open;
  end;
  decodedate(now,year,month,day);
  ADOQuery:=TADOQuery.Create(nil);
  OpID:=self.edt_name.Text;
  OpPwd:=self.edt_pwd.Text;
  sq1:='select 拖欠费用 from 交费信息'+
       ' where 手机号码='+''''+Opid+''''+'and 消费月份='+''''+inttostr(month)+'''';
  Op:=TOperator.Create;
  ADOQuery:=DAHelper.ExeSqlQuery(sq1);
  Op:=Control_OperatorU.CheckOperator(OpID,OpPwd);
   //若用户名密码匹配错误，则提示并记录错误次数
  if (Op=nil) then
    begin
      MessageBox(Handle, '用户名或密码错误！', '信息', MB_ICONEXCLAMATION);
        self.edt_pwd.Text:='';
      inc(inputNum);     //用户输入密码次数加1
      if(inputNum>2)then
        begin
          MessageBox(Handle, '输入错误次数超过3次！', '信息', MB_ICONEXCLAMATION);
          Application.Terminate;
        end;
    end
  else     //用户名密码匹配成功
    begin
      if ADOQuery.RecordCount<1 then
    begin

    end
  else
    begin
      if ADOQuery.Fields[0].Value>0 then
      begin
      sq1:='你已经欠费'+IntToStr(ADOQuery.Fields[0].Value);
      //MessageBox(Handle, sq1, '信息', MB_ICONEXCLAMATION);
      showmessage(sq1);
      end;
      end;
    Form2:=TForm2.Create(self);
   // Form2.Visible:=true;   //打开程序主窗口
    Form2.CurrentUser:=Op;//保存当前用户
    Form2.SetMmenu(Op.privilege); //根据用户权限修改主菜单
//  Form2:=TForm2.Create(self);
  Form2.ShowModal;     //关闭登录窗口
   Close;
    end;

end;

procedure TTfrm_login.FormCreate(Sender: TObject);
begin
inputNum:=0;
end;

procedure TTfrm_login.btn_regClick(Sender: TObject);
begin
    Form3.Visible:=true;
end;

end.