basequery.pas

来自「另一种管理模式下的图书管理系统SQL源程序」· PAS 代码 · 共 43 行

unit basequery;

interface

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

type
  Tf_basequery = class(Tf_baseform)
    Panel3: TPanel;
    Label4: TLabel;
    sum: TEdit;
    Label1: TLabel;
    summoney: TEdit;
    Grid1: TDBGrid;
    Source: TDataSource;
    Panel1: TPanel;
    Label5: TLabel;
    Condition: TCheckBox;
    Field: TComboBox;
    Label7: TLabel;
    Value: TEdit;
    timedate: TCheckBox;
    FromDate: TDateTimePicker;
    Label2: TLabel;
    ToDate: TDateTimePicker;
    Query: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_basequery: Tf_basequery;

implementation
  uses Data;
{$R *.dfm}

end.