unit stu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinBoxCtrls, bsdbctrls, bsSkinCtrls,
  StdCtrls, DBCtrls, DB, ADODB, Mask, ExtCtrls, bsSkinGrids, bsDBGrids,
  bsSkinShellCtrls, jpeg;

type
  TForm3 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinEdit7: TbsSkinEdit;
    bsSkinEdit8: TbsSkinEdit;
    bsSkinEdit9: TbsSkinEdit;
    bsSkinEdit10: TbsSkinEdit;
    bsSkinEdit11: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinOpenPictureDialog1: TbsSkinOpenPictureDialog;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinLinkImage1: TbsSkinLinkImage;
    bsSkinButton4: TbsSkinButton;
    bsSkinStdLabel19: TbsSkinStdLabel;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure bsSkinDBLookupComboBox2Change(Sender: TObject);
    procedure bsSkinLinkImage1Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBGrid3CellClick(Column: TbsColumn);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton4Click(Sender: TObject);
  private
  procedure clear;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses main_un,da_un;
{$R *.dfm}

procedure tform3.clear;
begin
bsSkinEdit1.Clear;
bsSkinDateEdit1.Text:='1980-01-01' ;
bsSkinEdit3.Clear;
bsSkinEdit5.Clear;
bsSkinEdit6.Clear;
bsSkinEdit7.Clear;
bsSkinEdit8.Clear;
bsSkinEdit9.Clear;
bsSkinEdit10.Clear;
bsSkinEdit11.Clear;

end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Form1.Enabled:=false;
Form3.Caption:='學生信息輸入';
da.stupa_q.Open;
da.stupa_q.First;
da.sex_q.Open;
da.sex_q.First;
bsSkinDBGrid3.Enabled:=false;
bsSkinStdLabel17.Visible:=false;
bsSkinStdLabel17.Caption:=ExtractFilepath(Application.exeName)+'pho\01.jpg';
da.stujy_q.Open;
da.stujy_q.First;
bsSkinButton1.Enabled:=false;

end;

procedure TForm3.bsSkinDBLookupComboBox1Change(Sender: TObject);
begin
da.stucl_q.Close;
da.stucl_q.Parameters.ParamValues['pid']:=da.stupa_q.FieldValues['id'];
da.stucl_q.Prepared;
da.stucl_q.ExecSQL;
da.stucl_q.Active:=false;
da.stucl_q.Active:=true;
if da.stucl_q.RecordCount>0 then
begin
bsSkinPanel2.Enabled:=True  ;
bsSkinButton1.Enabled:=true;
end

else
begin
bsSkinPanel2.Enabled:=false;
bsSkinButton1.Enabled:=false;
end;
end;

procedure TForm3.bsSkinDBLookupComboBox2Change(Sender: TObject);
begin
da.st_q.Close;
da.st_q.Parameters.ParamValues['cl']:=da.stucl_q.FieldValues['id'];
da.st_q.Prepared;
da.st_q.ExecSQL;
da.st_q.Open;
if da.st_q.RecordCount>0 then
bsSkinDBGrid3.Enabled:=true
else
bsSkinDBGrid3.Enabled:=false;
end;

procedure TForm3.bsSkinLinkImage1Click(Sender: TObject);
begin
bsSkinOpenPictureDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if bsSkinOpenPictureDialog1.Execute then
  bsSkinLinkImage1.Picture.LoadFromFile(bsSkinOpenPictureDialog1.FileName);
  bsSkinStdLabel17.Caption:=bsSkinOpenPictureDialog1.FileName;
  end;

procedure TForm3.bsSkinButton1Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear; 
da.temp.SQL.Add('insert into st (na,bir,age,high,eyel,eyer,tel,htel,addr,cl,sex,jy,photo,co)');
da.temp.SQL.Add('values(:na,:bir,:age,:high,:eyel,:eyer,:tel,:htel,:addr,:cl,:sex,:jy,:photo,:co)');
da.temp.Parameters.ParamValues['cl']:=da.stucl_q.FieldValues['id'];
da.temp.Parameters.ParamValues['jy']:=bsSkinDBLookupComboBox4.KeyValue;
da.temp.Parameters.ParamValues['sex']:=bsSkinDBLookupComboBox3.KeyValue;
da.temp.Parameters.ParamValues['photo']:=bsSkinStdLabel17.Caption;
da.temp.Parameters.ParamValues['na']:=bsSkinEdit1.Text;
da.temp.Parameters.ParamValues['bir']:=bsSkinDateEdit1.Text;
da.temp.Parameters.ParamValues['age']:=StrToInt(bsSkinEdit3.Text);
da.temp.Parameters.ParamValues['high']:=StrToInt(bsSkinEdit5.Text);
da.temp.Parameters.ParamValues['eyel']:=bsSkinEdit6.Text;
da.temp.Parameters.ParamValues['eyer']:=bsSkinEdit7.Text;
da.temp.Parameters.ParamValues['tel']:=bsSkinEdit8.Text;
da.temp.Parameters.ParamValues['htel']:=bsSkinEdit9.Text;
da.temp.Parameters.ParamValues['addr']:=bsSkinEdit11.Text;
da.temp.Parameters.ParamValues['co']:=bsSkinEdit10.Text;
 da.temp.Prepared;
 da.temp.ExecSQL;
 da.st_q.Close;
 da.st_q.Open;
