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