main_un.pas

一个就业管理系统

unit main_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, BusinessSkinForm, bsSkinData, bsSkinCtrls, bsDialogs,
  bsSkinShellCtrls,IniFiles,ComCtrls, bsSkinGrids, bsDBGrids, registry,ExtCtrls,
  StdCtrls;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinData1: TbsSkinData;
    bsSkinMainMenu1: TbsSkinMainMenu;
    N1: TMenuItem;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    N6: TMenuItem;
    N7: TMenuItem;
    bsOpenSkinDialog1: TbsOpenSkinDialog;
    N8: TMenuItem;
    N12: TMenuItem;
    N2: TMenuItem;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinTreeView1: TbsSkinTreeView;
    bsSkinScrollBar5: TbsSkinScrollBar;
    bsSkinScrollBar6: TbsSkinScrollBar;
    bsSkinScrollBar8: TbsSkinScrollBar;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinSplitter1: TbsSkinSplitter;
    bsSkinScrollPanel1: TbsSkinScrollPanel;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    bsSkinStatusPanel2: TbsSkinStatusPanel;
    bsSkinStatusPanel3: TbsSkinStatusPanel;
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure bsSkinTreeView1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinDBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
  f1,f2,f21,f11,f22,f12:TTreeNode;
  pa_cl,jy_jy:Integer; //pa_cl记录选定专业根结点的班级ID
 //jy_jy记录选定就业单位根结点的就业单位ID
  procedure treeshow;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
     uses set_un, stu,ser4,start,da_un,skin_un,info;
{$R *.dfm}


procedure tform1.treeshow;
var s:string;

begin
f1:=bsSkinTreeView1.Items.Add(nil,'专业') ;
f2:=bsSkinTreeView1.Items.Add(nil,'就业单位') ;
//以专业开头的节点
da.main_pa_q.Open;
da.main_pa_q.First;
while not da.main_pa_q.Eof do     //得到头节点下面的专业名称
begin
 f11:=bsSkinTreeView1.Items.AddChild(f1,da.main_pa_q.FieldValues['na']);
 da.main_cl_q.Close;
 da.main_cl_q.Parameters.ParamValues['pid']:=da.main_pa_q.FieldValues['id'];
 da.main_cl_q.Open;
 while not da.main_cl_q.Eof do //得到专业名称下面的班级节点名称
 begin
 f12:=bsSkinTreeView1.Items.AddChild(f11,da.main_cl_q.FieldValues['na']);


 //得到班级下面各就业单位的学生名单
 da.main_jy_q.Close;
 da.main_jy_q.Open;
 while not da.main_jy_q.Eof do
 begin
 bsSkinTreeView1.Items.AddChild(f12,da.main_jy_q.FieldValues['na']);
 da.main_jy_q.Next;
 end;
 da.main_cl_q.Next;
 end;
 da.main_pa_q.next;
end;

//以就业单位的节点
da.main_jy_q.Close;
da.main_jy_q.Open;
da.main_jy_q.First;
while not da.main_jy_q.Eof do       //得到头节点下面的所有就业单位
begin
f21:=bsSkinTreeView1.Items.AddChild(f2,da.main_jy_q.FieldValues['na']) ;
da.main_pa_q.Close;
da.main_pa_q.Open;
da.main_pa_q.First;
   while not da.main_pa_q.Eof do    //得到就业单位节点下面的所有专业名称
    begin
     f22:=bsSkinTreeView1.Items.AddChild(f21,da.main_pa_q.FieldValues['na']);
        da.main_cl_q.Close;
        da.main_cl_q.Parameters.ParamValues['pid']:=da.main_pa_q.FieldValues['id'];
        da.main_cl_q.Open;
       while not da.main_cl_q.Eof do //得到专业名称下面的班级节点名称
          begin
            bsSkinTreeView1.Items.AddChild(f22,da.main_cl_q.FieldValues['na']);
            da.main_cl_q.Next;
         end;
    da.main_pa_q.Next;
   end;
da.main_jy_q.Next;
end;
end;



procedure TForm1.N6Click(Sender: TObject);
var stu:TForm3;
begin
stu:=TForm3.Create(owner);
stu.ShowModal;
stu.Free;
//Form3.Show;
end;

