unit_login.pas

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

unit Unit_Login;

interface

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

type
  TForm_Login = class(TForm)
    Edit_Pass: TEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_exe: TQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Qry_lastture: TQuery;
    Qry_gailastflag: TQuery;
    ComboBox_ID: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  
  private
    { Private declarations }
    checkTimes:integer;
  public
    { Public declarations }
  end;

var
  Form_Login: TForm_Login;
  mima:string;
implementation

uses Unit_Main, Unit_Mater_Main, Unit_Mater_tishi;

{$R *.DFM}

procedure TForm_Login.BitBtn1Click(Sender: TObject);
 var
  n_id ,lingliao_id :string;
  abc_id, danjia_id :real;
 begin
  with Qry_exe do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 人员登陆表 where 职务 = :v1 or  职务 = :v2 ');
    parambyname('v1').asstring:='会计';
    parambyname('v2').asstring:='保管员';
    open;
    if recordcount = 0 then
    begin
      showmessage('为了系统安全 , 请保管员 和 会计 尽快注册');
      form_Main.show;
      exit;
    end; //if

    while not eof do
    begin
      if Edit_Pass.text = fieldbyname('密码').asstring then
      begin
    {
       Form_Mater_tishi.Visible:=True;
       Form_Mater_tishi.show;
       with Qry_lastture do
        begin
         close;
         sql.clear;
         sql.Add('select 材料名称,领料单号,单价,min( 库存)as abc from 原材料台帐  ');
         sql.Add('group by 材料名称,领料单号,单价');
         open;
         end; //with
        with Qry_lastture do
        begin
         open;
         while not eof do

        begin
         n_id:= Qry_lastture.fieldbyname('材料名称').asstring;
         lingliao_id:= Qry_lastture.fieldbyname('领料单号').asstring;
         danjia_id:= Qry_lastture.fieldbyname('单价').asfloat;
         abc_id:= Qry_lastture.fieldbyname('abc').asfloat;
         Qry_gailastflag. close;
         Qry_gailastflag. sql.Clear;
         Qry_gailastflag. sql.Add('select *  from 原材料台帐   ');
         Qry_gailastflag. sql.Add('where 材料名称  = :v_id and 领料单号=:danhao and 单价=:danjia and 库存=:bc');
         Qry_gailastflag. parambyname('v_id').asstring:=n_id;
         Qry_gailastflag. parambyname('danhao').asstring:=lingliao_id;
         Qry_gailastflag. parambyname('danjia').asfloat:=danjia_id;
         Qry_gailastflag. parambyname('bc').asfloat:=abc_id;
         Qry_gailastflag. open;
        if Qry_gailastflag . fieldbyname('最后领料标识').asboolean =true then
         begin
          next;
         continue;
         end;

       Qry_gailastflag.  close;
       Qry_gailastflag. sql.Clear;
       Qry_gailastflag. sql.Add('update 原材料台帐 set 最后领料标识 = :v_LastOutCardFlag ');
       Qry_gailastflag.  sql.Add('where 材料名称  = :v_id and 领料单号=:danhao and 单价=:danjia and 库存=:bc');
       Qry_gailastflag.  parambyname('v_LastOutCardFlag').asboolean:=true;
       Qry_gailastflag. parambyname('v_id').asstring:=n_id;
       Qry_gailastflag. parambyname('danhao').asstring:=lingliao_id;
       Qry_gailastflag. parambyname('danjia').asfloat:=danjia_id;
       Qry_gailastflag. parambyname('bc').asfloat:=abc_id;
       Qry_gailastflag. execsql;
          next;
       end;//while
       end; //with
       Form_Mater_tishi.close;
    }
        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.SelectAll;
   end; //if

end;

procedure TForm_Login .FormShow(Sender: TObject);
begin
  ComboBox_ID.ItemIndex := 0 ;
  checkTimes:=0;
  Edit_Pass.text:='';
  Edit_Pass.SetFocus;
end;

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

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

end.