?? unit6.pas
字號:
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
Tfrmedusers = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Panel1: TPanel;
Edit4: TEdit;
Label4: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
tys:integer;
{ Private declarations }
public
property ty:integer read tys write tys;//新增還是修改口令
{ Public declarations }
end;
var
frmedusers: Tfrmedusers;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure Tfrmedusers.BitBtn1Click(Sender: TObject);
var oldpswd:string;//舊口令
begin
if ty=1 then //新增
begin
if trim(edit1.Text)='' then
begin
application.MessageBox('請輸入姓名','',64);
modalresult:=mrnone;
edit1.SetFocus;
exit;
end;
end
else
begin
if trim(edit1.Text)='admin' then //管理員
begin
if dm1.ADOCon1.Execute('select passwd from admin').EOF then
oldpswd:=''
else
oldpswd:=trim(vartostr(dm1.ADOCon1.Execute('select passwd from admin').Fields[0].Value))
end
else //普通用戶
oldpswd:=trim(vartostr(dm1.ADOCon1.Execute('select passwd from users where name='''
+trim(edit1.Text)+'''').Fields[0].Value));
if trim(edit4.Text)<>oldpswd then
begin
application.MessageBox('原來口令不正確','',64);
modalresult:=mrnone;
edit2.SetFocus;
exit;
end;
end;
if trim(edit2.Text)<>trim(edit3.Text) then
begin
application.MessageBox('口令不相符','',64);
modalresult:=mrnone;
edit2.SetFocus;
exit;
end;
if ty=1 then //新增
begin
if not dm1.ADOCon1.Execute('select name from users where name='''
+trim(edit1.Text)+'''').EOF then
begin
application.MessageBox('此姓名已存在','',64);
modalresult:=mrnone;
edit1.SetFocus;
exit;
end;
dm1.ADOCon1.Execute('insert into users (name,create_date,passwd) values '
+'('''+trim(edit1.Text)+''',#'+datetostr(date)+'#,'''+trim(edit2.Text)+''')');
end
else
begin
if trim(edit1.Text)='admin' then //管理員
begin
if dm1.ADOCon1.Execute('select passwd from admin').EOF then //原來沒有口令
dm1.ADOCon1.Execute('insert into admin (passwd) values ('''
+trim(edit2.Text)+''')')
else
try
dm1.ADOCon1.Execute('update admin set passwd='''+trim(edit2.Text)+'''')
except
werror('update admin set passwd='''+trim(edit2.Text)+'''');
end;
end
else
dm1.ADOCon1.Execute('update users set passwd='''+trim(edit2.Text)
+''' where name='''+trim(edit1.Text)+'''');
end;
end;
procedure Tfrmedusers.FormShow(Sender: TObject);
begin
panel1.Visible:=ty<>1;
case ty of
2:
begin
edit1.Text:=trim(dm1.ADOQuery1.fieldbyname('name').AsString);
edit1.Enabled:=false;
end;
3:
begin
edit1.Text:='admin';
edit1.Enabled:=false;
end;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -