admin.pas

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

unit Admin;

interface

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

type
  TAdminForm = class(TBrowseForm)
    procedure FormCreate(Sender: TObject);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AllNum:integer;
    procedure RefreshNum;
  end;

var
  AdminForm: TAdminForm;

implementation

uses data, AdminEdit;

{$R *.dfm}

procedure TAdminForm.FormCreate(Sender: TObject);
begin
  inherited;
  BStatusbar.Panels[4].Text := CopyRight;
  DM.ADOTAdminList.Active :=true;
  RefreshNum;
end;

procedure TAdminForm.DataSetEdit1Execute(Sender: TObject);
begin
  inherited;
  ADminEditForm:=TADminEditForm.Create(Application);
  ADminEditForm.OPType :=1;     //设置操作类型为修改
  DM.ADOTAdminList.Edit;
  ADminEditForm.ShowModal;
end;

procedure TAdminForm.DataSetInsert1Execute(Sender: TObject);
begin
  inherited;
  ADminEditForm:=TADminEditForm.Create(Application);
  ADminEditForm.OPType :=0;     //设置操作类型为添加
  with DM.ADOTAdminList do
  begin
    Append;
    FieldValues['adSex']:='男';
    FieldValues['popedom']:=1;
    FieldValues['sysSetup']:=false;
    FieldValues['fillTime']:=true;
    FieldValues['award']:=false;
    FieldValues['online']:=true;
    FieldValues['member']:=true;
  end;
  if ADminEditForm.ShowModal=mrOK then
    RefreshNum;
end;

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

procedure TAdminForm.FormResize(Sender: TObject);
begin
  inherited;
  BStatusBar.Panels[0].Width :=palClient.Width -350;
end;

procedure TAdminForm.RefreshNum;
begin
  AllNum:=DM.ADOTAdminList.RecordCount;
  BStatusbar.Panels[2].Text :=IntToStr(AllNum)+ '人';

end;

end.