unit16.pas

学校学籍管理系统

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, ComCtrls;

type
  Tjiaoji = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    Edit1: TEdit;
    DBLookupComboBox5: TDBLookupComboBox;
    Edit3: TEdit;
    DBLookupComboBox6: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Edit2: TEdit;
    DataSource3: TDataSource;
    DateTimePicker1: TDateTimePicker;
    procedure Button2Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jiaoji: Tjiaoji;

implementation

uses Unit4;

{$R *.dfm}

procedure Tjiaoji.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
close;
end;

procedure Tjiaoji.Edit2Change(Sender: TObject);
begin
dm.aoru.Filter:='ID='''+edit2.Text+'''';
dm.aoru.Open;
dm.aoji.Open;
dm.pus.Open;
end;

procedure Tjiaoji.Button1Click(Sender: TObject);
begin
if (Edit1.Text='')or (edit2.Text='')then
     begin
         showmessage('数据输入不完整!');exit
         end;
dm.aoji.FieldByName('id').AsString:=Edit2.Text;
dm.aoji.FieldByName('jide').AsString:=Edit1.Text;
dm.aoji.FieldByName('jidata').AsDateTime:=datetimepicker1.Date;
dm.aoji.Post;
next;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
dm.aoji.Refresh;
end;

procedure Tjiaoji.FormShow(Sender: TObject);
begin
dm.aoru.Active:=true;
dm.aoji.Active:=true;
end;

end.