lyda.~pas

一． 目的： 编写出 研发部业绩分配计算系统. 二． 功能： 包括 1.人员档案 2.基本数据录入(本季度总抽层,小产品非订制业绩,小产品订制业绩,ERP非订制业绩,ERP订制业绩) 3.

unit lyda;

interface

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

type
  TFom_lyda = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBComboBox1: TDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBComboBox2: TDBComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    BitBtn7: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fom_lyda: TFom_lyda;

implementation

uses data, share;

{$R *.dfm}

procedure TFom_lyda.BitBtn1Click(Sender: TObject);
begin
  dm.ADQ_worker.Edit;
  dm.ADQ_worker.Append;
end;

procedure TFom_lyda.BitBtn2Click(Sender: TObject);
begin
  dm.ADQ_worker.Delete;
  dm.ADQ_worker.Edit;
  dm.ADQ_worker.Post;
  MessageBox(handle,'类型记录删除成功！','删除成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_lyda.BitBtn6Click(Sender: TObject);
begin
  dm.ADQ_worker.Edit;
  dm.ADQ_worker.Post;
  MessageBox(handle,'类型记录修改成功！','修改成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_lyda.BitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFom_lyda.BitBtn4Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    sql:='select * from V_worker where workNO like '+'''%'+edit1.Text+'%''';
  end;
  if RadioButton2.Checked then
  begin
    sql:='select * from V_worker where name like '+'''%'+edit2.Text+'%''';
  end;
  if RadioButton3.Checked then
  begin
    sql:='select * from V_worker where tel like '+'''%'+edit3.Text+'%''';
  end;
  dm.ADQ_worker.Close;
  dm.ADQ_worker.SQL.Clear;
  dm.ADQ_worker.SQL.Add(sql);
  dm.ADQ_worker.Open;
  edit1.Text:='';
  edit2.Text:='';
  edit3.text:='';
end;

procedure TFom_lyda.BitBtn7Click(Sender: TObject);
begin
  sql:='select * from V_worker';
  dm.ADQ_worker.Close;
  dm.ADQ_worker.SQL.Clear;
  dm.ADQ_worker.SQL.Add(sql);
  dm.ADQ_worker.Open;
end;

procedure TFom_lyda.BitBtn5Click(Sender: TObject);
begin
close;
end;

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

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

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

end.