hybhglut.pas

来自「宾馆客房管理系统,功能强大,界面美观,全部delphi源代码」· PAS 代码 · 共 43 行

unit hybhglut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DBCtrls, DB, Grids, DBGrids, ADODB, ExtCtrls;

type
  Thybhglfm = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    hyado: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hybhglfm: Thybhglfm;

implementation

{$R *.dfm}

procedure Thybhglfm.FormCreate(Sender: TObject);
begin
 with hyado do
 begin
  close;
  sql.clear;
  sql.Add('select * from 会员编号表 order by 编号');
  open;
 end;
end;

end.