stucomment.~pas

高校教学管理信息系统

unit stucomment;

interface

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

type
  TF_stucomment = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Btnadd: TButton;
    Btnedt: TButton;
    Btndlt: TButton;
    Btnsav: TButton;
    Panel1: TPanel;
    Label7: TLabel;
    CmbDepart: TComboBox;
    Btnqry: TButton;
    DBComboBox2: TDBComboBox;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    ADOTabcomment: TADOTable;
    ADOTabcommentID: TAutoIncField;
    ADOTabcommentteacherno: TStringField;
    ADOTabcommentname: TStringField;
    ADOTabcommentdepart: TStringField;
    ADOQryCourse: TADOQuery;
    ADOQryCoursename: TStringField;
    DataSource2: TDataSource;
    ADOTabcommentstuping: TStringField;
    ADOTabcommentteaping: TStringField;
    ADOTabcommentzongping: TStringField;
    ADOTabcommenttermno: TStringField;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    Label6: TLabel;
    Label8: TLabel;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    Label10: TLabel;
    Cmbterm: TComboBox;
    ADOQuery1: TADOQuery;
    Edname: TEdit;
    Label12: TLabel;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnqryClick(Sender: TObject);
    procedure ADOTabcommentAfterScroll(DataSet: TDataSet);
    procedure BtnaddClick(Sender: TObject);
    procedure BtnedtClick(Sender: TObject);
    procedure BtndltClick(Sender: TObject);
    procedure BtnsavClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_stucomment: TF_stucomment;

implementation
uses main;

{$R *.dfm}

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

end;
procedure TF_stucomment.BtnqryClick(Sender: TObject);
begin
     if Edname.Text<>'' then
     begin
     adotabcomment.Filter:='name='''+edname.Text+'''  ';
     adotabcomment.Filtered:=true;
     end
     else
     if CmbDepart.Text<>'全部' then
     begin
     adotabcomment.Filter :=' depart='''+ cmbdepart.Text+'''  ';
     adotabcomment.Filtered :=true;
     end
     else
     adotabcomment.Filtered :=false;
end;
procedure TF_stucomment.ADOTabcommentAfterScroll(DataSet: TDataSet);
begin
    adoqryCourse.SQL.Clear ;
    adoqryCourse.SQL.Add('select name from course where teacherno='''+adotabcomment.fieldbyname('teacherno').AsString +''' ');
    adoqryCourse.Open ;
end;

procedure TF_stucomment.BtnaddClick(Sender: TObject);
begin
    adotabcomment.Append ;
end;

procedure TF_stucomment.BtnedtClick(Sender: TObject);
begin
      adotabcomment.edit;
end;

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

procedure TF_stucomment.BtnsavClick(Sender: TObject);
begin
      adotabcomment.Post ;
end;

procedure TF_stucomment.FormCreate(Sender: TObject);
begin
     cmbterm.Items.Clear ;
     adoquery1.SQL.Clear ;
     adoquery1.SQL.Add('select * from term');
     adoquery1.Open ;
     while not adoquery1.Eof do
     begin
        if adoquery1.Fieldbyname('crnt').AsString='1' then
        cmbterm.text:= adoquery1.Fieldbyname('term').AsString;
        cmbterm.Items.add(adoquery1.Fieldbyname('term').AsString);
        adoquery1.Next ;
     end;
end;

end.