u_frmuser.pas

来自「sqllite3数据库基本应用(打开,关闭表,及更新数据表)」· PAS 代码 · 共 87 行

unit u_frmuser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TFrmuser = class(TForm)
    userDBGrid: TDBGrid;
    Label1: TLabel;
    userEdit: TEdit;
    userbtn: TButton;
    Label2: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure userbtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmuser: TFrmuser;

implementation

uses u_data, u_frmmain;

{$R *.dfm}

procedure TFrmuser.FormCreate(Sender: TObject);
begin
with data.Quser do
begin
close;
sql.Clear;
sql.Add('select * from users');
open;
end;
end;

procedure TFrmuser.userbtnClick(Sender: TObject);
begin
if data.Quser.Locate('username',useredit.Text,[])  then
begin
application.MessageBox('该上报人已存在!','提示',0+64);
useredit.SetFocus;
end
else if trim(useredit.Text) = '' then
begin
application.MessageBox('请输入上报人姓名!','提示',0+64);
useredit.SetFocus;
end
else
with data.Quser do
begin
close;
sql.Clear;
sql.Add('insert into users(username)');
sql.Add('values('''+useredit.Text+''')');
execsql;

close;
sql.Clear;
sql.Add('select * from users');
open;
application.MessageBox('保存成功!','提示',0+64);
useredit.Clear;
useredit.SetFocus;
end;

end;

procedure TFrmuser.Button1Click(Sender: TObject);
begin
if messagedlg('确认删除当前上报人吗？',mtConfirmation,[mbok,mbcancel],0)=MrOk then
begin
data.Quser.Delete;
end;
end;

end.