u_dlkl.pas

钢筋拉伸系统,是一个图形和数据库结合在一起的技术体现

unit U_dlkl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,u_public;

type
  TFrm_dlkl = class(TForm)
    GroupBox1: TGroupBox;
    s: TLabel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure List();
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_dlkl: TFrm_dlkl;

implementation

uses U_Main;

{$R *.dfm}

procedure Tfrm_dlkl.List();
   var
     I:integer;
   begin
      combobox1.Clear;
     for i:=1 to 200 do
       begin
          if use_kl[i].Use_Enable=true then
             begin
               self.ComboBox1.Items.Add (use_kl[i].use_name) ;
             end;
       end;
   end;
procedure TFrm_dlkl.FormShow(Sender: TObject);
begin
  List;
end;

procedure TFrm_dlkl.Button1Click(Sender: TObject);
  var
     I:integer;
   begin

     for i:=1 to 200 do
       begin
          if (use_kl[i].Use_Name =self.ComboBox1.Text) and (use_kl[i].Use_PassWord =trim(self.Edit1.Text)) then
             begin

                self.Hide;
               frm_main:=Tfrm_main.Create(self);
               frm_main.ShowModal;
              self.Close;
                exit;
             end;
       end;
      application.MessageBox('口令错误！','明日科技');
      edit1.Text:='';
      edit1.SetFocus;
   end;
 

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

end.