huiyuaninfofrm.pas

该系统实现了对DVD租赁过程的管理,功能完善,方便实用.

unit HuiyuanInfoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, ComCtrls, jpeg,
  ExtCtrls;

type
  TFrmHuiyuanInfo = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    popModi: TMenuItem;
    popNew: TMenuItem;
    popDel: TMenuItem;
    StatusBar1: TStatusBar;
    Image1: TImage;
    ADOQuery2: TADOQuery;
    N1: TMenuItem;
    popRef: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure popNewClick(Sender: TObject);
    procedure popModiClick(Sender: TObject);
    procedure ShowRecord(Sender: TObject);
    procedure popDelClick(Sender: TObject);
    procedure popRefClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    IsModify : boolean;
    TitleText : string;
    { Public declarations }
  end;

var
  FrmHuiyuanInfo: TFrmHuiyuanInfo;

implementation

uses MainFrm, ModiHuiyuanFrm;

{$R *.dfm}

procedure TFrmHuiyuanInfo.ShowRecord(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'Select * from Memberinfo order by Mem_ID';
  ADOQuery1.Open;
  StatusBar1.Panels[1].Text := '  现有会员： ' + IntToStr(ADOQuery1.RecordCount) + ' 人';
end;

procedure TFrmHuiyuanInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FrmHuiyuanInfo.Free;
  FrmMain.sp3 := False;
end;

procedure TFrmHuiyuanInfo.FormCreate(Sender: TObject);
begin
  IsModify := False;
  ShowRecord(Sender);
end;

procedure TFrmHuiyuanInfo.popNewClick(Sender: TObject);
begin
  IsModify := False;
  TitleText := '会员信息管理-新增会员';
  Application.CreateForm(TFrmModiHuiyuan, FrmModiHuiyuan);
  FrmModiHuiyuan.ShowModal;
end;

procedure TFrmHuiyuanInfo.popModiClick(Sender: TObject);
begin
  IsModify := True;
  TitleText := '会员信息管理-修改会员信息';
  Application.CreateForm(TFrmModiHuiyuan, FrmModiHuiyuan);
  FrmModiHuiyuan.ShowModal;
end;

procedure TFrmHuiyuanInfo.popDelClick(Sender: TObject);    //右键删除记录
begin
  case Application.MessageBox('确实要删除记录吗？', '删除确认',MB_OKCANCEL+MB_ICONINFORMATION) of
    IDCANCEL : ;   //放弃删除
    IDOK:
    begin
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
	    ADOQuery2.SQL.Add('Delete * From MemberInfo Where Mem_ID = ''' +DBGrid1.Fields[0].Text+ '''');
	    ADOQuery2.ExecSQL;
      Application.MessageBox('删除记录成功！', '成功',MB_OK+MB_ICONINFORMATION);
      ShowRecord(Sender);
    end;
  end; //Case end
end;

procedure TFrmHuiyuanInfo.popRefClick(Sender: TObject);
begin
  ShowRecord(Sender);
end;

procedure TFrmHuiyuanInfo.FormActivate(Sender: TObject);
begin
  ShowRecord(Sender);
end;

end.