course.pas

本文件中还有JSP、php和delphi等源程序

unit course;

interface

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

type
  TF_course = class(TForm)
    TreeView1: TTreeView;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DataSource1: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Btnadd: TButton;
    Btndlt: TButton;
    Btnedt: TButton;
    Btnsav: TButton;
    Btnsavtosrv: TButton;
    Database1: TDatabase;
    Tabcourse: TTable;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1DblClick(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
    procedure BtndltClick(Sender: TObject);
    procedure BtnedtClick(Sender: TObject);
    procedure BtnsavClick(Sender: TObject);
    procedure BtnsavtosrvClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_course: TF_course;

implementation

{$R *.dfm}

procedure TF_course.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TF_course.TreeView1DblClick(Sender: TObject);
begin

   if TreeView1.Selected.Text='信息系' then
   begin
   Tabcourse.Filter :='courseno = ''xin*''';
   Tabcourse.Filtered :=true;
   end
   else if  TreeView1.Selected.Text='计算机系' then
   begin
   Tabcourse.Filter :='courseno = ''jsj*''';
   Tabcourse.Filtered :=true;
   end
   else if  TreeView1.Selected.Text='管理系' then
   begin
   Tabcourse.Filter :='courseno = ''gli*''';
   Tabcourse.Filtered :=true;
   end
   else
   Tabcourse.Filtered :=false;

  // table1.Active :=false ;
   //table1.Active :=true ;
end;

procedure TF_course.BtnaddClick(Sender: TObject);
begin
    Tabcourse.Append ;
end;

procedure TF_course.BtndltClick(Sender: TObject);
begin
    if MessageDlg('是否确定要删除信息?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Tabcourse.Delete  ;
end;

procedure TF_course.BtnedtClick(Sender: TObject);
begin
     Tabcourse.edit  ;
end;

procedure TF_course.BtnsavClick(Sender: TObject);
begin
   Tabcourse.post  ;
end;

procedure TF_course.BtnsavtosrvClick(Sender: TObject);
begin
    Tabcourse.ApplyUpdates ;
end;

procedure TF_course.FormCreate(Sender: TObject);
begin
   Tabcourse.CachedUpdates  :=true;
end;

end.