tjyhunit.~pas

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

unit tjyhUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons, DB, ADODB,Mask,
  Menus, WinSkinStore, WinSkinData;

type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    username: TEdit;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    userpwd: TEdit;
    Label3: TLabel;
    power: TComboBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure usernameKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   procedure RefreshUser;
    function GetUserPwd(UserName : string):string;
    function CheckExistUserName(UserName : string):boolean;
    procedure InsUser(UserName,UserPwd:string;Power : integer);
    procedure UpdateUser(UserName,UserPwd:string;Power : integer);
    procedure DelUser(UserName : string);
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}
uses datam;
procedure TForm3.RefreshUser;
var
    Query : TADOQuery;
begin
    Query := TADOQuery.Create(nil);
    Query.Connection:=DM.conn;
    query.SQL.Clear ;
    query.SQL.Add('select * from users order by Z_class');
    query.Open;
    query.Free;
end;
function TForm3.GetUserPwd(UserName: string): string;
var
  Query : TADOQuery;
begin
  try
    Query := TADOQuery.Create(nil);
    Query.Connection := DM.conn;
    Query.SQL.Add('select Z_mm from users where Z_yhmc =:Z_yhmc');
    Query.Parameters.ParamByName('Z_yhmc').value:= UserName;
    Query.Open;
    Result := Query.FieldByName('Z_mm').AsString;
    Query.Close;
    Query.Free;
  except
    Result := '';
  end;



end;

function TForm3.CheckExistUserName(UserName: string): boolean;
var
  Query : TADOQuery;
begin
  try
    Query := TADOQuery.Create(nil);
    Query.Connection := DM.conn;
    Query.SQL.Add('select Z_yhmc from users where Z_yhmc =:Z_yhmc');
    Query.Parameters.ParamByName('Z_yhmc').Value := UserName;
    Query.Open;
    Result := Query.RecordCount >0;
    Query.Close;
    Query.Free;
  except
    Result := False;
  end;
end;
//在操作者表中delete特定的用户
procedure TForm3.DelUser(UserName: string);
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.Connection := DM.conn;
  Query.SQL.Add('delete from users where Z_yhmc =:Z_yhmc');
  Query.Parameters.ParamByName('Z_yhmc').value:= UserName;
  Query.ExecSQL;
  Query.Free;
end;
//在操作者表中insert新的用户
procedure TForm3.InsUser(UserName, UserPwd: string; Power: integer);
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.Connection := DM.conn;
 // query.Active :=true;
  Query.SQL.Add('insert into users(Z_yhmc,Z_mm,Z_class) '+
                 'values(:Z_yhmc,:Z_mm,:Z_class)');
  Query.Parameters.ParamByName('Z_yhmc').value := UserName;
  Query.Parameters.ParamByName('Z_mm').value := UserPwd;
  Query.Parameters.ParamByName('Z_class').value:= Power;
  Query.ExecSQL;
  Query.Free;
 // RefreshUser;
  showmessage('添加成功!');
  dm.tbinput.SQL.Clear ;
    dm.tbinput.SQL.Add('select * from users ');
    dm.tbinput.Open;
    dm.tbinput.Last;
end;
procedure TForm3.UpdateUser(UserName, UserPwd: string; Power: integer);
var
  Query : TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  Query.Connection := DM.conn;
  Query.SQL.Add('update users set Z_mm=:Z_mm,Z_class=:Z_class'+
                 ' where Z_yhmc=:Z_yhmc');
  Query.Parameters.ParamByName('Z_yhmc').value := UserName;
  Query.Parameters.ParamByName('Z_mm').value := UserPwd;
  Query.Parameters.ParamByName('Z_class').value:= Power;
  Query.ExecSQL;
  Query.Free;
  RefreshUser;
  showmessage('更新成功!');
  bitbtn1.Caption:='添加';
  dm.tbinput.SQL.Clear ;
    dm.tbinput.SQL.Add('select * from users ');
    dm.tbinput.Open;
//  dm.tbinput.Refresh ;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
//dm.tbinput.Active :=true;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
//添加新的用户
if (username.Text ='') or (userpwd.Text ='') or (power.Text ='') then

  showmessage('缺少信息项!请填写信息!')
  else

if bitbtn1.Caption='添加' then
 begin
     userpwd.Enabled :=true;
    if CheckExistUserName(Username.Text) then
    begin
      MessageDlg('此用户已经存在',mtError,[mbok],0);
      Exit;
    end;
    try

      InsUser(Username.Text,userPwd.Text,power.ItemIndex);

    except
      MessageDlg('新建用户出错',mtError,[mbok],0);
      Exit;
    end;
  end
else
  begin
   
  begin
    try
      UpdateUser(Username.Text,userPwd.Text,power.ItemIndex);
    except
      MessageDlg('修改用户出错',mtError,[mbok],0);
      Exit;
    end;
  end;
   end;

  //修改用户信息


username.Text:='';
userpwd.Text:='';
power.ItemIndex := 0;
end;

procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
bitbtn1.Caption :='更新';
 userpwd.Enabled :=false;
      username.Text:= DM.tbinput.Fieldbyname('Z_yhmc').AsString;
      userpwd.Text:= DM.tbinput.Fieldbyname('z_mm').AsString;
      power.Text:= DM.tbinput.Fieldbyname('z_class').AsString;
      if strtoint(power.Text) =0 then
           power.Text:='超级管理员'
      else
      power.Text:='普通管理员';
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
var
  i: integer;
  j: string;
begin
  j := DM.tbinput.Fields[1].Value;
  i := application.MessageBox('您确信真的要删除吗？', '删除信息提示', MB_YESNO + MB_ICONWARNING);
  if i = 6 then
  begin
    DM.tbinput.Close;
    DM.tbinput.SQL.Clear;
    DM.tbinput.SQL.Add('delete from users where Z_yhmc='+#39+j+#39);
    DM.tbinput.ExecSQL;
    DM.tbinput.SQL.Clear;
    DM.tbinput.SQL.Add('select * from users');
    DM.tbinput.Open;

    application.MessageBox('信息删除成功!!!', '删除信息提示', MB_ICONINFORMATION);
  end;
    end;
procedure TForm3.N1Click(Sender: TObject);
begin
bitbtn2.Click;
end;

procedure TForm3.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
username.SetFocus ;
end;

procedure TForm3.usernameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  userpwd.SetFocus ;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
bitbtn1.Caption :='添加';
username.Text :='';
userpwd.Text :='';
userpwd.Enabled :=true;
power.Text :='';
end;

end.