member.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit member;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RECORDBROWSE, DBActns, ActnList, Menus, Grids, DBGrids,
  LabelButton, TradeImage, ComCtrls, ToolWin, StdCtrls, ExtCtrls,
  HemisphereButton;

type
  TMemberForm = class(TBrowseForm)
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetRefresh1Execute(Sender: TObject);
    procedure Action_LocateExecute(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Action_PrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AllNum,TrueNum:integer;
    procedure RefreshNum;
  end;

var
  MemberForm: TMemberForm;

implementation

uses data, edit, UserLocate, MemberRep;

{$R *.dfm}

procedure TMemberForm.FormCreate(Sender: TObject);
begin
  inherited;
  BStatusbar.Panels[6].Text := CopyRight;
  DM.ADOQMember.Active :=true;
end;

procedure TMemberForm.DataSetDelete1Execute(Sender: TObject);
begin
  inherited;
  if MessageBox(handle,'是否要删除该帐户','删除确认',
    MB_OKCANCEL or MB_ICONWARNING)=IDOK then
  begin
    DM.ADOQMember.Delete;
    RefreshNum;
  end;
end;

procedure TMemberForm.DataSetEdit1Execute(Sender: TObject);
begin
  inherited;
  if DM.ADOQMember.RecNo>=0 then
  begin
    MemberEditForm:=TMemberEditForm.Create(Application);
    MemberEditForm.OPType :=1;     //设置操作类型为修改
    DM.ADOQMember.edit;
    if MemberEditForm.ShowModal=mrOK then
      RefreshNum;
  end;
end;

procedure TMemberForm.DataSetInsert1Execute(Sender: TObject);
begin
  inherited;
  MemberEditForm:=TMemberEditForm.Create(Application);
  MemberEditForm.OPType :=0;     //设置操作类型为添加
  with DM.ADOQMember do
  begin
    Append;
    FieldValues['性别']:='男';
    FieldValues['注册日期']:=Date;
    FieldValues['有效标志']:=true;
    FieldValues['预存机时']:=0;
    FieldValues['共用机时']:=0;
  end;
  if MemberEditForm.ShowModal=mrOK then
    RefreshNum;
end;

procedure TMemberForm.DataSetRefresh1Execute(Sender: TObject);
begin
  inherited;
  with DM.ADOQMember do
  begin
    Active :=false;
    Filtered :=false;
    SQL.Strings[4]:='';
    SQL.Strings[5]:='order by stuNo';
    Active :=true;
  end;
  RefreshNum;
end;

procedure TMemberForm.Action_LocateExecute(Sender: TObject);
begin
  inherited;
  UserLocateForm:= TUserLocateForm.Create(Application);
  if UserLocateForm.ShowModal=mrOK then
  begin
    if CheckBox1.Checked then
      DM.ADOQMember.Filtered :=true;
    RefreshNum;
  end;
end;

procedure TMemberForm.CheckBox1Click(Sender: TObject);
begin
  inherited;
  DM.ADOQMember.Filtered :=CheckBox1.Checked;
end;

procedure TMemberForm.RefreshNum;
var
  Flag:boolean;
begin
  Flag:=DM.ADOQMember.Filtered;
  if Flag then
  begin
    TrueNum:=DM.ADOQMember.RecordCount;
    DM.ADOQMember.Filtered :=false;
    AllNum:=DM.ADOQMember.RecordCount;
    DM.ADOQMember.Filtered :=true;
  end
  else begin
    AllNum:=DM.ADOQMember.RecordCount;
    DM.ADOQMember.Filtered :=true;
    TrueNum:=DM.ADOQMember.RecordCount;
    DM.ADOQMember.Filtered :=false;
  end;
  BStatusbar.Panels[2].Text :=IntToStr(AllNum);
  BStatusbar.Panels[4].Text :=IntToStr(TrueNum);
end;

procedure TMemberForm.FormResize(Sender: TObject);
begin
  inherited;
  BStatusbar.Panels[0].Width :=palClient.Width -410;
end;

procedure TMemberForm.Action_PrintExecute(Sender: TObject);
begin
  inherited;
  if MemberRepForm=nil then
    MemberRepForm:=TMemberRepForm.Create(Application);
  with MemberRepForm do
  begin
//    QRLabel14.Caption :='共计：'+IntTostr(AllTime)+' 分钟机时';
    QuickRep1.Preview;
  end;

end;

end.