procedure TForm1.N7Click(Sender: TObject);
var inifile1:TIniFile;
skin:Tskin;
begin
skin:=Tskin.Create(owner);
skin.ShowModal;
skin.Free;
{
try
if bsOpenSkinDialog1.Execute then
bsSkinData1.LoadFromFile(bsOpenSkinDialog1.FileName);
except
end;       }

//IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
//inifile1.WriteString('skin','data',bsOpenSkinDialog1.FileName);
//IniFile1.free;
end;

procedure TForm1.FormShow(Sender: TObject);
var inifile1:TIniFile;
s:string;
begin
IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'set.ini');    //创建一个INI文件
s:=inifile1.ReadString('school','data',s);
Form1.Caption:=s+'就业管理系统';
da.main_q.Open;
treeshow;
da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.Add('select *');
da.temp.SQL.Add('from cl');
da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Open;
bsSkinStatusPanel3.Caption:='共有'+IntToStr(da.temp.RecordCount)+'个班级';

end;

procedure TForm1.N12Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.N8Click(Sender: TObject);
var serch:tform4;
begin
serch:=TForm4.Create(owner);
serch.ShowModal;
serch.Free;
end;

procedure TForm1.N1Click(Sender: TObject);
var setun:TForm2;
begin
setun:=TForm2.Create(owner);
setun.ShowModal;
setun.free;

end;

procedure TForm1.N2Click(Sender: TObject);
var about:tform8;
begin
about:=tform8.Create(owner);
//about.bsBusinessSkinForm1.SkinData:=main_un.Form1.bsSkinData1;
about.ShowModal;

about.Free;
end;

procedure TForm1.bsSkinTreeView1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var s,sel,fro,ss,te:string;
se:TTreeNode;

begin
ss:='专业';
sel:='select st.id,st.co as 身份证,st.na as 姓名,sex.na as 性别,st.bir as 出生年月,cl.na  as 班级,st.age as 年龄,st.high as 身高, st.eyel as 视力（左）,st.eyer as 视力（右）,st.addr as  住址,st.tel as 电话,st.htel as 手机,jy.na as 就业单位,st.photo';
fro:='from st,sex,jy,cl,pa';
s:='where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id and pa.id=cl.paid' ;
da.main_q.Close;
da.main_q.SQL.Clear;
da.main_q.SQL.Add('select st.id,st.co as 身份证,st.na as 姓名,sex.na as 性别,st.bir as 出生年月,cl.na  as 班级,st.age as 年龄,st.high as 身高, st.eyel as 视力（左）,st.eyer as 视力（右）,st.addr as  住址,st.tel as 电话,st.htel as 手机,jy.na as 就业单位,st.photo');
da.main_q.SQL.Add('from st,sex,jy,cl,pa');

//if bsSkinTreeView1.Selected.Parent=nil  then
//if bsSkinTreeView1.Selected.Text=ss then
//ShowMessage('选定根专业节点节点')
//else
//ShowMessage('选定就业单位根节点');

if bsSkinTreeView1.Selected.Parent=nil then
begin
da.main_q.SQL.Add(s);
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;
end;

if bsSkinTreeView1.Selected.Parent.Parent=nil then
if bsSkinTreeView1.Selected.Parent.Text=ss then
begin
//选到了第一个根节点下的第一个子节点;
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from pa');
da.temp1.SQL.Add('where pa.na=:na');
da.temp1.Parameters.ParamValues['na']:=bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.open;
te:='';
te:=s+ '  and cl.paid=:pid';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['pid']:=da.temp1.FieldValues['id'];
//ShowMessage(da.main_q.SQL.Text+'专业');
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;
end ;
if bsSkinTreeView1.Selected.Parent.Parent=nil then
if bsSkinTreeView1.Selected.Parent.Text<>ss then
begin
//选第二个根节点 以下的第一个子节点
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from jy');
da.temp1.SQL.Add('where jy.na=:na');
da.temp1.Parameters.ParamValues['na']:= bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.Open;
te:='';
te:=s+'   and st.jy=:jy';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['jy']:=da.temp1.FieldValues['id'];
jy_jy:=da.temp1.FieldValues['id'];
//ShowMessage(da.main_q.SQL.Text+'就业单位');
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;
end;

