tipunit.pas

学费管理系统,学校使用

unit tipUnit;

interface

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

type
  Ttipform = class(TForm)
    list_adoquery: TADOQuery;
    DataSource1: TDataSource;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    Panel1: TPanel;
    ok_button: TBitBtn;
    cancel_button: TBitBtn;
    cxGrid1DBTableView1Id: TcxGridDBColumn;
    cxGrid1DBTableView1ChargeYearID: TcxGridDBColumn;
    cxGrid1DBTableView1StudentName: TcxGridDBColumn;
    cxGrid1DBTableView1Code: TcxGridDBColumn;
    cxGrid1DBTableView1length: TcxGridDBColumn;
    cxGrid1DBTableView1ClassCode: TcxGridDBColumn;
    cxGrid1DBTableView1Address: TcxGridDBColumn;
    cxGrid1DBTableView1Source: TcxGridDBColumn;
    cxGrid1DBTableView1Tutor: TcxGridDBColumn;
    cxGrid1DBTableView1Circs: TcxGridDBColumn;
    cxGrid1DBTableView1Memo: TcxGridDBColumn;
    cxGrid1DBTableView1RegDate: TcxGridDBColumn;
    cxGrid1DBTableView1Scholar: TcxGridDBColumn;
    cxGrid1DBTableView1department: TcxGridDBColumn;
    cxGrid1DBTableView1spec: TcxGridDBColumn;
    cxGrid1DBTableView1name: TcxGridDBColumn;
    cxGrid1DBTableView1SexName: TcxGridDBColumn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SqlText:String;
  end;

var
  tipform: Ttipform;

implementation

uses DMUnit, MainformUnit;

{$R *.dfm}

procedure Ttipform.FormCreate(Sender: TObject);
begin
  SqlText:=list_adoquery.SQL.Text ;
end;

end.