db_frm.~pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~PAS 代码 · 共 47 行

unit DB_Frm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TDBFrm = class(TForm)
    Opera_Query: TQuery;
    Opera_DataSource: TDataSource;
    Opera_Table: TTable;
    Room_Table: TTable;
    Room_DataSource: TDataSource;
    Room_Query: TQuery;
    restable_Table: TTable;
    restable_DataSource: TDataSource;
    Dish_Table: TTable;
    Dish_DataSource: TDataSource;
    login_Table: TTable;
    yuding_Table: TTable;
    yuding_DataSource: TDataSource;
    yuding_Query: TQuery;
    customer_Table: TTable;
    customer_DataSource: TDataSource;
    meal_Table: TTable;
    meal_DataSource: TDataSource;
    restable_Query: TQuery;
    meal_Query: TQuery;
    roombene_Table: TTable;
    tablebene_Table: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DBFrm: TDBFrm;

implementation

{$R *.dfm}

end.