clear;
 bsSkinDBGrid3.Enabled:=true;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
bsSkinButton2.Enabled:=false;
bsSkinButton3.Enabled:=false;
bsSkinButton1.Enabled:=true;
end;

procedure TForm3.bsSkinDBGrid3CellClick(Column: TbsColumn);
begin
bsSkinStdLabel18.Caption:=DA.st_q.FieldValues['ID'];
bsSkinButton1.Enabled:=false;
bsSkinButton1.Enabled:=false;
bsSkinButton2.Enabled:=true;
bsSkinButton3.Enabled:=true;
bsSkinEdit1.text:=da.st_q.FieldValues['姓名'];
bsSkinDateEdit1.Text:=da.st_q.FieldValues['bir'];
bsSkinEdit3.Text:=da.st_q.FieldValues['age'];
bsSkinEdit5.Text:=da.st_q.FieldValues['high'];
bsSkinEdit6.Text:=da.st_q.FieldValues['eyel'];
bsSkinEdit7.Text:=da.st_q.FieldValues['eyer'];
bsSkinEdit8.Text:=da.st_q.FieldValues['tel'];
bsSkinEdit9.Text:=da.st_q.FieldValues['htel'];
bsSkinEdit10.Text:=da.st_q.FieldValues['co'];
bsSkinEdit11.Text:=da.st_q.FieldValues['addr'];
bsSkinDBLookupComboBox3.KeyValue:=da.st_q.FieldValues['sex'];
bsSkinDBLookupComboBox4.KeyValue:=da.st_q.FieldValues['jy'] ;
bsSkinLinkImage1.Picture.LoadFromFile(DA.st_q.FieldValues['photo']);
end;

procedure TForm3.bsSkinButton2Click(Sender: TObject);
begin
bsSkinButton1.Enabled:=true;
bsSkinButton3.Enabled:=false;
bsSkinButton2.Enabled:=False;
da.temp.Close;
da.temp.SQL.Clear;
da.temp.sql.Add('update st set na=:na,bir=:bir,age=:age,high=:high,eyel=:eyel,eyer=:eyer,tel=:tel,htel=:htel,addr=:addr,cl=:cl,sex=:sex,jy=:jy,photo=:photo,co=:co') ;
da.temp.SQL.add ('where id=:id');
da.temp.Parameters.ParamValues['id']:=bsSkinStdLabel18.Caption;
da.temp.Parameters.ParamValues['cl']:=da.stucl_q.FieldValues['id'];
da.temp.Parameters.ParamValues['jy']:=bsSkinDBLookupComboBox4.KeyValue;
da.temp.Parameters.ParamValues['sex']:=bsSkinDBLookupComboBox3.KeyValue;
da.temp.Parameters.ParamValues['photo']:=bsSkinStdLabel17.Caption;
da.temp.Parameters.ParamValues['na']:=bsSkinEdit1.Text;
da.temp.Parameters.ParamValues['bir']:=bsSkinDateEdit1.Text;
da.temp.Parameters.ParamValues['age']:=StrToInt(bsSkinEdit3.Text);
da.temp.Parameters.ParamValues['high']:=StrToInt(bsSkinEdit5.Text);
da.temp.Parameters.ParamValues['eyel']:=bsSkinEdit6.Text;
da.temp.Parameters.ParamValues['eyer']:=bsSkinEdit7.Text;
da.temp.Parameters.ParamValues['tel']:=bsSkinEdit8.Text;
da.temp.Parameters.ParamValues['htel']:=bsSkinEdit9.Text;
da.temp.Parameters.ParamValues['addr']:=bsSkinEdit11.Text;
da.temp.Parameters.ParamValues['co']:=bsSkinEdit10.Text;
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.st_q.Active:=false;
da.st_q.Active:=true;
clear;


end;

procedure TForm3.bsSkinButton3Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.add('delete from st where id=:id');
da.temp.Parameters.ParamValues['id']:=bsSkinStdLabel18.Caption;
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.st_q.Active:=false;
da.st_q.Active:=true;
clear;
bsSkinButton1.Enabled:=true;
bsSkinButton2.Enabled:=false;
bsSkinButton3.Enabled:=false;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Enabled:=true;
end;

procedure TForm3.bsSkinButton4Click(Sender: TObject);
begin
close;
end;

end.