denglu.pas

地理资源的录入程序运用了api的一些知识

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ADODB,DB, ExtCtrls, ComCtrls, WinSkinStore, WinSkinData;

type
  Tlogin = class(TForm)
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Password: TEdit;
    UserName: TComboBox;
    SkinStore1: TSkinStore;
    SkinData1: TSkinData;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure UserNameDropDown(Sender: TObject);
    procedure UserNameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PasswordKeyPress(Sender: TObject; var Key: Char);
    procedure UserNameSelect(Sender: TObject);
    procedure UserNameKeyPress(Sender: TObject; var Key: Char);
  private
  iTimes: Integer; //输入次数计数
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

{$R *.dfm}
  uses Main, DataM, PublicFunction;
procedure Tlogin.Button2Click(Sender: TObject);
begin
if MessageBox(0,'真的要退出本系统吗？','确认',MB_YESNO + MB_ICONQUESTION)=IDYES then
  begin
  Application.Terminate; //结束该程序
  end;
end;



procedure Tlogin.Button1Click(Sender: TObject);
begin
  DM.User.Locate('z_MM', password.text,[]);
  Inc(iTimes);
   if DM.User.FieldByName('Z_yhmc').AsString = '' then
    MessageBox(0, '没有存在用户，请预先设定好用户', '', MB_OK +
      MB_ICONINFORMATION);
  if (trim(UserName.Text) = DM.User.FieldByName('Z_yhmc').AsString) and (Trim(Password.Text) = DM.User.FieldByName('Z_mm').AsString) then
  begin
    login.HIDE;
    zhu.Show;
  end
  else
    begin
    MessageBox(0, '用户名称或用户密码错误，请重新输入！' + #13#10 +#13#10+
      '注意大小写', '', MB_OK + MB_ICONSTOP);
    password.SetFocus;


  if iTimes = 3 then
  begin
    MessageBox(0, '您进行系统身份确认程序错误已经超过3次，本系统将停止执行！',
      '', MB_OK + MB_ICONSTOP);
    Application.Terminate;
  end;
   end;
  //UserName.SetFocus;
end;


procedure Tlogin.UserNameDropDown(Sender: TObject);
 var
  i: Integer;
begin
  UserName.Clear; //清除里面的内容
  DM.User.Open;
  if (DM.User.RecordCount > 0) then
    DM.User.First;
  for i := 0 to DM.User.recordcount - 1 do
  begin
    UserName.Items.Add(DM.user.FieldByName('Z_yhmc').AsString);
    DM.User.Next;
  end;
end;
procedure Tlogin.UserNameChange(Sender: TObject);
begin

DM.User.Locate('z_yhmc', UserName.text,[]);



end;

procedure Tlogin.FormShow(Sender: TObject);
begin
with dm do
 begin
user.Active :=true;
tbinput.Active :=true;
lyxx.Active :=true;
tdlyxx.Active :=true;
dqjjxx.Active :=true;

//qur_dmb.Active :=true;
//zyflml.Active :=true;
dlxxzy.Active :=true;
//adoqry_sl.Active :=true;
end;
   dm.User.Close;
   dm.User.SQL.Clear;
   dm.User.SQL.Add('select * from users');
   dm.User.open;
   UserName.SetFocus;
   

end;

procedure Tlogin.PasswordKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then //当输入完密码，敲入回车键，Button1执行单击操作
   Button1Click(Sender);
end;

procedure Tlogin.UserNameSelect(Sender: TObject);
begin
PASSWORD.SetFocus ;
//SHOWMESSAGE(DM.User.FieldByName('Z_yhmc').asString);
end;

procedure Tlogin.UserNameKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
 PASSWORD.SetFocus ;
end;

end.