unit BaseInfoQueryBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QueryBase, ComCtrls, ToolWin, ActnList, DB, ADODB,  wwDialog, wwfltdlg, wwintl,
  daDataModule, ppModule, ppBands, ppCache, ppClass, ppProd, ppReport,
  ppComm, ppRelatv, ppDB, ppDBPipe;
  //ppClass, ppReport, ppComm, ppRelatv, ppDB, ppDBPipe,ppProd,   ppBands, ppCache, ppModule,

type
  TfrmBaseInfoQueryBase = class(TfrmQueryBase)
    ALToolbar: TActionList;
    acFirst: TAction;
    acPrior: TAction;
    acNext: TAction;
    acLast: TAction;
    acFind: TAction;
    acPrint: TAction;
    acExit: TAction;
    ToolBar: TToolBar;
    tbtFirst: TToolButton;
    tbtPrior: TToolButton;
    tbtNext: TToolButton;
    tbtLast: TToolButton;
    tbtDivider: TToolButton;
    tbtFind: TToolButton;
    tbtDivider3: TToolButton;
    tbtExit: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    QQuery: TADOQuery;
    dsQuery: TDataSource;
    ppDBPipeline: TppDBPipeline;
    ppReport: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    daDataModule1: TdaDataModule;
    procedure acPrintExecute(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acFindExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseInfoQueryBase: TfrmBaseInfoQueryBase;

implementation

Uses StockMain;
{$R *.dfm}

procedure TfrmBaseInfoQueryBase.acPrintExecute(Sender: TObject);
begin
  inherited;
QQuery.DisableControls ;
ppReport.Print ;
QQuery.EnableControls ;
end;

procedure TfrmBaseInfoQueryBase.acFirstExecute(Sender: TObject);
begin
  inherited;
QQuery.First ;
end;

procedure TfrmBaseInfoQueryBase.acPriorExecute(Sender: TObject);
begin
  inherited;
QQuery.Prior;
end;

procedure TfrmBaseInfoQueryBase.acNextExecute(Sender: TObject);
begin
  inherited;
QQuery.Next;
end;

procedure TfrmBaseInfoQueryBase.acLastExecute(Sender: TObject);
begin
  inherited;
QQuery.Last;
end;

procedure TfrmBaseInfoQueryBase.acExitExecute(Sender: TObject);
begin
  inherited;
Close;
end;

procedure TfrmBaseInfoQueryBase.FormCreate(Sender: TObject);
begin
  inherited;
if not QQuery.Active then QQuery.Open ;

  with wwInternational.UserMessages do
    begin
      wwDBGridDiscardChanges:= '取消對該記錄的修改嗎?';
      LocateNoMatches:= '沒有相應的記錄！';
      LocateNoMoreMatches:= '沒有相應的記錄了！';
      FilterDlgNoCriteria:= '你還未定義任何查詢條件！';
    end;
  with wwInternational.FilterDialog do
    begin
      BtnViewSummary := '查看條件';
      BtnViewSummaryHint  := '查看當前定義的條件';
      BtnNewSearch  := '清除條件';
      BtnNewSearchHint  := '清除當前定義的條件';
      FieldOrderLabel  := '列表順序';
      FieldOrderHint := '';
      AlphabeticLabel := '按字符';
      LogicalLabel := '按邏輯';
      AllFieldsLabel := '所有';
      SearchedFieldsLabel := '已定義';
      StartingRangeLabel :=  '起始值';
      EndingRangeLabel := '結束值';
      StartingRangeHint := '';
      EndingRangeHint := '';
      BtnClearMin := '清除';
      BtnClearMax := '清除';
      BtnClearFilterValue := '清除';
      BtnClearMinHint := '';
      BtnClearMaxHint := '';
      BtnClearFilterValueHint := '';
      ByValueLabel  := '值';
      ByRangeLabel  :=  '范圍';
      FieldValueLabel  := '值';
      FieldValueHint  := '';
      SearchTypeLabel  :=  '匹配類型';
      SearchTypeHint :=  '';
      MatchExactLabel  := '全部';
      MatchStartLabel  := '開始部門';
      MatchAnyLabel  := '任何地方';
      CaseSensitiveLabel := '區分大小寫';
      CaseSensitiveHint := '';
      NonMatchingLabel := '';
      NonMatchingHint := '';
      SummaryFieldLabel  := '';
      SummarySearchLabel := '';
      SummaryValueLabel := '';

      SummaryCaption:= '';

      FieldsLabel:= '項目';
      ValueRangeTabHint:= '';
      AllSearchedTabHint:= '';
      ViewSummaryNotText:= '';
    end;

end;

procedure TfrmBaseInfoQueryBase.acFindExecute(Sender: TObject);
begin
  inherited;
{if wwFilterDlg.Execute then
   begin
   end;}
end;

end.