unit15.pas

学校学籍管理系统

unit Unit15;

interface

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

type
  Tjiaoru = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DateTimePicker1: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Edit4: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DateTimePicker2: TDateTimePicker;
    Edit8: TEdit;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBEdit1: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jiaoru: Tjiaoru;

implementation

uses Unit4;

{$R *.dfm}

procedure Tjiaoru.BitBtn1Click(Sender: TObject);
begin
dm.aoru.Open;
if (Edit1.Text='')or (edit2.Text='') or(edit3.Text='')
 or(edit4.Text='') or(edit6.Text='')then
     begin
         showmessage('数据输入不完整!');exit
         end;
dm.aoru.FieldByName('id').AsString:=Edit1.Text;
dm.aoru.FieldByName('cudata').AsDateTime:=datetimepicker1.Date;
dm.aoru.FieldByName('tydata').AsDateTime:=datetimepicker2.Date;
dm.aoru.FieldByName('cu').AsString:=Edit2.text;
dm.aoru.FieldByName('zhe').AsString:=Edit3.Text;
dm.aoru.FieldByName('ji').AsString:=Edit4.Text;
dm.aoru.FieldByName('sg').AsString:=Edit6.Text;
dm.aoru.FieldByName('be').AsString:=Edit8.Text;
dm.aoru.Post;
next;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit6.Text:='';
edit8.Text:='';
dm.aoru.Refresh;
dm.main.Refresh;
end;

procedure Tjiaoru.BitBtn2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit6.Text:='';
edit8.Text:='';
end;

end.