usermanager.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit usermanager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DBCtrls, Mask, ExtCtrls,db;

type
  TFrmusermanager = class(TForm)
    GroupBox1: TGroupBox;
    label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox2: TGroupBox;
    BtnAdd: TSpeedButton;
    BtnDel: TSpeedButton;
    BtnSave: TSpeedButton;
    BtnCancel: TSpeedButton;
    DBGrid1: TDBGrid;
    Edit3: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBEdit1: TDBEdit;
    DBoprate: TDBNavigator;
    DBEdit2: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmusermanager: TFrmusermanager;

implementation
   uses dbmodule;
{$R *.dfm}

procedure TFrmusermanager.FormShow(Sender: TObject);
begin
  if not dm.Qgroup.Active then
    dm.Qgroup.Open ;
  if not dm.Qusers.Active then
    dm.Qusers.Open;
end;

procedure TFrmusermanager.BtnAddClick(Sender: TObject);
begin
  if dm.Qusers.Active then
    begin
      DBoprate.BtnClick(nbInsert);
      edit3.Text:='';
    end;
end;

procedure TFrmusermanager.BtnDelClick(Sender: TObject);
begin
  if dm.Qusers.Active then
    begin
      if (not dm.Qusers.Eof) and (not dm.Qusers.Bof ) then
        begin
          DBoprate.BtnClick(nbDelete);
          edit3.Text:='';
        end;
    end;
end;

procedure TFrmusermanager.BtnSaveClick(Sender: TObject);
begin
 if dm.Qusers.Active then
   begin
     if  dm.Qusers.State in [dsEdit,dsInsert] then
       begin
         if dm.Qusers.State=dsInsert then
           begin
             if (dbedit2.Text<>edit3.Text) and (length(trim(dbedit2.Text))>0) then
                begin
                  application.MessageBox('前后密码不一样！','提示',mb_ok);
                  exit;
                end;
           end;
       DBoprate.BtnClick(nbPost);
       end;
   end;
end;

procedure TFrmusermanager.BtnCancelClick(Sender: TObject);
begin
  if dm.Qusers.Active then
   if  dm.Qusers.State in [dsEdit,dsInsert] then
       DBoprate.BtnClick(nbCancel);
end;

end.