yjcx.~pas

此为业绩统计系统 Delphi开发

unit yjcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids;

type
  TForm_yjcx = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
    procedure Edit5Click(Sender: TObject);
    procedure Edit6Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_yjcx: TForm_yjcx;

implementation

uses data, share;

{$R *.dfm}

procedure TForm_yjcx.BitBtn1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    sql:='select * from department where departNO like '+'''%'+edit1.Text+'%''';
  end;
  if RadioButton2.Checked then
  begin
    sql:='select * from department where departname like '+'''%'+edit2.Text+'%''';
  end;
  if RadioButton3.Checked then
  begin
    sql:='select * from department where admin like '+'''%'+edit3.Text+'%''';
  end;
  dm.ADQ_departAchiv.Close;
  dm.ADQ_departAchiv.SQL.Clear;
  dm.ADQ_departAchiv.SQL.Add(sql);
  dm.ADQ_departAchiv.Open;
  edit1.Text:='';
  edit2.Text:='';
  edit3.text:='';
end;

procedure TForm_yjcx.BitBtn3Click(Sender: TObject);
begin
  if RadioButton4.Checked then
  begin
    sql:='select * from V_personAchiv where workNO like '+'''%'+edit4.Text+'%''';
  end;
  if RadioButton5.Checked then
  begin
    sql:='select * from V_personAchiv where departname like '+'''%'+edit5.Text+'%''';
  end;
  if RadioButton6.Checked then
  begin
    sql:='select * from V_personAchiv where name like '+'''%'+edit6.Text+'%''';
  end;
  dm.ADQ_personAchiv.close;
  dm.ADQ_personAchiv.SQL.Clear;
  dm.ADQ_personAchiv.SQL.Add(sql);
  dm.ADQ_personAchiv.Open;
  edit4.Text:='';
  edit5.Text:='';
  edit6.text:='';
end;

procedure TForm_yjcx.BitBtn2Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Cancel;
end;

procedure TForm_yjcx.BitBtn4Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Cancel;
  close;
end;

procedure TForm_yjcx.BitBtn5Click(Sender: TObject);
begin
  sql:='select * from department';
  dm.ADQ_departAchiv.Close;
  dm.ADQ_departAchiv.SQL.Clear;
  dm.ADQ_departAchiv.SQL.Add(sql);
  dm.ADQ_departAchiv.Open;
end;

procedure TForm_yjcx.BitBtn6Click(Sender: TObject);
begin
  sql:='select * from V_personachiv';
  dm.ADQ_personAchiv.Close;
  dm.ADQ_personAchiv.SQL.Clear;
  dm.ADQ_personAchiv.SQL.Add(sql);
  dm.ADQ_personAchiv.Open;
end;

procedure TForm_yjcx.Edit4Click(Sender: TObject);
begin
  RadioButton4.Checked:=true;
end;

procedure TForm_yjcx.Edit5Click(Sender: TObject);
begin
  RadioButton5.Checked:=true;
end;

procedure TForm_yjcx.Edit6Click(Sender: TObject);
begin
  RadioButton6.Checked:=true;
end;

procedure TForm_yjcx.Edit1Click(Sender: TObject);
begin
  RadioButton1.Checked:=true;
end;

procedure TForm_yjcx.Edit2Click(Sender: TObject);
begin
  RadioButton2.Checked:=true;
end;

procedure TForm_yjcx.Edit3Click(Sender: TObject);
begin
  RadioButton3.Checked:=true;
end;

end.