baseinfoquerybase.~pas

Barcode And LabelPrint

unit BaseInfoQueryBase;

interface

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

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.