www.pudn.com > del6235577244.rar > info.pas

unit info; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, bsSkinCtrls, bsSkinBoxCtrls, bsdbctrls, StdCtrls, Mask, 
  bsSkinShellCtrls, BusinessSkinForm; 
 
type 
  TForm9 = class(TForm) 
    bsSkinPanel2: TbsSkinPanel; 
    bsSkinStdLabel4: TbsSkinStdLabel; 
    bsSkinStdLabel5: TbsSkinStdLabel; 
    bsSkinStdLabel6: TbsSkinStdLabel; 
    bsSkinStdLabel7: TbsSkinStdLabel; 
    bsSkinStdLabel8: TbsSkinStdLabel; 
    bsSkinStdLabel9: TbsSkinStdLabel; 
    bsSkinStdLabel10: TbsSkinStdLabel; 
    bsSkinStdLabel11: TbsSkinStdLabel; 
    bsSkinStdLabel12: TbsSkinStdLabel; 
    bsSkinStdLabel13: TbsSkinStdLabel; 
    bsSkinStdLabel14: TbsSkinStdLabel; 
    bsSkinStdLabel15: TbsSkinStdLabel; 
    bsSkinStdLabel16: TbsSkinStdLabel; 
    bsSkinStdLabel18: TbsSkinStdLabel; 
    bsSkinEdit1: TbsSkinEdit; 
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox; 
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox; 
    bsSkinEdit3: TbsSkinEdit; 
    bsSkinEdit5: TbsSkinEdit; 
    bsSkinEdit6: TbsSkinEdit; 
    bsSkinEdit7: TbsSkinEdit; 
    bsSkinEdit8: TbsSkinEdit; 
    bsSkinEdit9: TbsSkinEdit; 
    bsSkinEdit10: TbsSkinEdit; 
    bsSkinEdit11: TbsSkinEdit; 
    bsSkinButton2: TbsSkinButton; 
    bsSkinButton3: TbsSkinButton; 
    bsSkinDateEdit1: TbsSkinDateEdit; 
    bsSkinGroupBox1: TbsSkinGroupBox; 
    bsSkinLinkImage1: TbsSkinLinkImage; 
    bsSkinButton4: TbsSkinButton; 
    bsBusinessSkinForm1: TbsBusinessSkinForm; 
    bsSkinOpenPictureDialog1: TbsSkinOpenPictureDialog; 
    bsSkinStdLabel1: TbsSkinStdLabel; 
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox; 
    bsSkinStdLabel17: TbsSkinStdLabel; 
    procedure bsSkinButton4Click(Sender: TObject); 
    procedure FormShow(Sender: TObject); 
    procedure bsSkinButton2Click(Sender: TObject); 
    procedure bsSkinLinkImage1Click(Sender: TObject); 
    procedure bsSkinButton3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form9: TForm9; 
 
implementation 
 uses da_un,main_un; 
{$R *.dfm} 
 
procedure TForm9.bsSkinButton4Click(Sender: TObject); 
begin 
close; 
end; 
 
procedure TForm9.FormShow(Sender: TObject); 
begin 
da.sex_q.Close; 
da.sex_q.Open; 
da.stujy_q.Close; 
da.stujy_q.Open; 
da.infocl_q.close; 
da.infocl_q.open; 
 
 
 
bsSkinStdLabel18.Caption:=DA.main_q.FieldValues['ID']; 
bsSkinEdit1.text:=da.main_q.FieldValues['姓名']; 
bsSkinDateEdit1.Text:=da.main_q.FieldValues['出生年月']; 
bsSkinEdit3.Text:=da.main_q.FieldValues['年龄']; 
bsSkinEdit5.Text:=da.main_q.FieldValues['身高']; 
bsSkinEdit6.Text:=da.main_q.FieldValues['视力（左）']; 
bsSkinEdit7.Text:=da.main_q.FieldValues['视力（右）']; 
bsSkinEdit8.Text:=da.main_q.FieldValues['电话']; 
bsSkinEdit9.Text:=da.main_q.FieldValues['手机']; 
bsSkinEdit10.Text:=da.main_q.FieldValues['身份证']; 
bsSkinEdit11.Text:=da.main_q.FieldValues['住址']; 
da.temp.Close; 
da.temp.SQL.Clear; 
da.temp.SQL.Add('select *'); 
da.temp.sql.Add('from sex'); 
da.temp.SQL.Add('where na=:na'); 
da.temp.Parameters.ParamValues['na']:=da.main_q.FieldValues['性别']; 
da.temp.Prepared; 
da.temp.ExecSQL; 
da.temp.Open; 
bsSkinDBLookupComboBox3.KeyValue:=da.temp.FieldValues['id']; 
da.temp.Close; 
da.temp.SQL.Clear; 
da.temp.SQL.Add('select *'); 
da.temp.sql.Add('from cl'); 
da.temp.SQL.Add('where na=:na'); 
da.temp.Parameters.ParamValues['na']:=da.main_q.FieldValues['班级']; 
da.temp.Prepared; 
da.temp.ExecSQL; 
da.temp.Open; 
bsSkinDBLookupComboBox1.KeyValue:=da.temp.FieldValues['id'] ; 
da.temp.Close; 
da.temp.SQL.Clear; 
da.temp.SQL.Add('select *'); 
da.temp.sql.Add('from jy'); 
da.temp.SQL.Add('where na=:na'); 
da.temp.Parameters.ParamValues['na']:=da.main_q.FieldValues['就业单位']; 
da.temp.Prepared; 
da.temp.ExecSQL; 
da.temp.Open; 
bsSkinDBLookupComboBox4.KeyValue:=da.temp.FieldValues['id']; 
bsSkinLinkImage1.Picture.LoadFromFile(DA.main_q.FieldValues['photo']); 
bsSkinStdLabel17.Caption:=DA.main_q.FieldValues['photo'] 
 
end; 
 
procedure TForm9.bsSkinButton2Click(Sender: TObject); 
begin 
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.infocl_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.main_q.Close; 
da.main_q.Open; 
close; 
end; 
 
procedure TForm9.bsSkinLinkImage1Click(Sender: TObject); 
begin 
bsSkinOpenPictureDialog1.InitialDir:=ExtractFilePath(Application.ExeName); 
if bsSkinOpenPictureDialog1.Execute then 
  bsSkinLinkImage1.Picture.LoadFromFile(bsSkinOpenPictureDialog1.FileName); 
  bsSkinStdLabel17.Caption:=bsSkinOpenPictureDialog1.FileName; 
 end; 
 
procedure TForm9.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.main_q.Close; 
da.main_q.Open; 
Close; 
end; 
 
end.