dlunit.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit DLUnit;

interface

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

type
  TDLfrm = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Panel2: TPanel;
    Label2: TLabel;
    yhmc: TEdit;
    Label3: TLabel;
    yhkl: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
     { Private declarations }
  public
    { Public declarations }
  end;

var
  DLfrm: TDLfrm;
const
  RgnPoints : array[1..10] of TPoint =
    ((X:203;Y:22), (X:157;Y:168), (X:3;Y:168),
    (X:128;Y:257), (X:81;Y:409), (X:203;Y:334),
    (X:325;Y:409), (X:278;Y:257), (X:402;Y:168),
    (X:249;Y:168));
//定义五角星轮廓线各个顶点坐标
  LinePoints : array[1..11] of TPoint =
    ((X:199;Y:0), (X:154;Y:145), (X:1;Y:145),
    (X:124;Y:233), (X:79;Y:384), (X:199;Y:310),
    (X:320;Y:384), (X:273;Y:234),(X:396;Y:145),
    (X:244;Y:145), (X:199;Y:0));

implementation
uses mainfrm;
{$R *.dfm}

procedure TDLfrm.FormShow(Sender: TObject);
//启动应用程序时,调用API函数实现系统登录窗口逐渐显示
//参数一:指定窗口句柄; 参数二:确定窗口渐变时间;参数三:确定窗口出现的位置和渐变风格;
begin

   AnimateWindow(Handle,500,AW_HOR_NEGATIVE+AW_ACTIVATE+AW_CENTER);
   yhmc.Ctl3D:=false;
   yhmc.Ctl3D:=true;
   yhkl.Ctl3D:=false;
   yhkl.Ctl3D:=true;
   form1.enabled:=false;
   panel1.Visible :=true;
   panel2.Visible :=true;
   //label1.Visible :=true;
   //label1.BringToFront ;
   label2.Visible :=true;
   label2.BringToFront ;
   label3.Visible :=true;
   label3.BringToFront ;
   DLfrm.Refresh ;
end;

procedure TDLfrm.Button1Click(Sender: TObject);
var ls,mm1:string;
begin
ls:=trim(combobox1.Text);
mm1:='';
with adoquery1 do
begin
 close;
 sql.Clear ;
 sql.Add('select * from mm where 操作员='''+ls+'''');
 open;
 mm1:=fieldbyname('密码').AsString ;
end;
   if(trim(combobox1.Text)='')and (trim(yhkl.Text)='') then
   begin
    Application.MessageBox('请输入用户名和密码','提示',64);
    yhmc.SetFocus;
    end
    else
     if(trim(yhkl.Text)=mm1)then
         begin
         tuichubz:=1;
         DLfrm.Close;
         form1.Enabled  :=true;
         yhmc.Clear;
         yhkl.Clear;
         end
      else
      begin
      Application.MessageBox('用户名或口令输入不正确,请重新输入.','提示',64);
      //yhmc.Clear;
      yhkl.Clear;
      yhkl.SetFocus;
      end;

end;

procedure TDLfrm.Button2Click(Sender: TObject);
begin
form1.close;
end;

procedure TDLfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if tuichubz=0 then
form1.Close;;
end;
end.