u_select.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Select;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, ExtCtrls, DB, ADODB, StdCtrls, Buttons;

type
  TF_Select = class(TF_Form_base)
    Panel2: TPanel;
    Panel3: TPanel;
    ComField: TComboBox;
    ComTJ: TComboBox;
    EData: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComGX: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComName: TComboBox;
    ListBox1: TListBox;
    SpeedButton1: TSpeedButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ListBox2: TListBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label6: TLabel;
    procedure ComGXChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComFieldChange(Sender: TObject);
    procedure ComTJChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure EDataKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComGXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComFieldKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComTJKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    Rsql: string;
    Mquery:Tadoquery;
    { Public declarations }
  end;

var
  F_Select: TF_Select;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Select.ComGXChange(Sender: TObject);

begin
  inherited;
  combobox2.ItemIndex := comgx.ItemIndex;


end;

procedure TF_Select.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if (ComGx.Text = '') then
  begin
    MessageDlg('请选择关系!', mtError, [mbOK], 0);
    comGx.SetFocus;
    abort;
  end;

  if comfield.Text = '' then
  begin
    MessageDlg('请选择字段!', mtError, [mbOK], 0);
    comfield.SetFocus;
    abort;
  end;

  if comtj.Text = '' then
  begin
    MessageDlg('请选择条件!', mtError, [mbOK], 0);
    comfield.SetFocus;
    abort;
  end;

  listbox1.Items.Add(comgx.Text + '  ' + comfield.Text + '   ' + comtj.Text + '   ' + Edata.Text);
  if Combobox1.ItemIndex = 6 then
    listbox2.Items.Add(combobox2.Text + '   rTrim(Convert(varchar(100),' + comname.Text + '))  ' + combobox1.Text + '   ''%' + Edata.Text + '%''')
  else
    listbox2.Items.Add(combobox2.Text + '    rTrim(Convert(varchar(100),' + comname.Text + '))  ' + combobox1.Text + '   ''' + Edata.Text + '''');

end;

procedure TF_Select.ComFieldChange(Sender: TObject);
begin
  inherited;
  comname.ItemIndex := ComField.ItemIndex;
end;

procedure TF_Select.ComTJChange(Sender: TObject);
begin
  inherited;
  combobox1.ItemIndex := Comtj.ItemIndex;
end;

procedure TF_Select.FormShow(Sender: TObject);
begin
  inherited;
  Set_com1(Comfield, Mquery);
  Set_com2(Comname, Mquery);
  ComGx.SetFocus;
end;

procedure TF_Select.BitBtn1Click(Sender: TObject);
var i: integer;
begin
  inherited;
  if listbox2.Items.Count = 0 then exit;
  RSql := '';

  for i := 0 to Listbox2.Items.Count - 1 do
  begin
    Rsql := Rsql + ' ' + listbox2.Items.Strings[i];
  end;
  F_select.ModalResult := mrok;
   //Showmessage(Sql_s);
end;

procedure TF_Select.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_Select.BitBtn3Click(Sender: TObject);
begin
  inherited;
  listbox1.Items.Delete(listbox1.ItemIndex);
  listbox2.Items.Delete(listbox1.ItemIndex);
end;

procedure TF_Select.ListBox1DblClick(Sender: TObject);
begin
  inherited;
  Bitbtn3.Click;
end;

procedure TF_Select.BitBtn4Click(Sender: TObject);
begin
  inherited;
  listbox1.Clear;
  listbox2.Clear;
end;

procedure TF_Select.EDataKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key = 13 then
  begin
    speedbutton1.Click;
    comgx.SetFocus;
  end;

end;

procedure TF_Select.ComGXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key = 13 then
    comfield.SetFocus;
end;

procedure TF_Select.ComFieldKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key = 13 then
    comtj.SetFocus;
end;

procedure TF_Select.ComTJKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key = 13 then
    edata.SetFocus;
end;

initialization
  RegisterClass(TF_Select);

end.