unit17.pas

来自「学校学籍管理系统」· PAS 代码 · 共 101 行

unit Unit17;

interface

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

type
  Taoxue = 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;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Label9: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label10: TLabel;
    MaskEdit1: TMaskEdit;
    procedure Edit2Change(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aoxue: Taoxue;

implementation

uses Unit4;

{$R *.dfm}

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

procedure Taoxue.MaskEdit1Change(Sender: TObject);
begin
dm.studen.Filter:='ID='''+MaskEdit1.Text+'''';
dm.studen.Open;
end;

procedure Taoxue.Button1Click(Sender: TObject);
begin
dm.aoxeu.open;
if (maskEdit1.Text='')or (edit1.Text='')or (edit2.Text='')
or (edit3.Text='')then
     begin
         showmessage('数据输入不完整!');exit
         end;

dm.aoxeu.FieldByName('id').AsString:=maskEdit1.Text;
dm.aoxeu.FieldByName('suid').AsString:=Edit2.Text;
dm.aoxeu.FieldByName('de').AsString:=Edit1.Text;
dm.aoxeu.FieldByName('be').AsString:=Edit3.Text;
dm.aoxeu.FieldByName('data').AsDateTime:=datetimepicker1.Date;
dm.aoxeu.Append;
dm.aoxeu.Post;
maskedit1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
dm.aoxeu.Refresh;
end;

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

end.