unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids,DB,ADODB, ComCtrls,
  ExtDlgs;

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    bj: TComboBox;
    bh: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    GroupBox2: TGroupBox;
    Panel2: TPanel;
    Image1: TImage;
    xh: TLabeledEdit;
    sr: TDateTimePicker;
    Label5: TLabel;
    rxxz: TComboBox;
    zzmm: TComboBox;
    eee: TLabel;
    szxb: TLabeledEdit;
    szbj: TComboBox;
    Label6: TLabel;
    dz: TLabeledEdit;
    zy: TLabeledEdit;
    jg: TLabeledEdit;
    xm: TLabeledEdit;
    xb: TComboBox;
    Label3: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bjChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;
  sqlstring:string;
implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);
var
data_path:string;
begin
 data_path:=application.GetNamePath+'user/'+form1.user+'/'+'班級.mdb';
 ADOQuery2.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';';
 sqlstring:='select * from 班級表';
 bj.Clear;
  with ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstring);
      open;
      while not eof do
         begin
           bj.Items.Add(fieldbyname('名稱').asstring);
            next;
         end;
    end;
end;

procedure TForm9.bjChange(Sender: TObject);
var
str:string;
data_path1:string;
begin
  data_path1:=extractfilepath(application.ExeName)+'user/'+form1.user+'/'+trim(bj.Text)+'.mdb';
  ADOQuery1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path1+';';
  sqlstring:='select * from 學生信息表';
  form1.editdata(ADOQuery1,sqlstring,0);
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
var
picstr:string;
begin
 if bj.Text='' then
 begin
 showmessage('請選擇班級!');
 exit;
 end;
 if (xh.Text='') or (xm.Text='') then
 begin
 showmessage('請輸入學號或姓名');
 exit;
 end;
  sqlstring:='select * from 學生信息表 where 學號=:xh';
  with adoquery1 do
    begin
    close;
     sql.Clear;
     sql.Add(sqlstring);
     Parameters.ParamByName('xh').Value:=trim(xh.Text);
     open;
     if recordcount>=1 then
     begin
     showmessage('此學生信息已經錄入!');
     
     end
  else
     begin
     sqlstring:='insert into 學生信息表(學號,姓名,性別,出生年月,籍貫,入學性質,政治面貌,系別,專業,班級,家庭地址,相片)';
    sqlstring:=sqlstring+' values(:number,:name,:sex,:sr,:jg,:rxxz,:zzmm,:xb,:zy,:bj,:dress,:xp)';
    close;
    sql.Clear;
    sql.Add(sqlstring);
    Parameters.ParamByName('number').Value:=trim(xh.Text);
    Parameters.ParamByName('name').Value:=trim(xm.Text);
    Parameters.ParamByName('sex').Value:=trim(xb.Text);
    Parameters.ParamByName('sr').Value:=datetostr(sr.date);
    Parameters.ParamByName('jg').Value:=trim(jg.Text);
    Parameters.ParamByName('rxxz').Value:=trim(rxxz.Text);
    Parameters.ParamByName('zzmm').Value:=trim(zzmm.Text);
    Parameters.ParamByName('xb').Value:=trim(szxb.Text);
    Parameters.ParamByName('zy').Value:=trim(zy.Text);
    Parameters.ParamByName('bj').Value:=trim(szbj.Text);
    Parameters.ParamByName('dress').Value:=trim(dz.Text);
    Parameters.ParamByName('xp').Value:=trim(xh.Text)+'.jpg';
    execsql;
  end;
  end;

   sqlstring:='select * from 學生信息表';
   form1.editdata(ADOQuery1,sqlstring,0);

   //picstr:=application.GetNamePath+'user/'+form1.user+'/pic/'+trim(xh.Text)+'.jpg';
   //image1.Picture.SaveToFile(picstr);
end;

procedure TForm9.BitBtn4Click(Sender: TObject);
begin
 with ADOQuery1 do
    begin
      Prior;
        end;
end;

