u_userform.pas

很好地delphi书籍源码

unit U_UserForm;

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;
    DSAppendTB: TToolButton;
    DSDeleteTB: TToolButton;
    DSEditTB: TToolButton;
    ImageList1: TImageList;
    DSPostTB: TToolButton;
    ActionList1: TActionList;
    DSAppend: TDataSetInsert;
    DSDelete: TDataSetDelete;
    DSEdit: TDataSetEdit;
    DSPost: TDataSetPost;
    procedure FormCreate(Sender: TObject);
    procedure DSDeleteExecute(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  FrmUser: TFrmUser;

implementation

uses U_DataModule;


{$R *.dfm}

procedure TFrmUser.FormCreate(Sender: TObject);
var
  Str:TStrings;
begin
  Str:=TStringList.Create;
  DataModule1.Table1.Close;
  DataModule1.Table1.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('操作');
  DBGrid1.Columns[2].PickList:=Str;
  Str.Free;
end;

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

end.