oldonlinenote.pas

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

unit OldOnlineNote;

interface

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

type
  TOldOnlineNoteForm = class(TMyForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    TradeImg1: TTradeImg;
    MoveImgBtn1: TMoveImgBtn;
    DBGrid1: TDBGrid;
    TradeImg2: TTradeImg;
    ActionList1: TActionList;
    DataSetPrint: TDataSetRefresh;
    DataSetLocate: TDataSetRefresh;
    OpenDialog1: TOpenDialog;
    LabelBtn1: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn3: TLabelBtn;
    Action_OpenDatabase: TAction;
    procedure DataSetPrintExecute(Sender: TObject);
    procedure DataSetLocateExecute(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Action_OpenDatabaseExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AllTime:integer;
    procedure Refresh;
  end;

var
  OldOnlineNoteForm: TOldOnlineNoteForm;

implementation

uses DMOldOnlineNote, oldOnlineLocate, oldOnlineNoteRep;

{$R *.dfm}

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

procedure TOldOnlineNoteForm.DataSetLocateExecute(Sender: TObject);
begin
  inherited;
  OnlineLocateForm:=TOnlineLocateForm.Create(Application);
  if OnlineLocateForm.ShowModal=mrOK then
    Refresh;
end;

procedure TOldOnlineNoteForm.Refresh;
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;

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

procedure TOldOnlineNoteForm.Action_OpenDatabaseExecute(Sender: TObject);
var
  APath:string;
begin
  inherited;
  if opendialog1.Execute then
  begin
    APath:=opendialog1.FileName;
    if DM.OpenDatabase(APath) then
      Refresh
    else
      ShowMessage('打开数据库失败！');
  end;
end;

procedure TOldOnlineNoteForm.FormCreate(Sender: TObject);
begin
  inherited;
  if ParamCount>0 then
  begin
    if DM.OpenDatabase(ParamStr(1)) then
      Refresh
    else
      ShowMessage('打开数据库失败！');
  end;
end;

end.