frmsearch.~pas

实用的茶楼管理系统

unit frmSearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ADODB, cxTimeEdit, cxLabel;

type
  TSearchForm = class(TForm)
    Panel1: TPanel;
    grdTV_cOrder: TcxGridDBTableView;
    Lev_cOrder: TcxGridLevel;
    grd: TcxGrid;
    Panel3: TPanel;
    Que: TADOQuery;
    DS_cOrder: TDataSource;
    grdTV_cOrderID: TcxGridDBColumn;
    grdTV_cOrdercTableID: TcxGridDBColumn;
    grdTV_cOrdercustNum: TcxGridDBColumn;
    grdTV_cOrdercDate: TcxGridDBColumn;
    grdTV_cOrdercTime: TcxGridDBColumn;
    grdTV_cOrderprice: TcxGridDBColumn;
    grdTV_cOrdercMoney: TcxGridDBColumn;
    grdTV_cOrderrebate: TcxGridDBColumn;
    grdTV_cOrderRemark: TcxGridDBColumn;
    grdTableView1: TcxGridTableView;
    grdDBTableView1: TcxGridDBTableView;
    DS_cOrderDetail: TDataSource;
    Dataset_cOrderDetail: TADODataSet;
    grdDBTableView1OrderID: TcxGridDBColumn;
    grdDBTableView1MenuID: TcxGridDBColumn;
    grdDBTableView1Price: TcxGridDBColumn;
    Lev_cOrderDetail: TcxGridLevel;
    grdTV_cOrderDetail: TcxGridDBTableView;
    grdTV_cOrderDetailOrderID: TcxGridDBColumn;
    grdTV_cOrderDetailMenuID: TcxGridDBColumn;
    grdTV_cOrderDetailName: TcxGridDBColumn;
    grdTV_cOrderDetailPrice: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SearchForm: TSearchForm;

implementation

uses dataModule;

{$R *.dfm}


procedure TSearchForm.FormCreate(Sender: TObject);
begin
  Que.Open;
  Dataset_cOrderDetail.Open;   
end;

end.