search1.~pas

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

unit search1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, dbcgrids, StdCtrls, DBCtrls, ExtCtrls, Mask;

type
  TForm21 = class(TForm)
    Label1: TLabel;
    i_id: TEdit;
    Label3: TLabel;
    i_job: TDBLookupComboBox;
    Label4: TLabel;
    i_edu_level: TDBLookupComboBox;
    Label2: TLabel;
    i_specialty: TDBEdit;
    Label7: TLabel;
    i_address: TDBEdit;
    i_sex: TDBRadioGroup;
    i_name: TDBEdit;
    i_birthday: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    i_tel: TDBEdit;
    Label10: TLabel;
    i_email: TDBEdit;
    Label9: TLabel;
    i_remark: TDBMemo;
    Button1: TButton;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    T_user2: TTable;
    DS_user2: TDataSource;
    T_department: TTable;
    DS_department: TDataSource;
    T_job: TTable;
    DS_job: TDataSource;
    T_edu_level: TTable;
    DS_edu_level: TDataSource;
    T_change: TTable;
    T_change_list: TTable;
    DS_change_list: TDataSource;
    T_counter: TTable;
    procedure FormCreate(Sender: TObject);
    procedure i_idChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.FormCreate(Sender: TObject);
begin
    if not T_department.Active then T_department.Open ;   //如果系别表没有激活则打开系别表
    if not T_job.Active then T_job.Open ;      //如果工作表没有激活则打开工作表
    if not T_edu_level.Active then T_edu_level.Open;  //如果教育程度表没有激活则打开教育程度表
    T_user2.Close;  //关闭用户信息表
end;

procedure TForm21.i_idChange(Sender: TObject);
begin
   T_user2.Filter :='ID='''+i_id.Text+'''';     //在i_id中输入教师号时，设置过滤器，提取教师信息
   T_user2.Filtered :=true; //激活过滤器
   T_user2.Open;   //打开教师信息表
   T_change_list.Filter :='PERSON='''+i_id.Text +''''; //设置过滤器，提取人事变更记录
   T_change_list.Filtered :=true;  //激活过滤器
   T_change_list.Open ;  //打开人事变更记录信息表
end;

procedure TForm21.Button1Click(Sender: TObject);
begin
    T_user2.Post ;         //修改提交用户信息表
    T_change_list.Post ;   //修改提交人事变更记录表
end;

procedure TForm21.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      inherited;        //窗口关闭时继承原有操作
      T_user2.Close ;   // 关闭用户信息表
      T_change_list.Close;  //关闭人事变更记录信息表
end;

end.