if bsSkinTreeView1.Selected.Parent.Parent.Parent=nil then
if  bsSkinTreeView1.Selected.Parent.Parent.Text=ss then
begin
//ShowMessage('专业班级');
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from cl');
da.temp1.SQL.Add('where cl.na=:na');
da.temp1.Parameters.ParamValues['na']:=bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.open;
te:='';
te:=s+'   and st.cl=:cl';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['cl']:=da.temp1.FieldValues['id'];
pa_cl:=da.temp1.FieldValues['id'];
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;
end;
if bsSkinTreeView1.Selected.Parent.Parent.Parent=nil  then
if  bsSkinTreeView1.Selected.Parent.Parent.Text<>ss then
begin
//ShowMessage('就业单位，专业');
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from pa');
da.temp1.SQL.Add('where pa.na=:na');
da.temp1.Parameters.ParamValues['na']:=bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.open;
te:='';
te:=s+'   and pa.id=:id and jy.id=:jy';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['id']:=da.temp1.FieldValues['id'];
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from jy');
da.temp1.SQL.Add('where jy.na=:na');
da.temp1.Parameters.ParamValues['na']:= bsSkinTreeView1.Selected.Parent.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.Open;
da.main_q.Parameters.ParamValues['jy']:=da.temp1.FieldValues['id'];
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;

end;
if bsSkinTreeView1.Selected.Parent.Parent.Parent.Parent=nil  then
if  bsSkinTreeView1.Selected.Parent.Parent.Parent.Text<>ss then
begin
//ShowMessage('就业单位+班级');
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from cl');
da.temp1.SQL.Add('where cl.na=:na');
da.temp1.Parameters.ParamValues['na']:=bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.open;
te:='';
te:=s+'   and st.cl=:cl and jy.id=:jy';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['cl']:=da.temp1.FieldValues['id'];
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from jy');
da.temp1.SQL.Add('where jy.na=:na');
da.temp1.Parameters.ParamValues['na']:= bsSkinTreeView1.Selected.Parent.Parent.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.Open;
da.main_q.Parameters.ParamValues['jy']:=da.temp1.FieldValues['id'];
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;

exit;
 end;
 if bsSkinTreeView1.Selected.Parent.Parent.Parent.Parent=nil  then
if  bsSkinTreeView1.Selected.Parent.Parent.Parent.Text=ss then
begin
//ShowMessage('专业+就业单位');

da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from jy');
da.temp1.SQL.Add('where jy.na=:na');
da.temp1.Parameters.ParamValues['na']:=bsSkinTreeView1.Selected.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.open;
te:='';
te:=s+'   and jy.id=:jy and cl.id=:id';
da.main_q.SQL.Add(te);
da.main_q.Parameters.ParamValues['jy']:=da.temp1.FieldValues['id'];
da.temp1.Close;
da.temp1.SQL.Clear;
da.temp1.SQL.Add('select *');
da.temp1.SQL.Add('from cl');
da.temp1.SQL.Add('where cl.na=:na');
da.temp1.Parameters.ParamValues['na']:= bsSkinTreeView1.Selected.Parent.Text;
da.temp1.Prepared;
da.temp1.ExecSQL;
da.temp1.Open;
da.main_q.Parameters.ParamValues['id']:=da.temp1.FieldValues['id'];
da.main_q.Prepared;
da.main_q.ExecSQL;
da.main_q.Open;
exit;
 end;


 end;


procedure TForm1.FormCreate(Sender: TObject);
 VAR
 reg:tregistry;
 skin_s:string;
begin
 reg:=tregistry.Create;
 reg.RootKey:=hkey_local_machine;
 reg.OpenKey('\software\microsoft\windows\bl_soft',true);
 if  reg.ValueExists('skin') then
  begin
   skin_s:=reg.ReadString('skin');
  end
 else
  begin
   reg.WriteString('skin',ExtractFilePath(Application.ExeName)+'bsf\lime\skin.ini');
   skin_s:=ExtractFilePath(Application.ExeName)+'bsf\lime\skin.ini';
  end;
 bsCompressedStoredSkin1.LoadFromIniFile(skin_s);
 bsSkinData1.LoadCompressedStoredSkin(bsCompressedStoredSkin1);
end;

procedure TForm1.bsSkinDBGrid1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var info:tform9;
  begin
info:=TForm9.Create(owner);
info.ShowModal;
info.Free;

end;

end.