addstudentunit.pas

一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 功能强大

unit addstudentUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls, ExtDlgs, ComCtrls,DateUtils,
  Grids, DBGrids;

type
  Taddstudentform = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TMaskEdit;
    DBEdit2: TMaskEdit;
    DBEdit4: TMaskEdit;
    DBEdit6: TMaskEdit;
    DBEdit7: TMaskEdit;
    Panel1: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBComboBox1: TComboBox;
    Panel3: TPanel;
    DBImage1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    Panel4: TPanel;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBImage1DblClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addstudentform: Taddstudentform;

implementation

uses datamoduleUnit;

{$R *.dfm}

procedure Taddstudentform.FormCreate(Sender: TObject);
begin
 with datamodule1.tablestudent do
   begin
    open;
   end;



end;

procedure Taddstudentform.BitBtn1Click(Sender: TObject);
var temp:string;
    pic:tpicture;
begin
if (dbedit1.Text='')or (dbedit2.Text='')or (dbcombobox1.Text='')then
begin
 messagebox (handle,'学号、姓名、性别为必填字段！','警告',mb_ok) ;
 exit;
end;
with datamodule1.tablestudent do
  begin
   if not locate('sno',dbedit1.Text,[])then
      begin
       insert;
       fieldbyname('sno').AsString:=trim(dbedit1.Text);
       fieldbyname('sname').AsString:=trim(dbedit2.Text);
       fieldbyname('ssex').AsString:=dbcombobox1.Text;
       if trim(dbedit4.Text)<>'' then  fieldbyname('jiguan').AsString:=trim(dbedit4.Text);
        fieldbyname('birthday').Value:=tdate(datetimepicker1.Date);
       if trim(dbedit6.Text)<>'' then  fieldbyname('tel').AsString:=trim(dbedit6.Text);
       if trim(dbedit7.Text)<>'' then  fieldbyname('email').AsString:=trim(dbedit7.Text);
       if dbimage1.Tag=1 then
          begin
            pic:=tpicture.Create;
            pic.LoadFromFile(openpicturedialog1.FileName);
            fieldbyname('photo').Assign(pic);
            dbimage1.Tag:=1;
          end;
       post;
       temp:=dbedit1.Text+'的信息已成功 添加 到数据库中！';
       messagebox (handle,pchar(temp),'反馈信息',MB_OK);
      end
   else
      begin
        temp:=dbedit1.Text+'的记录已经存在，是否更新原来的记录？';
        if messagebox (handle,pchar(temp),'警告',MB_OKCANCEL)=IDOK  then
     begin
       edit;
       fieldbyname('sno').AsString:=trim(dbedit1.Text);
       fieldbyname('sname').AsString:=trim(dbedit2.Text);
       fieldbyname('ssex').AsString:=dbcombobox1.Text;
       if trim(dbedit4.Text)<>'' then  fieldbyname('jiguan').AsString:=trim(dbedit4.Text);
       fieldbyname('birthday').Value:=tdate(datetimepicker1.Date);
       if trim(dbedit6.Text)<>'' then  fieldbyname('tel').AsString:=trim(dbedit6.Text);
       if trim(dbedit7.Text)<>'' then  fieldbyname('email').AsString:=trim(dbedit7.Text);
       if dbimage1.tag=1 then
          begin
            pic:=tpicture.Create;
            pic.LoadFromFile(openpicturedialog1.FileName);
            fieldbyname('photo').Assign(pic);
            dbimage1.Tag:=0;
         end;
       UpdateRecord;
       post;
    temp:=dbedit1.Text+'的信息已成功 更新 到数据库中！';
    messagebox (handle,pchar(temp),'反馈信息',MB_OK);
      end;
      end;
    dbedit1.Clear;
    dbedit2.Clear;
    dbedit4.Clear;
    dbedit6.Clear;
    dbedit7.Clear;
    dbimage1.Picture:=nil;
    end;
end;



procedure Taddstudentform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.tablestudent.Close;
end;

procedure Taddstudentform.DBImage1DblClick(Sender: TObject);

begin
if openpicturedialog1.Execute then
   begin
   dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
   dbimage1.Tag:=1;
   end;


end;

procedure Taddstudentform.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure Taddstudentform.Label8Click(Sender: TObject);
begin
if datamodule1.tablestudent.Locate('sno',trim(dbedit1.Text),[]) then
  begin
  DBEdit1.Text:=datamodule1.tablestudent.fieldbyname('sno').AsString;
  DBEdit2.Text:=datamodule1.tablestudent.fieldbyname('sname').AsString;
  dbcombobox1.ItemIndex:=dbcombobox1.Items.IndexOf(datamodule1.tablestudent.fieldbyname('ssex').AsString);
  DBEdit4.Text:=datamodule1.tablestudent.fieldbyname('jiguan').AsString;
  datetimepicker1.Date:=datamodule1.tablestudent.fieldbyname('birthday').Value;
  DBEdit6.Text:=datamodule1.tablestudent.fieldbyname('tel').AsString;
  DBEdit7.Text:=datamodule1.tablestudent.fieldbyname('email').AsString;
  end
  else
   begin
  DBEdit2.Text:='';
  dbcombobox1.ItemIndex:=0;
  DBEdit4.Text:='';
  datetimepicker1.Date:=today;
  DBEdit6.Text:='';
  DBEdit7.Text:='';
   end;
end;

end.