?? adduser.~pas
字號:
unit AddUser;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg,db;
type
TAddUserForm = class(TForm)
GroupBox1: TGroupBox;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Panel1: TPanel;
UserName: TComboBox;
PassWord: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
procedure UserNameDropDown(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
UserPass:string;
submit:boolean;
{ Public declarations }
end;
var
AddUserForm: TAddUserForm;
implementation
uses MD,PassWord;
{$R *.dfm}
procedure TAddUserForm.UserNameDropDown(Sender: TObject);
var
i:integer;
begin
//在用戶名稱框中輸入已經存在的用戶名
UserName.Clear;
With DataMD.ADOManage do
Begin
Close;
Sql.clear;
Sql.Add('select * from manage');
open;
if RecordCount>0 then
begin
first;
for i:=0 to RecordCount-1 do
begin
UserName.Items.Add(fieldbyname('用戶名').AsString);
Next;
end;
end
end;
end;
procedure TAddUserForm.BitBtn1Click(Sender: TObject);
begin
//添加新的用戶名到數據庫中
With DataMd.ADOManage Do
begin
Close;
Sql.Clear;
Sql.Add('select * from manage');
OPen;
if trim(username.Text)='' then
begin
showmessage('用戶名不能為空!');
UserName.SetFocus;
end
else
begin
Application.CreateForm(TPassWordForm,PassWordForm);
PassWordForm.ShowModal;
if Not Locate('用戶名',Trim(username.text),[lopartialkey]) And submit then
begin
Append;
FieldByName('用戶名').AsString:=UserName.Text;
FieldbyName('密碼').AsString:=PassWord.Text;
FieldByName('權限').AsString:=combobox1.Text;
If MessageDlg('是否要把用戶寫入庫中',MtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
post;
showmessage('用戶以成功的寫入數據庫中');
end
else
cancel;
end
else
showmessage('用戶已經存在');
end;
end;
end;
procedure TAddUserForm.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -