adoquery获取框架中的数据库连接配置

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIImagePanel, SUIGroupBox, dxExEdtr, DB, ADODB,
  SUIButton, dxCntner, dxTL, dxDBCtrl, dxDBGrid, SUIForm;

type
  TForm1 = class(TForm)
    sfrm1: TsuiForm;
    sgrpbx1: TsuiGroupBox;
    dxdbgrd1: TdxDBGrid;
    btn1: TsuiButton;
    btn2: TsuiButton;
    btn3: TsuiButton;
    btn4: TsuiButton;
    btn5: TsuiButton;
    qry1: TADOQuery;
    ds1: TDataSource;
    procedure btn5Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure qry1AfterOpen(DataSet: TDataSet);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    procedure createForm;export;
var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure createForm;
begin
  Form1:=TForm1.Create(Application);
  Form1.ShowModal;
  FreeAndNil(Form1);
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
if Application.MessageBox('真的要离开么?', '提示', MB_OKCANCEL +
  MB_ICONQUESTION + MB_DEFBUTTON2) = IDOK then
begin
  Self.Close;
end;

end;

 procedure TForm1.btn1Click(Sender: TObject);
begin
with qry1 do
begin
  Close;
  SQL.Text:='SELECT  [syxh] 序号,[blh] 病历号,[hzxm] 患者姓名,[py] 拼音码,[sfzh] 身份证号,[sex] 性别,[birth] 出生日期,' +
'ksdm 所属科室,[lrrq] 录入日期,[ryrq] 入院日期 ,[rqrq] 入区日期,[lxr] 联系人,[lxrgx] 联系人关系,[lxrdh] 联系人电话,[zycs] 住院次数,ybljje 医保累计金额,tcljje 统筹累计金额 ,[wzjb]FROM first_page';
open;
end;

end;
procedure TForm1.qry1AfterOpen(DataSet: TDataSet);
begin

//dxDBGrid初始化设置
  dxdbgrd1.DefaultFields:=False;
 dxdbgrd1.KeyField:=qry1.Fields[0].FieldName;
 dxdbgrd1.OptionsView:=dxdbgrd1.OptionsView+[edgorowselect];
 dxdbgrd1.OptionsDB:=dxdbgrd1.OptionsDB+[edgoloadallrecords];
 dxdbgrd1.DestroyColumns;
 dxdbgrd1.CreateDefaultColumns(qry1,nil);
 dxdbgrd1.LookAndFeel:=lfFlat;
 dxdbgrd1.ShowGroupPanel:=True;
 dxdbgrd1.ShowSummaryFooter:=True;
 dxdbgrd1.GridLineColor:=clBlue;
 dxdbgrd1.Font.Size:=12;
 dxdbgrd1.Font.Name:='黑体';

 //底部显示总计
 dxdbgrd1.Columns[1].SummaryFooterField:=dxdbgrd1.KeyField;
 dxdbgrd1.Columns[1].SummaryFooterFormat:='总计：0';
 dxdbgrd1.Columns[1].SummaryFooterType:=cstCount;

 //分组统计

 dxdbgrd1.SummaryGroups.Add;
 dxdbgrd1.SummaryGroups[0].SummaryItems.Add;
 dxdbgrd1.SummaryGroups[0].SummaryItems[0].SummaryField:=dxdbgrd1.KeyField;
 dxdbgrd1.SummaryGroups[0].SummaryItems[0].SummaryFormat:='【小计：0】';
 dxdbgrd1.SummaryGroups[0].SummaryItems[0].SummaryType:=cstCount;

 dxdbgrd1.SummaryGroups[0].SummaryItems.Add;
 dxdbgrd1.SummaryGroups[0].SummaryItems[1].SummaryField:=dxdbgrd1.KeyField;
 dxdbgrd1.SummaryGroups[0].SummaryItems[1].SummaryFormat:='【最大：0】';
 dxdbgrd1.SummaryGroups[0].SummaryItems[1].SummaryType:=cstMax;

 TdxDBGridColumn(dxdbgrd1.Columns[2]).SummaryGroupName:=dxdbgrd1.SummaryGroups[0].Name;
 TdxDBGridColumn(dxdbgrd1.Columns[2]).GroupIndex:=0;



 dxdbgrd1.FullRefresh;



end;

procedure TForm1.btn3Click(Sender: TObject);
begin
dxdbgrd1.DataSource.DataSet.Delete;

end;

end.