addteacherunit.pas

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

unit addteacherUnit;

interface

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

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

var
  addteacherForm: TaddteacherForm;

implementation

uses datamoduleUnit;

{$R *.dfm}



procedure TaddteacherForm.BitBtn1Click(Sender: TObject);
var temp:string;
    pic:tpicture;
begin

if (dbedit1.Text='')or (dbcombobox1.Text='')then
begin
 messagebox (handle,'姓名、性别为必填字段！','警告',mb_ok) ;
 exit;
end;
with datamodule1.tableteacher do
  begin
   if not locate('tname',dbedit1.Text,[])then
      begin
       insert;
       fieldbyname('tname').AsString:=trim(dbedit1.Text);
       fieldbyname('tsex').AsString:=dbcombobox1.Text;
       if trim(dbedit2.Text)<>'' then  fieldbyname('age').AsString:=trim(dbedit2.Text);
       if trim(dbedit3.Text)<>'' then  fieldbyname('zhicheng').AsString:=trim(dbedit3.Text);
       if trim(dbedit4.Text)<>'' then  fieldbyname('jiaoyanshi').AsString:=trim(dbedit4.Text);
       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); //dbimage1.Picture.GetNamePath
            fieldbyname('photo').Assign(pic);
            dbimage1.Tag:=0;
          end;
       post;
      end
   else
      begin
        temp:=dbedit1.Text+'的记录已经存在，是否更新原来的记录？';
        if messagebox (handle,pchar(temp),'警告',MB_OKCANCEL)=IDOK  then
     begin
       edit;
       fieldbyname('tname').AsString:=dbedit1.Text;
       fieldbyname('tsex').AsString:=dbcombobox1.Text;
       if trim(dbedit2.Text)<>'' then  fieldbyname('age').AsString:=trim(dbedit2.Text);
       if trim(dbedit3.Text)<>'' then  fieldbyname('zhicheng').AsString:=trim(dbedit3.Text);
       if trim(dbedit4.Text)<>'' then  fieldbyname('jiaoyanshi').AsString:=trim(dbedit4.Text);
       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); //dbimage1.Picture.GetNamePath
            fieldbyname('photo').Assign(pic);
            dbimage1.Tag:=0;
          end;
      UpdateRecord;
       post;
      end;
      end;
    refresh;
    temp:=dbedit1.Text+'的信息已成功添加/更新到数据库中！';
    messagebox (handle,pchar(temp),'反馈信息',MB_OK);
    dbedit1.Clear;
    dbedit2.Clear;
    dbedit3.Clear;
    dbedit4.Clear;
    dbedit6.Clear;
    dbedit7.Clear;
    dbimage1.Picture:=nil;
   end;

end;



procedure TaddteacherForm.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TaddteacherForm.FormCreate(Sender: TObject);
begin
datamodule1.DSteacher.DataSet:=datamodule1.tableteacher;
datamodule1.tableteacher.Open;
end;

procedure TaddteacherForm.DBImage1DblClick(Sender: TObject);
begin
if openpicturedialog1.Execute then
   begin
   dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
   dbimage1.Tag:=1;
   end;
end;

procedure TaddteacherForm.Label11Click(Sender: TObject);
begin
with datamodule1.tableteacher do
if Locate('tname',trim(dbedit1.Text),[]) then
  begin
  DBEdit1.Text:=fieldbyname('tname').AsString;
  DBEdit2.Text:=fieldbyname('age').AsString;
  dbcombobox1.ItemIndex:=dbcombobox1.Items.IndexOf(fieldbyname('tsex').AsString);
  DBEdit3.Text:=fieldbyname('zhicheng').AsString;
  DBEdit4.Text:=fieldbyname('jiaoyanshi').AsString;
  DBEdit6.Text:=fieldbyname('tel').AsString;
  DBEdit7.Text:=fieldbyname('email').AsString;
  //dbimage1.Assign(fieldbyname('photo').Value);
  end
  else
   begin
  DBEdit2.Text:='';
  dbcombobox1.ItemIndex:=0;
  DBEdit3.Text:='';
  DBEdit4.Text:='';
  DBEdit6.Text:='';
  DBEdit7.Text:='';
   end;
end;

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

end.