md.pas

一个会员管理系统delphi源代码,非常好

unit md;

interface

uses
  Forms, Windows, Messages, SysUtils, Classes, DB, ADODB;

type
  TDm1 = class(TDataModule)
    con1: TADOConnection;
    dsLoginUser: TDataSource;
    tblLoginUser: TADOTable;
    dsHuiyuan: TDataSource;
    tblHuiyuan: TADOTable;
    tblcity: TADOTable;
    dscity: TDataSource;
    qryhuiyuan: TADOQuery;
    dsqryhuiyuan: TDataSource;
    dsmemo: TDataSource;
    qrymemo: TADOQuery;
    adoqry1: TADOQuery;
    qryhydetail: TADOQuery;
    qryhydetailbm: TWideStringField;
    qryhydetailxm: TWideStringField;
    qryhydetailsex: TWideStringField;
    qryhydetailage: TIntegerField;
    qryhydetailbirth: TDateTimeField;
    qryhydetailstar: TWideStringField;
    qryhydetailshuxian: TWideStringField;
    qryhydetailQQ: TWideStringField;
    qryhydetailtel: TWideStringField;
    qryhydetailemail: TWideStringField;
    qryhydetailzipcode: TWideStringField;
    qryhydetailaddress: TWideStringField;
    qryhydetailprovince: TWideStringField;
    qryhydetailcity: TWideStringField;
    qryhydetailsj: TDateTimeField;
    qryhydetailbz: TMemoField;
    qryhydetailaddfriend: TMemoField;
    qryhydetailtougao: TMemoField;
    qryhydetailyijian: TMemoField;
    qryhydetailhuifu: TMemoField;
    procedure tblHuiyuanBeforeDelete(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure qryhuiyuanBeforeDelete(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dm1: TDm1;

implementation

{$R *.dfm}

procedure TDm1.tblHuiyuanBeforeDelete(DataSet: TDataSet);
begin
  if MessageBox(0, '您是否删除当前会员信息，一旦删除将无法恢复?', '提示', MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = IDNO then
    Abort;
end;

procedure TDm1.DataModuleCreate(Sender: TObject);
begin
  con1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + getcurrentdir +
    '\YoungClub.mdb;Persist Security Info=False;Jet OLEDB:Database Password=''''';
  con1.Connected := true;
end;

procedure TDm1.qryhuiyuanBeforeDelete(DataSet: TDataSet);
var
  msgstr: string;
begin
  msgstr := '您是否删除当前会员[ ' + Dm1.qryhuiyuan.fieldbyname('xm').AsString + ' ]信息，一旦删除将无法恢复?';
  if MessageBox(0, PChar(msgstr), '提示', MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) = IDNO then
    Abort;
end;

end.