set_un.pas

一个就业管理系统

unit set_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, ComCtrls, bsSkinTabs, BusinessSkinForm, StdCtrls,
  Mask, bsSkinBoxCtrls,IniFiles, bsMessages, bsSkinGrids, bsDBGrids,
  bsdbctrls, DBCtrls;

type
  TForm2 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPageControl1: TbsSkinPageControl;
    tab_school: TbsSkinTabSheet;
    tab_pa: TbsSkinTabSheet;
    tab_cl: TbsSkinTabSheet;
    tab_jy: TbsSkinTabSheet;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinDBGrid4: TbsSkinDBGrid;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinButton12: TbsSkinButton;
    bsSkinTextLabel1: TbsSkinTextLabel;
    bsSkinTextLabel2: TbsSkinTextLabel;
    bsSkinTextLabel3: TbsSkinTextLabel;
    bsSkinTextLabel4: TbsSkinTextLabel;
    bsSkinTextLabel5: TbsSkinTextLabel;
    procedure FormShow(Sender: TObject);
    procedure tab_schoolShow(Sender: TObject);
    procedure tab_paShow(Sender: TObject);
    procedure tab_clShow(Sender: TObject);
    procedure tab_jyShow(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinLabel2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinDBGrid3CellClick(Column: TbsColumn);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinDBGrid4CellClick(Column: TbsColumn);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  i:Integer;
  s:string;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

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

procedure TForm2.FormShow(Sender: TObject);
begin
bsSkinButton1.Enabled:=false;
da.jy_q.Open;
tab_school.Show;
end;

procedure TForm2.tab_schoolShow(Sender: TObject);
var IniFile1: TIniFile;
s:string;
begin
bsSkinStdLabel1.Caption:='第一步:设置学校名称';
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
s:=inifile1.ReadString('school','data',s);
bsSkinEdit1.Text:=s;
IniFile1.free;
end;

procedure TForm2.tab_paShow(Sender: TObject);
begin
bsSkinButton7.Enabled:=false;
da.pa_q.Active:=true;

bsSkinStdLabel1.Caption:='第二步:设置专业名称';
bsSkinButton4.Enabled:=false;
bsSkinButton3.Enabled:=true;
end;

procedure TForm2.tab_clShow(Sender: TObject);
begin
bsSkinButton8.Enabled:=false;
bsSkinStdLabel1.Caption:='第三步：设置班级名称';
da.pa_q.Active:=false;
da.pa_q.Active:=true;
bsSkinButton5.Enabled:=True;
bsSkinButton6.Enabled:=false;
end;

procedure TForm2.tab_jyShow(Sender: TObject);
begin
bsSkinStdLabel1.Caption:='第四步:设置就业单位';
bsSkinButton9.Enabled:=true;
bsSkinButton10.Enabled:=false;
bsSkinButton11.Enabled:=false;
end;

procedure TForm2.bsSkinButton2Click(Sender: TObject);

begin
inc(i);
bsSkinPageControl1.Pages[i].Show;
if i=3 then bsSkinButton2.Enabled:=false
else
begin
bsSkinButton2.Enabled:=true;
bsSkinButton1.Enabled:=true;
end;

end;

procedure TForm2.bsSkinButton1Click(Sender: TObject);
begin
i:=i-1;
bsSkinPageControl1.Pages[i].Show;
if i=0 then
bsSkinButton1.Enabled:=False
else
begin
bsSkinButton2.Enabled:=true;
bsSkinButton1.Enabled:=true;
end;
end;

procedure TForm2.bsSkinLabel2Click(Sender: TObject);
var inifile1:TIniFile;
begin
try
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
inifile1.WriteString('school','data',bsSkinEdit1.text);
IniFile1.free;
bsSkinMessage1.MessageDlg('设置成功',mtInformation,[mbyes],0);
except
end;
end;

procedure TForm2.bsSkinButton3Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('insert  into pa(na)') ;
da.temp.SQL.Add('values (:na)') ;
da.temp.Parameters.ParamValues['na']:=bsSkinEdit2.Text;
da.temp.Prepared;

da.temp.ExecSQL;
da.temp.Close;
da.pa_q.Active:=false;
da.pa_q.Active:=true;
bsSkinEdit2.Clear;
end;

procedure TForm2.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
bsSkinEdit2.Text:=bsSkinDBGrid1.SelectedField.Text;
bsSkinButton3.Enabled:=false;
bsSkinButton4.Enabled:=true;
bsSkinButton7.Enabled:=true;
s:= bsSkinDBGrid1.SelectedField.Text;

end;

procedure TForm2.bsSkinButton4Click(Sender: TObject);
var id:string;
begin
bsSkinButton7.Enabled:=false;
bsSkinButton3.Enabled:=true;
bsSkinButton4.Enabled:=false;

da.temp.Close;

da.temp.SQL.Clear;
da.temp.SQL.Add('update pa set na=:nam where id=:id');
da.temp.Parameters.ParamValues['nam']:=bsSkinEdit2.Text;
da.temp.Parameters.ParamValues['id']:=da.pa_q.FieldValues['id'];
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.pa_q.Active:=false;
da.pa_q.Active:=true;
 bsSkinEdit2.Clear;
end;

procedure TForm2.bsSkinDBGrid2CellClick(Column: TbsColumn);
begin
da.cl_q.Active:=false;
da.cl_q.Parameters.ParamValues['pid']:=da.pa_q.FieldValues['id'];
da.cl_q.ExecSQL;
da.cl_q.Active:=true;

end;

procedure TForm2.bsSkinButton5Click(Sender: TObject);
begin
if bsSkinEdit3.Text='' then
Exit;
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('insert into cl (paid,na)') ;
da.temp.SQL.Add('values (:pid,:n)');
da.temp.Parameters.ParamValues['pid']:=da.pa_q.FieldValues['id'];
da.temp.Parameters.ParamValues['n']:=bsSkinEdit3.Text;
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.cl_q.Active:=false;
da.cl_q.Active:=true;
bsSkinEdit3.Clear;

end;

procedure TForm2.bsSkinDBGrid3CellClick(Column: TbsColumn);
begin
bsSkinEdit3.Text:=bsSkinDBGrid3.SelectedField.Text;
bsSkinButton5.Enabled:=false;
bsSkinButton6.Enabled:=true;
bsSkinButton8.Enabled:=true;
end;

procedure TForm2.bsSkinButton6Click(Sender: TObject);
begin
bsSkinButton8.Enabled:=false;
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.add('update cl set na=:n where id=:idn');
da.temp.Parameters.ParamValues['n']:=bsSkinEdit3.Text;
da.temp.Parameters.ParamValues['idn']:=da.cl_q.FieldValues['id'] ;
da.temp.Prepared;
da.temp.ExecSQL;
da.cl_q.Active:=false;
da.cl_q.Active:=true;
    bsSkinEdit3.Clear;
    bsSkinButton5.Enabled:=true;
    bsSkinButton6.Enabled:=false;
end;

procedure TForm2.bsSkinButton7Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('delete from pa where id=:id');
da.temp.Parameters.ParamValues['id']:=da.pa_q.FieldValues['id'] ;
da.temp.Prepared;
da.temp.ExecSQL;
da.pa_q.Active:=false;
da.pa_q.Active:=true;

end;

procedure TForm2.bsSkinButton8Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('delete from cl where id=:id');
da.temp.Parameters.ParamValues['id']:=da.cl_q.FieldValues['id'];
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.cl_q.Active:=false;
da.cl_q.Active:=true;
end;

procedure TForm2.bsSkinButton10Click(Sender: TObject);
begin
bsSkinButton10.Enabled:=false;
bsSkinButton11.Enabled:=false;
bsSkinButton9.Enabled:=true;
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('update jy set na=:n where id=:id');
da.temp.Parameters.ParamValues['n']:=bsSkinEdit4.Text;
da.temp.Parameters.ParamValues['id']:=da.jy_q.FieldValues['id'];
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.jy_q.Active:=false;
da.jy_q.Active:=true;

bsSkinEdit4.Clear      ;

end;

procedure TForm2.bsSkinButton11Click(Sender: TObject);
begin
bsSkinButton10.Enabled:=false;
bsSkinButton11.Enabled:=false;
bsSkinButton9.Enabled:=true;

da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('delete from jy where id=:id');
da.temp.Parameters.ParamValues['id']:=da.jy_q.FieldValues['id'];
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Close;
da.jy_q.Active:=false;
da.jy_q.Active:=true;
bsSkinEdit4.Clear      ;
end;

procedure TForm2.bsSkinButton9Click(Sender: TObject);
begin
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('insert into jy (na)');
da.temp.SQL.Add('values(:n)');
da.temp.Parameters.ParamValues['n']:=bsSkinEdit4.Text;
da.temp.Prepared;
da.temp.ExecSQL;
da.jy_q.Active:=false;
da.jy_q.Active:=true;



bsSkinEdit4.Clear      ;
end;

procedure TForm2.bsSkinDBGrid4CellClick(Column: TbsColumn);
begin
bsSkinButton9.Enabled:=false;
bsSkinButton10.Enabled:=true;
bsSkinButton11.Enabled:=true;
if  bsSkinDBGrid4.SelectedField.Text='暂不就业'  then
bsSkinMessage1.MessageDlg('对不起，此项不能更改,请重新选择',mtInformation,[mbYes],0)
else
bsSkinEdit4.Text:=bsSkinDBGrid4.SelectedField.Text;


end;

procedure TForm2.bsSkinButton12Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Caption:='系统设置';
 //Form1.Enabled:=false;
end;

end.