unit_login_shiyong.~pas

此代码为企业原料管理代码

unit Unit_Login_shiyong;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Db, DBTables, Mask, DBCtrls;

type
  TForm_Login_shiyong = class(TForm)
    Edit_Pass: TEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_exe: TQuery;
    Panel1: TPanel;
    Qry_lastture: TQuery;
    Qry_gailastflag: TQuery;
    DBEdit1_jingao: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    Panel3: TPanel;
    DBEdit1: TDBEdit;
    Button1: TButton;
    Panel2: TPanel;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel2DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
  private
    { Private declarations }
    checkTimes:integer;
  public
    { Public declarations }
  end;

var
  Form_Login_shiyong: TForm_Login_shiyong;
  mima,jingao:string;

implementation

uses Unit_Main, Unit_Mater_Main, Unit_Mater_tishi;

{$R *.DFM}

procedure TForm_Login_shiyong.BitBtn1Click(Sender: TObject);
 begin
   with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 人员登陆表');
    open;
    if recordcount = 0 then
    begin
      showmessage('为了系统安全 , 请有关人员尽快注册!');
      form_Main.show;
      exit;
    end; //if
   end;
  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 人员登陆表 where 密码 = :v1  ');
    parambyname('v1').asstring:= Edit_Pass.text;
   // parambyname('v2').asstring:='总经理';
    open;
    if recordcount = 0 then
    begin
      showmessage('密码错误！');
      Edit_Pass.SetFocus;
      Edit_Pass.text:='';
      exit;
    end; //if
    if fieldbyname('职务').asstring='其他人员' then
      begin
      showmessage('密码错误!');
      Edit_Pass.SetFocus;
      Edit_Pass.text:='';
      exit;
    end;
    while not eof do
    begin
      if (Edit_Pass.text = fieldbyname('密码').asstring) and (jingao='0') then
      begin
    
        Form_Main.show;
        exit;
      end; //if
      next;
    end; //while

  end; //with

   inc(checkTimes);

   if checkTimes = 3 then
   begin
     showmessage('3次输入密码错误!');
     form_main.WindowState:= wsNormal;
     form_main.close;
   end
   else
   begin
     showmessage('密码错误!');
    // Edit_Pass.setfocus;
     Edit_Pass.text:='';
   end; //if

end;

procedure TForm_Login_shiyong .FormShow(Sender: TObject);
begin
   jingao:='0' ;
  //ComboBox_ID.ItemIndex := 0 ;
  checkTimes:=0;
  Edit_Pass.text:='';
  //Edit_Pass.SetFocus;
  table1.Open;
  table1.First;
  if DBEdit1.text<>'（耶）' then
  begin
  if DBEdit1_jingao.text='' then
     begin
      table1.edit;
      DBEdit1_jingao.text:=datetostr(date);
      table1.Post;
     end;
  if (table1.FieldByName('填表日期').asdatetime+120 <= date) or (date>=strtodate('2003-04-01')) then
     begin
      //Edit_Pass.Visible:=false;
      jingao:='1';
      showmessage('试用期时间已到，如需要此系统，付款后请拨打电话：[phone]。'+#13+#13+'给密码后可恢复继续使用！');
      exit;
     end;
     if (table1.FieldByName('填表日期').asdatetime+100 <= date) or (date+20>=strtodate('2003-04-01'))then
     begin
      showmessage('试用期马上就要到了，如需要此系统，请立即付款，付款后请拨打电话：'+#13+#13+'027-87446413。否则，到时系统将删除库内的所有数据和资料！');
      jingao:='0';
     end;

  end;//yi xia shi mi ma xiang tong
  //Edit_Pass.Visible:=true;
  jingao:='0';
  table1.Close;
end;

procedure TForm_Login_shiyong.BitBtn2Click(Sender: TObject);
begin
  table1.Close;
  Form_Main.WindowState:=wsNormal;
  application.Terminate;
end;

procedure TForm_Login_shiyong.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   table1.Close;
   Form_Main.WindowState:=wsNormal;
   application.Terminate;
end;

procedure TForm_Login_shiyong.Panel2DblClick(Sender: TObject);
begin
{
 if Edit_Pass.Text<>'dz14420b' then
 exit;
 Image1.Visible:=false;
 Panel3.Visible:=true;
 DBEdit1.Visible:=true;
 Button1.Visible:=true;
 table1.Open;
 table1.edit;
 DBEdit1.text:='';
 DBEdit1.SetFocus;}
end;

procedure TForm_Login_shiyong.Button1Click(Sender: TObject);
begin
   Image1.Visible:=true;
   table1.Open;
   table1.First;
   table1.edit;
   table1.post;
   table1.Close;
   Form_Main.WindowState:=wsNormal;
   application.Terminate;
end;

procedure TForm_Login_shiyong.Panel1DblClick(Sender: TObject);
begin
  if Edit_Pass.Text<>'dz14420b' then
 exit;
 Image1.Visible:=false;
 Panel3.Visible:=true;
 DBEdit1.Visible:=true;
 Button1.Visible:=true;
 Edit_Pass.Text:='';
 table1.Open;
 table1.edit;
 DBEdit1.text:='';
 DBEdit1.SetFocus;
end;

end.