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;
    DBEdit1_jingao: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    ComboBox_ID: TComboBox;
    Button1: TButton;
    DBEdit1: TDBEdit;
    Panel3: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Panel2DblClick(Sender: TObject);
    procedure Button1Click(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
   table1.open;
   table1.First;
  ComboBox_ID.ItemIndex := 0 ;
  checkTimes:=0;
  Edit_Pass.text:='';
 // Edit_Pass.SetFocus;
  if table1.fieldbyname('结论').asstring<>'孙悟空' then
  begin  //mi ma bu duei
    //DBEdit1_jingao.Text:=datetostr(table1.fieldbyname('填表日期').asdatetime);
     if DBEdit1_jingao.Text='' then
       begin //ji xia di yi chi shi yong shi jian
         table1.open;
         table1.edit;
         DBEdit1_jingao.Text:=datetostr(date);
         table1.Post;
       end;
 // showmessage(datetostr(table1.fieldbyname('填表日期').asdatetime+1));
     if table1.fieldbyname('填表日期').asdatetime+10<=date then
        begin//ru guo dang tian ri qi xiao yu guei ding qi xian tuei chu
         table1.close;
         Edit_Pass.Visible:=false;
         showmessage('试用期时间已到！不付款无法使用。');
         exit;
        end;
      if table1.fieldbyname('填表日期').asdatetime+3<=date then
     showmessage('试用期还剩几天就要到了。如不付款，系统将删掉库中所有的数据和资料！'+#13+#13+'付款后，请拨打电话：[phone],给密码您恢复！');
  end;
  Edit_Pass.Visible:=true;
  table1.Close;
end;

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

procedure TForm_Login.Panel2DblClick(Sender: TObject);
begin
  table1.open;
  table1.edit;
  Panel3.Visible:=true;
  Button1.Visible:=true;
  DBEdit1.Visible:=true;
  DBEdit1.SetFocus;
  DBEdit1.text:='';
end;

procedure TForm_Login.Button1Click(Sender: TObject);
begin
   table1.open;
   table1.First;
   if table1.fieldbyname('结论').asstring<>'' then
   begin
   table1.Close;
   Form_Main.WindowState:=wsNormal;
   application.Terminate;
   end;
   table1.open;
   table1.Edit;
   table1.Post;
   table1.Close;
   Form_Main.WindowState:=wsNormal;
   application.Terminate;
end;

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

end.