ufrm_common_select.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

unit ufrm_common_select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, ExtCtrls, DBCtrls, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, Buttons, DB, ADODB;

type
  Tfrm_common_select = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    DBNavigator1: TDBNavigator;
    dxDBGrid1: TdxDBGrid;
    Panel2: TPanel;
    bt_yes: TBitBtn;
    bt_no: TBitBtn;
    Query1: TADOQuery;
    DataSource1: TDataSource;
    procedure ToolButton1Click(Sender: TObject);
    procedure bt_noClick(Sender: TObject);
    procedure bt_yesClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    g_select:string;
    g_table:string;
    g_where:string;
    g_order:string;
    procedure init(p_select,p_table,p_where,p_order:string);
  end;

var
  frm_common_select: Tfrm_common_select;

implementation
uses dm, ufrm_query;
{$R *.dfm}
procedure Tfrm_common_select.init(p_select,p_table,p_where,p_order:string);
begin
  g_select:=p_select;
  g_table:=p_table;
  g_where:=p_where;
  g_order:=p_order;
  query1.Close;
  query1.sql.clear;
  query1.sql.add('SELECT '+p_select+' FROM '+p_table+' WHERE '+p_where+g_order);
  query1.open;
end;
procedure Tfrm_common_select.ToolButton1Click(Sender: TObject);
var l_str:string;
begin
//initialize sql form
Application.CreateForm(Tfrm_query, frm_query);
if pos(',',g_table)>0 then
 begin
   frm_query.init(trim(copy(g_table,1,pos(',',g_table)-1)));
 end
else
 begin
  frm_query.init(trim(g_table));
 end;
if (frm_query.ShowModal=mrok) then
begin
   l_str:=frm_query.g_sqlstr2;
   query1.Close;
   query1.sql.clear;
   query1.sql.add('SELECT '+g_select+' FROM '+g_table+' WHERE '+g_where
          +' AND '+l_str+g_order);
   query1.open;
end;
try
 frm_query.Release;
except
 ;
end;
end;

procedure Tfrm_common_select.bt_noClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_common_select.bt_yesClick(Sender: TObject);
begin
 if (query1.state=dsinactive) or (query1.Eof and query1.Bof) then
   close
 else
   frm_common_select.ModalResult:=mrok;
end;

procedure Tfrm_common_select.dxDBGrid1DblClick(Sender: TObject);
begin
  self.bt_yesClick(nil);
end;

end.