ser4.pas

一个就业管理系统

unit ser4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, bsSkinCtrls, Mask, bsSkinBoxCtrls, bsdbctrls,
  BusinessSkinForm, RpDefine, RpRender, RpRenderCanvas, RpRenderPreview;

type
  TForm4 = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinTextLabel1: TbsSkinTextLabel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinTextLabel4: TbsSkinTextLabel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinCheckRadioBox4Click(Sender: TObject);
    procedure bsSkinCheckRadioBox5Click(Sender: TObject);
    procedure bsSkinGroupBox1Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

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

procedure TForm4.FormCreate(Sender: TObject);
begin

Form4.Caption:='系统查询';
da.sercl_q.Open;
da.serjy_q.Open;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
bsSkinDateEdit1.Enabled:=bsSkinCheckRadioBox4.Checked;
bsSkinDateEdit2.Enabled:=bsSkinCheckRadioBox5.Checked;
end;

procedure TForm4.bsSkinCheckRadioBox4Click(Sender: TObject);
begin
bsSkinDateEdit1.Enabled:=bsSkinCheckRadioBox4.Checked;
end;

procedure TForm4.bsSkinCheckRadioBox5Click(Sender: TObject);
begin
bsSkinDateEdit2.Enabled:=bsSkinCheckRadioBox5.Checked;

end;

procedure TForm4.bsSkinGroupBox1Click(Sender: TObject);
begin
bsSkinCheckRadioBox4.Checked:=bsSkinGroupBox1.Checked;
bsSkinCheckRadioBox5.Checked:=bsSkinGroupBox1.Checked;
end;

procedure TForm4.bsSkinButton1Click(Sender: TObject);
var s,ors:string;
ser:tform5;
begin

s:='st.sex=sex.id and st.cl=cl.id and st.jy=jy.id';
if bsSkinGroupBox2.Checked then
begin
if bsSkinCheckRadioBox1.Checked then
s:=s+' and  st.na like :na';
if bsSkinCheckRadioBox2.Checked then
s:=s+' and st.na=:na';
end;
if bsSkinGroupBox3.Checked then
s:=s+' and st.cl=:cl'  ;


if bsSkinGroupBox4.Checked then
if bsSkinCheckRadioBox3.Checked then
s:=s+' and st.jy<>:jy'
else
s:=s+' and st.jy=:jy' ;

if bsSkinGroupBox1.Checked then
begin
if bsSkinCheckRadioBox4.Checked then
s:=s+ ' and st.bir>:birh';
if bsSkinCheckRadioBox5.Checked then
s:=s+' and st.bir<:birl';
end;

if bsSkinGroupBox5.Checked  then                      //and bsSkinEdit1.Text<>''
s:=s+' and st.high>=:high';

da.temp.Close;
da.temp.SQL.Clear;
da.temp.SQL.add('select st.co as 身份证,st.id,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.temp.SQL.Add('from st,sex,jy,cl')   ;
da.temp.SQL.Add('where  '+s);
if bsSkinGroupBox2.Checked then
da.temp.Parameters.ParamValues['na']:=bsSkinEdit3.Text;
if bsSkinGroupBox3.Checked then
da.temp.Parameters.ParamValues['cl']:=bsSkinDBLookupComboBox1.KeyValue;
if bsSkinGroupBox4.Checked then
da.temp.Parameters.ParamValues['jy']:=bsSkinDBLookupComboBox2.KeyValue;
if bsSkinCheckRadioBox3.Checked then
begin
da.serjy_q.First;
da.temp.Parameters.ParamValues['jy']:=da.serjy_q.FieldValues['id'];
end;

if  bsSkinGroupBox1.Checked then
begin
if bsSkinCheckRadioBox4.Checked then
da.temp.Parameters.ParamValues['birh']:=bsSkinDateEdit1.Text;
if bsSkinCheckRadioBox5.Checked then
da.temp.Parameters.ParamValues['birl']:=bsSkinDateEdit2.Text;
end;


if bsSkinGroupBox5.Checked  then          //and bsSkinEdit1.Text<>''
da.temp.Parameters.ParamValues['high']:=bsSkinEdit1.Text;

if bsSkinGroupBox6.Checked then
begin
ors:='  order  by ';
if bsSkinCheckRadioBox1.Checked then
ors:=ors +'cl.id '    ;
if bsSkinCheckRadioBox2.Checked then
if  bsSkinCheckRadioBox1.Checked then
ors:=ors+',jy.id'
else
ors:=ors+'jy.id';
end;
if  bsSkinCheckRadioBox2.Checked or  bsSkinCheckRadioBox1.Checked then
da.temp.SQL.Add(ors);


da.temp.Prepared;
da.temp.ExecSQL;
da.temp.Open;

ser:=TForm5.Create(Owner);
ser.ShowModal;
ser.Free;

end;

procedure TForm4.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

end.