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.