onlinenote.pas

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

unit OnlineNote;

interface

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

type
  TOnlineNoteForm = class(TMyForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    HemiBtn1: THemiBtn;
    HemiBtn2: THemiBtn;
    DBGrid1: TDBGrid;
    HemiBtn3: THemiBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
    procedure HemiBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AllTime:integer;
  end;

var
  OnlineNoteForm: TOnlineNoteForm;

implementation

uses data, OnlineLocate, OnlineNoteRep;

{$R *.dfm}

procedure TOnlineNoteForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TOnlineNoteForm.FormResize(Sender: TObject);
begin
  inherited;
  Statusbar1.Panels[0].Width :=palClient.Width -440;
end;

procedure TOnlineNoteForm.FormCreate(Sender: TObject);
begin
  inherited;
  Statusbar1.Panels[3].Text := CopyRight;
  DM.ADOQOnlineNote.Active :=true;
end;

procedure TOnlineNoteForm.HemiBtn2Click(Sender: TObject);
begin
  inherited;
  OnlineLocateForm:=TOnlineLocateForm.Create(Application);
  if OnlineLocateForm.ShowModal=mrOK then
  begin
    with DM.ADOQOnlineNote do
    begin
      first;
      allTime:=0;
      while not Eof do
      begin
        allTime:=allTime+FieldValues['所用机时'];
        next;
      end;
    Statusbar1.Panels[1].Text :='共有：'+IntToStr(RecordCount)+' 条记录，合计 '+
      IntToStr(allTime)+' 分钟机时.';
    end;
  end;
end;

procedure TOnlineNoteForm.HemiBtn1Click(Sender: TObject);
begin
  inherited;
  if DM.ADOQOnlineNote.Active=false then exit;
  if OnlineNoteRepFrom=nil then
    OnlineNoteRepFrom:=TOnlineNoteRepFrom.Create(Application);
  with OnlineNoteRepFrom do
  begin
    QRLabel14.Caption :='共计：'+IntTostr(AllTime)+' 分钟机时';
    QuickRep1.Preview;
  end;
end;

end.