u_rsserch.pas

人事考勤系统

unit U_RSserch;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type
  TF_RSsearch = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1yjbm_name: TStringField;
    Query1ejbm_name: TStringField;
    Query1name: TStringField;
    Query1work_num: TStringField;
    Query1yjbm_id: TIntegerField;
    Query1ejbm_id: TIntegerField;
    Query1emp_id: TIntegerField;
    Query1cardnum: TStringField;
    Query1IC_id: TStringField;
    Query1birthday: TStringField;
    Query1sex: TStringField;
    Query1Marry: TStringField;
    Query1In_date: TStringField;
    Query1Now_add: TStringField;
    Query1TelePhone: TStringField;
    Query1home_ori: TStringField;
    Query1home_add: TStringField;
    Query1home_mem: TStringField;
    Query1home_relation: TStringField;
    Query1grd_sch: TStringField;
    Query1grd_zy: TStringField;
    Query1degree: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioGroup1: TRadioGroup;
    Shape1: TShape;
    CheckBox2: TCheckBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    RadioGroup2: TRadioGroup;
    CheckBox3: TCheckBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    SpeedButton1: TSpeedButton;
    StatusBar1: TStatusBar;
    CheckBox4: TCheckBox;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    cond1,cond2,cond3:string;
    Procedure GetDep(fieldsname:string;cobname:TCombobox);
    Procedure GetFieldscaption(cobname:TCombobox);
    Function GetFieldsName(caption:string):string;
    Function CheckOK:boolean;
  public
    { Public declarations }
  end;

var
  F_RSsearch: TF_RSsearch;

implementation

{$R *.DFM}

procedure TF_RSsearch.GetDep(fieldsname:string;cobname:TCombobox);
var
  Q_temp:TQuery;
begin
  Q_temp:=TQuery.Create(self);
  Q_temp.DatabaseName:='Person_DB';
try
  if Fieldsname='yjbm_name' then
    begin
      cobname.Items.clear;
      with Q_temp do
        begin
          close;
          sql.Clear;
          sql.Add('select distinct yjbm_name from V_yjbm_ejbm');
          open;
        end;
        Q_temp.First;
        while not Q_temp.Eof do
          begin
            cobname.Items.add(Q_temp.fieldbyname('yjbm_name').asstring);
            Q_temp.next;
          end;
    end
  else if Fieldsname='ejbm_name' then
    begin
      cobname.Items.clear;
      with Q_temp do
        begin
          close;
          sql.Clear;
          sql.Add('select distinct ejbm_name from V_yjbm_ejbm');
          open;
        end;
        Q_temp.First;
        while not Q_temp.Eof do
          begin
            cobname.Items.add(Q_temp.fieldbyname('ejbm_name').asstring);
            Q_temp.next;
          end;
    end
    else
      begin
        cobname.items.clear;
        with Q_temp do
          begin
            close;
            sql.Clear;
            sql.Add('select distinct '+fieldsname+' from V_RSZL');
            open;
          end;
          Q_temp.First;
          while not Q_temp.Eof do
            begin
              cobname.Items.add(Q_temp.fieldbyname(fieldsname).asstring);
              Q_temp.next;
            end;
      end;
finally
  Q_temp.free;
end;
end;


function TF_RSsearch.CheckOK(): boolean;
begin
  Result:=false;
  if checkbox1.Checked then
    if (Combobox1.Text='')or(combobox2.Text='') then
       begin
         Application.MessageBox('兵ン