datequery_baseunt.pas

煤矿行业采掘接替计划自动生成系统

unit DateQuery_BaseUnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DataEdit_BaseUnt, DB, Grids, DBGrids, StdCtrls, Buttons,
  ExtCtrls, ADODB;

type
  TDataQuery_BaseFrm = class(TDataEdit_BaseFrm)
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn9: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure FormResize(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetControl;
  end;

var
  DataQuery_BaseFrm: TDataQuery_BaseFrm;

implementation

{$R *.dfm}

{ TDataQuery_BaseFrm }

procedure TDataQuery_BaseFrm.SetControl;
begin
Panel3.Height:=round(Panel2.Height/3);
Label1.Left:=Panel2.Left+8;
Label1.Top:=Panel3.Top+Panel3.Height+6;
Label2.Left:=Panel3.Left+round(Panel3.Width/2-Label2.Width/2);
Label2.Top:=Panel3.Top+4;
BitBtn9.Left:=Panel3.Left+Panel3.Width-(BitBtn9.Width+12);
BitBtn9.Top:=Panel3.Top+Panel3.Height-(BitBtn9.Height+8);
end;

procedure TDataQuery_BaseFrm.FormResize(Sender: TObject);
begin
  inherited;
  SetControl;
  self.Refresh;
end;

procedure TDataQuery_BaseFrm.BitBtn9Click(Sender: TObject);
begin
 try
  Label1.Caption:='您共查询到所要求的记录 '+inttostr(Base_DataS.DataSet.RecordCount)+' 条，结果如下：'
 except
  showmessage('数据库连接有问题！'); 
 end;
end;

procedure TDataQuery_BaseFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Label1.Caption:='';
end;

end.