procedure TForm9.DBGrid1CellClick(Column: TColumn);
begin
    with ADOQuery1 do
    begin
     xh.Text:=fieldbyname('學號').AsString;
     xm.Text:=fieldbyname('姓名').AsString;
     xb.Text:=fieldbyname('性別').AsString;
     sr.Date:=fieldbyname('出生年月').AsDateTime;
     dz.Text:=fieldbyname('家庭地址').AsString;
     jg.Text:=fieldbyname('籍貫').AsString;
     rxxz.Text:=fieldbyname('入學性質').AsString;
     zzmm.Text:=fieldbyname('政治面貌').AsString;
     szxb.Text:=fieldbyname('系別').AsString;
     zy.Text:=fieldbyname('專業').AsString;
     szbj.Text:=fieldbyname('班級').AsString;
     //email.Text:=fieldbyname('email').AsString;
     bh.Text:=fieldbyname('編號').AsString;
     if Fileexists(application.GetNamePath+'user/'+form1.user+'/pic/'+fieldbyname('相片').AsString) then
     image1.Picture.LoadFromFile(application.GetNamePath+'user/'+form1.user+'/pic/'+trim(xh.Text)+'.jpg');
   end;
end;

procedure TForm9.BitBtn5Click(Sender: TObject);

begin
with ADOQuery1 do
   begin
     close;
     sql.Clear;
     sql.add('delete  from 學生信息表 where 編號=:bh');
     Parameters.ParamByName('bh').Value:=trim(bh.Text);
    try
     if messagedlg('確定刪除嗎',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
      execsql;
      showmessage('刪除成功!');
      end;
      except
      showmessage('刪除失敗!');
      end;
   end;
  sqlstring:='select * from 學生信息表';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  open;
  end;
end;

procedure TForm9.BitBtn2Click(Sender: TObject);
var
data_path,data_path1:string;
sqlstring:string;
begin
  sqlstring:='update 學生信息表 set 學號=:xh,姓名=:xm,性別=:xb,出生年月=:sr,家庭地址=:dz,籍貫=:jg,入學性質=:rxxz,';
  sqlstring:=sqlstring+'政治面貌=:zzmm,系別=:xb,專業=:zy,班級=:bj where 編號=:bh';
  with  ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add(sqlstring);
  Parameters.ParamByName('xh').Value:=trim(xh.Text);
  Parameters.ParamByName('xm').Value:=trim(xm.Text);
  Parameters.ParamByName('xb').Value:=trim(xb.Text);
  Parameters.ParamByName('sr').Value:=datetostr(sr.date);
  Parameters.ParamByName('jg').Value:=trim(jg.Text);
  Parameters.ParamByName('rxxz').Value:=trim(rxxz.Text);
  Parameters.ParamByName('zzmm').Value:=trim(zzmm.Text);
  Parameters.ParamByName('xb').Value:=trim(szxb.Text);
  Parameters.ParamByName('zy').Value:=trim(zy.Text);
  Parameters.ParamByName('bj').Value:=trim(szbj.Text);
  Parameters.ParamByName('dz').Value:=trim(dz.Text);
  Parameters.ParamByName('bh').Value:=trim(bh.Text);
   try
     if messagedlg('確定修改嗎',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
      execsql;
      showmessage('修改成功!');
      end;
      except
      showmessage('修改失敗!');
      end;
  end;
   sqlstring:='select * from 學生信息表';
   form1.editdata(ADOQuery1,sqlstring,0);
end;

procedure TForm9.Image1Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm9.BitBtn6Click(Sender: TObject);
begin
//ADOQuery1.Free;
//ADOQuery2.Free;
//data_path:='';
//data_path1:='';
close;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//ADOQuery1.Free;
//ADOQuery2.Free;
//data_path:='';
//data_path1:=''
end;

procedure TForm9.BitBtn7Click(Sender: TObject);
begin
with ADOQuery1 do
    begin
     next;
    end;
end;

procedure TForm9.BitBtn8Click(Sender: TObject);
begin
sqlstring:='select * from 學生信息表';
form1.editdata(ADOQuery1,sqlstring,0);
end;

procedure TForm9.BitBtn9Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TLabelededit then
Tedit(Components[i] as Tlabelededit).Text:='';
if Components[i] is Tedit then
Tedit(Components[i] as Tedit).Text:='';
//else
//raise EInvalidcast.Create;
if Components[i] is Tcombobox then
Tcombobox(Components[i] as Tcombobox).Text:='';
//else
//raise EInvalidcast.Create;
end;
end;

end.