Question

delphi edit无法输入

unit FormRights;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls, Mask;

type
Trights = class(TForm)
GroupBox1: TGroupBox;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
Label1: TLabel;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Button4: TButton;
CheckBox1: TCheckBox;
DBEdit2: TDBEdit;

procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
rights: Trights;
UserName:string;
UserNumber,MaxNumber:string;
order:integer;

implementation

uses FormManage;

{$R *.dfm}

//-----------关闭窗体时同时关闭对权限清单的插入许可功能------------------
procedure Trights.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//先将对权限清单表的插入功能关闭
AdoTable1.ReadOnly:=true;
//关闭窗体是返回上一级窗体
manage.show;
end;

//------------------窗体显示时，为下拉列表框设置用户词典------------------------
//-------------------不允许对管理员sys的权限进行设置-------------------------
procedure TRights.Button1Click(Sender: TObject);
var num :integer;
begin

ADOTable1.Insert;
end;

procedure Trights.Button2Click(Sender: TObject);
begin
ADOTable1.Delete;
end;

procedure Trights.Button4Click(Sender: TObject);

begin
if CheckBox1.Checked=true
then
begin
if Edit2.Text=DBEdit2.Field.AsString
then
begin
ADOTABLE1.Post;
end
else
begin
ShowMessage('两次输入的口令不一致，请重新输入！');
end
end
else
begin
ADOTABLE1.Post;
end

end;
end.

这段代码运行之后edit框里无法输入，英文汉字数字都输不进去，什么地方出错啦？

Answer 1

因为你用的是TDBEdit,这个东西和DataSource关联起来,能否输入是看数据集的状态的.如果数据集处于关闭或者只读状态则是无法输入数据的.
你可以选择普通的TEdit做处理