unit14.pas

该系统是学生人事管理系统

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsSkinBoxCtrls, Grids, DBGrids, ExtCtrls, StdCtrls,
  DBCtrls, Buttons, Mask, ComCtrls, bsdbctrls, bsSkinGrids, bsDBGrids,
  bsSkinTabs, DBActns, ActnList;

type
  TForm14 = class(TForm)
    Panel1: TPanel;
    Panel5: TPanel;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinLabel9: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinEdit8: TbsSkinEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinComboBox2: TbsSkinComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinRadioGroup4: TbsSkinRadioGroup;
    bsSkinRadioGroup5: TbsSkinRadioGroup;
    bsSkinRadioGroup6: TbsSkinRadioGroup;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinLabel11: TbsSkinLabel;
    bsSkinLabel10: TbsSkinLabel;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinLabel13: TbsSkinLabel;
    bsSkinLabel14: TbsSkinLabel;
    bsSkinLabel15: TbsSkinLabel;
    bsSkinLabel16: TbsSkinLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBImage1: TbsSkinDBImage;
    bsSkinLabel17: TbsSkinLabel;
    bsSkinLabel18: TbsSkinLabel;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinLabel20: TbsSkinLabel;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinGroupBox2: TbsSkinGroupBox;
    DBGrid2: TDBGrid;
    bsSkinGroupBox4: TbsSkinGroupBox;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses Unit3, Unit11;

{$R *.dfm}

procedure TForm14.bsSkinButton1Click(Sender: TObject);
var
  sqlstr:string;
begin
sqlstr:='select * from jbzl where (1=1)';
   if bsskinedit1.Text <>'' then
   sqlstr:=sqlstr+'and (xuehao='''+bsskinedit1.text+''')';
   if bsskinedit2.text<>'' then
   sqlstr:=sqlstr+'and (xingming='''+bsskinedit2.text+''')';
   if bsskincombobox1.Text<>'' then
   sqlstr:=sqlstr+'and (xingbie='''+bsskincombobox1.text+''')' ;
   if bsskincombobox2.Text <>'' then
   sqlstr:=sqlstr+'and (zhengzhimianmao='''+bsskincombobox2.text+''')' ;
   if  bsskinedit4.text<>'' then
   sqlstr:=sqlstr+'and (zhuyeu='''+bsskinedit4.text+''')';
   if bsskinedit6.text<>'' then
   sqlstr:=sqlstr+'and (banji='''+bsskinedit6.text+''')';
   if bsskinedit5.text<>'' then
   sqlstr:=sqlstr+'and (xibie='''+bsskinedit5.text+''')';
   if bsskinedit8.text<>'' then
   sqlstr:=sqlstr+'and (shenfenzhenghao='''+bsskinedit8.text+''')';
 datamodule3.ADOQuery2.Close ;
 datamodule3.ADOQuery2.SQL.Clear ;
 datamodule3.ADOQuery2.SQL.Add(sqlstr);
 datamodule3.ADOQuery2.Open ;

end;

procedure TForm14.bsSkinButton3Click(Sender: TObject);
begin
  bsskinEdit1.Text:='';
   bsskinEdit2.Text:='';
   bsskinEdit4.Text:='';
   bsskinEdit5.Text:='';
   bsskinEdit6.Text:='';
   bsskinEdit8.Text:='';
   bsskincombobox1.Text:='';
   bsskincombobox2.Text:='';
end;

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

procedure TForm14.bsSkinButton12Click(Sender: TObject);
begin
form11.QuickRep1.Preview;
end;

procedure TForm14.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinEdit4KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinEdit5KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinEdit6KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.bsSkinEdit8KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree
end;

end.