scryda.pas

人员管理系统

unit scryda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mp, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, DB;

type
  TForm79 = class(TForm41)
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CheckBox5: TCheckBox;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Image1: TImage;
    Image2: TImage;
    Label3: TLabel;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Image6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image6MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image8MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image4MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form79: TForm79;

implementation
  uses Dataa;
{$R *.dfm}

procedure TForm79.Image6MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image6.Visible := False;
  Image5.Visible := True;
end;

procedure TForm79.Image6MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image5.Visible := False;
  Image6.Visible := True;
end;

procedure TForm79.Image8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image8.Visible := False;
  Image7.Visible := True;
end;

procedure TForm79.Image8MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image7.Visible := False;
  Image8.Visible := True;
end;

procedure TForm79.Image4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image4.Visible := False;
  Image3.Visible := True;
end;

procedure TForm79.Image4MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image3.Visible := False;
  Image4.Visible := True;
end;

procedure TForm79.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image1.Visible := False;
  Image2.Visible := True;
end;

procedure TForm79.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Image2.Visible := False;
  Image1.Visible := True;
end;

procedure TForm79.FormShow(Sender: TObject);
begin
  inherited;
  DataSource1.DataSet := Nil;
end;

procedure TForm79.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  Key := #0;
end;

procedure TForm79.ComboBox1Change(Sender: TObject);
begin
  inherited;
  if Trim(ComboBox1.Text)<>'' then
  begin
    with Data3.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select distinct');
      SQL.Add(ComboBox1.Text);
      SQL.Add('From 员工基础信息表');
      Open;
    end;
    ComboBox2.Clear;
    while Not Data3.ADOQuery1.Eof do
    begin
      ComboBox2.Items.Add(Data3.ADOQuery1.Fields[0].Value);
      Data3.ADOQuery1.Next;
    end;
  end;
end;

procedure TForm79.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if CheckBox5.Checked = False then
  begin
    if (Trim(ComboBox1.Text)<>'')and(Trim(ComboBox2.Text)<>'')then
    begin
      with Data3.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 员工基础信息表 where');
        SQL.Add(Trim(ComboBox1.Text));
        SQL.Add('= ');
        SQL.Add(':a');
        Parameters.ParamByName('a').Value := Trim(ComboBox2.Text);
        Open;
      end;
      if Data3.ADOQuery2.RecordCount>0 then
        DataSource1.DataSet := Data3.ADOQuery2;
    end
  end
  else
  begin
    with Data3.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 员工基础信息表 ');
     Open;
    end;
    if Data3.ADOQuery2.RecordCount>0 then
      DataSource1.DataSet := Data3.ADOQuery2;
  end;
end;

procedure TForm79.Image6Click(Sender: TObject);
begin
  inherited;
  if  Data3.ADOQuery2.Active = True then
    if Not Data3.ADOQuery2.Bof  then
      Data3.ADOQuery2.Prior ;
end;

procedure TForm79.Image8Click(Sender: TObject);
begin
  inherited;
  if  Data3.ADOQuery2.Active = True then
    if Not Data3.ADOQuery2.Eof  then
      Data3.ADOQuery2.Next;
end;

procedure TForm79.Image4Click(Sender: TObject);
begin
  inherited;
  if Data3.ADOQuery2.Active = True then
    if Application.MessageBox('确实要删除当前记录吗？','提示',MB_YesNo)= ID_Yes then
      Data3.ADOQuery2.Delete;
end;

procedure TForm79.Image1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.