baseinfoquerybase.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit BaseInfoQueryBase;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Base, ComCtrls, ToolWin, ActnList, DB, ADODB, wwDialog, wwfltdlg, wwintl,
   ExtCtrls, Grids, DBGridEh, PrnDbgeh, wwidlg, wwdbdatetimepicker, StdCtrls,
   DBTables, Wwquery, DBGridEhImpExp;

type
   TfrmBaseInfoQueryBase = class(TfrmBase)
      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;
      PrintDBGridEh1: TPrintDBGridEh;
      Panel1: TPanel;
      Panel2: TPanel;
      DBGridEh1: TDBGridEh;
      wwFilterDlg: TwwLookupDialog;
      GroupBox1: TGroupBox;
      ToolButton3: TToolButton;
      SaveDialog1: TSaveDialog;
    ToolButton4: TToolButton;
    acfilter: TAction;
    ToolButton5: TToolButton;
      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);
      procedure ToolButton3Click(Sender: TObject);
      procedure ToolButton4Click(Sender: TObject);
      procedure ToolButton5Click(Sender: TObject);
    procedure acfilterExecute(Sender: TObject);
   private
      { Private declarations }
   public
      sSql: string;
      { Public declarations }
   end;

var
   frmBaseInfoQueryBase: TfrmBaseInfoQueryBase;

implementation

uses DataModule, Main, InfoBase, LookupBase,global;
{$R *.dfm}

procedure TfrmBaseInfoQueryBase.acPrintExecute(Sender: TObject);
begin
   inherited;
   PrintDBGridEh1.Preview;
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);
//var
  // i                : Integer;
begin
   inherited;

  // if not QQuery.Active then QQuery.Open;

   {  for i := 0 to DBGridEh1.Columns.Count - 1 do
     begin
       if i mod 2 = 0 then
         DBGridEh1.Columns[i].Color := clMoneyGreen
       else
         DBGridEh1.Columns[i].Color := clWhite;
     end;  }

end;

procedure TfrmBaseInfoQueryBase.acFindExecute(Sender: TObject);

begin
   if not Assigned(frmLookupBase) then
      frmLookupBase := TfrmLookupBase.create(Self);

   if frmLookupBase.ShowModal = mrOk then
   begin
      QQuery.close;
      QQuery.SQL.Clear;
      QQuery.SQL.Add(sSql + frmLookupBase.sFilter);
      //showmessage(ssql+frmlookupBase.sFilter);
      QQuery.Open;
      if QQuery.Eof then showmessage('没有找到符合条件的选项');
   end;
   frmLookupBase := nil;
end;

procedure TfrmBaseInfoQueryBase.ToolButton3Click(Sender: TObject);
begin
   inherited;
   SaveDialog1.DefaultExt := 'XLS';
   SaveDialog1.Filter := '*.XLS|*.XLS';
   if SaveDialog1.Execute then
   begin
      if SaveDialog1.FileName <> '' then
      begin
         SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh1, SaveDialog1.FileName, True);
         Application.MessageBox('Excel文件导出成功!', '成功', MB_OK);
      end;
   end;
end;

procedure TfrmBaseInfoQueryBase.ToolButton4Click(Sender: TObject);
begin
   inherited;
   QQuery.Edit;
end;

procedure TfrmBaseInfoQueryBase.ToolButton5Click(Sender: TObject);
begin
   inherited;
   QQuery.Post;
end;

procedure TfrmBaseInfoQueryBase.acfilterExecute(Sender: TObject);
begin
  inherited;
//ShowModalForm(Tfrmfilterbase, Self, TForm(frmfilterbase));
end;

end.