?? user.pas
字號:
unit User;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BaseInfo1, PrintForm, DB, ADODB, ExtCtrls, Grids, DBGridEh,
ComCtrls, ToolWin, StdCtrls, Buttons;
type
TUserForm = class(TBaseInfo1Form)
QBaseInfoID: TAutoIncField;
QBaseInfofCode: TWideStringField;
QBaseInfofName: TWideStringField;
QBaseInfofPWD: TWideStringField;
QBaseInfofGroupID: TIntegerField;
QBaseInfofStatus: TBooleanField;
QBaseInfofNotes: TWideStringField;
QBaseInfofFlag: TBooleanField;
BitBtn1: TBitBtn;
procedure QBaseInfofCodeValidate(Sender: TField);
private
{ Private declarations }
public
{ Public declarations }
end;
var
UserForm: TUserForm;
implementation
{$R *.dfm}
procedure TUserForm.QBaseInfofCodeValidate(Sender: TField);
begin
inherited;
if not IsUnique('Code',Sender.AsString) then
begin
showmessage('用戶編號重復,請重新輸入');
abort;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -