userunit.pas

很好地delphi书籍源码

unit UserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, Grids, DBGrids, DBActns, ActnList;

type
  TFrmUser = class(TForm)
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    AddTB: TToolButton;
    DelTB: TToolButton;
    ModTB: TToolButton;
    ImageList1: TImageList;
    SaveTB: TToolButton;
    ExitTB: TToolButton;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    procedure FormCreate(Sender: TObject);
    procedure ExitTBClick(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure DataSetPost1Execute(Sender: TObject);
  private
    procedure ReFresh;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUser: TFrmUser;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TFrmUser.FormCreate(Sender: TObject);
begin
  ReFresh;
end;

procedure TFrmUser.ReFresh;
var
  Str:TStrings;
begin
  Str:=TStringList.Create;
  DataModule1.tUser.Close;
  DataModule1.tUser.Open;
  DBGrid1.Columns[0].Title.caption:='用户名称';
  DBGrid1.Columns[0].Title.Alignment:=taCenter;
  DBGrid1.Columns[0].Alignment:=taCenter;
  DBGrid1.Columns[1].Title.caption:='登录密码';
  DBGrid1.Columns[1].Title.Alignment:=taCenter;
  DBGrid1.Columns[1].Alignment:=taCenter;
  DBGrid1.Columns[2].Title.caption:='用户类别';
  DBGrid1.Columns[2].Title.Alignment:=taCenter;
  DBGrid1.Columns[2].Alignment:=taCenter;
  DBGrid1.Columns[2].Width:=100;
  Str.Add('客房部');
  Str.Add('服务部');
  Str.Add('经理室');
  Str.Add('管理员');
  DBGrid1.Columns[2].PickList:=Str;
  Str.Free;
end;

procedure TFrmUser.ExitTBClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmUser.DataSetInsert1Execute(Sender: TObject);
begin
 DataModule1.tUser.Append;
end;

procedure TFrmUser.DataSetDelete1Execute(Sender: TObject);
begin
 if Application.MessageBox('确实需要删除该用户吗!',
       '提示',MB_YesNo+MB_IconExclamation+MB_SystemModal)=IDYES then
    DataModule1.tUser.Delete;
end;

procedure TFrmUser.DataSetEdit1Execute(Sender: TObject);
begin
  DataModule1.tUser.Edit;
  ReFresh;
end;

procedure TFrmUser.DataSetPost1Execute(Sender: TObject);
begin
  DataModule1.tUser.Post;
  ReFresh;
end;

end.