www.pudn.com > del6235577244.rar > 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.