unit7.pas

学校学籍管理系统

unit Unit7;

interface

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

type
  Tstuden = 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;
    Label13: TLabel;
    Label14: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox4: TComboBox;
    Edit6: TEdit;
    MaskEdit2: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    ComboBox2: TComboBox;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  studen: Tstuden;

implementation

uses Unit3, Unit4, Unit8;

{$R *.dfm}

procedure Tstuden.Button1Click(Sender: TObject);
begin
dm.studen.Active:=true;
if (maskEdit2.Text='')or (edit1.Text='') or(ComboBox1.Text='')
or(edit2.Text='') or(edit3.Text='')or(ComboBox2.Text='') then
     begin
     showmessage('数据输入不完整!');exit
         end;
if maskEdit2.Text=dm.stud.FieldByName('id').AsString then
    begin
MessageBox(Handle,'学号已有，不能添加！','警告',MB_OK); exit;
    end;
dm.studen.Edit;
dm.studen.FieldByName('id').AsString:=maskedit2.Text;
dm.studen.FieldByName('user').AsString:=Edit1.Text;
dm.studen.FieldByName('sex').AsString:=ComboBox1.Text;
dm.studen.FieldByName('cudata').AsDateTime:=datetimepicker1.Date;
dm.studen.FieldByName('rudata').AsDateTime:=datetimepicker2.Date;
dm.studen.FieldByName('zhu').AsString:=Edit2.Text;
dm.studen.FieldByName('jiname').AsString:=Edit3.Text;
dm.studen.FieldByName('tel').AsString:=Edit4.Text;
dm.studen.FieldByName('jisu').AsString:=ComboBox4.Text;
dm.studen.FieldByName('ling').AsString:=ComboBox2.Text;
dm.studen.FieldByName('be').AsString:=edit6.Text;
dm.studen.Post;
dm.studen.Append;
next;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit6.Text:='';
ComboBox1.Text:='';
ComboBox4.Text:='';
ComboBox2.Text:='';
maskedit2.Text:='';
dm.studen.Refresh;
dm.stud.Refresh;
dm.main.Refresh;
end;

procedure Tstuden.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tstuden.FormShow(Sender: TObject);
begin
dm.Database1.connected:=true;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit6.Text:='';
ComboBox1.Text:='';
ComboBox4.Text:='';
ComboBox2.Text:='';
maskedit2.Text:='';
dm.main.Refresh
end;

procedure Tstuden.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then key :=#0;
end;

procedure Tstuden.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then key :=#0;
end;

procedure Tstuden.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then key :=#0;
end;

end.