📄 uyjgl.pas

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

interface

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

type
  TFom_yjgl = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    CB_month: TComboBox;
    Label4: TLabel;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure CB_monthChange(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit6Change(Sender: TObject);
    procedure DBEdit8Click(Sender: TObject);
    procedure DBEdit5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fom_yjgl: TFom_yjgl;

implementation

uses data, share;

{$R *.dfm}

procedure TFom_yjgl.BitBtn1Click(Sender: TObject);
var
  i:integer;
  m,y:integer;
  month:string;
begin
  m:=MonthOf(date);
  y:=YearOf(date);
  month:=inttostr(y)+'-'+inttostr(m)+'-'+'1';
  dm.ADQ_departAchiv.sql.Clear;
  dm.ADQ_departAchiv.SQL.Add('select * from dachive');
  dm.ADQ_departAchiv.SQL.Add('where months='+''''+month+'''');
  dm.ADQ_departAchiv.Open;
  if  dm.ADQ_departAchiv.RecordCount>0 then
    MessageBox(handle,'本月已有记录，请输入数据进行统计！','已有记录',MB_OK or MB_ICONINFORMATION)
  else
  begin
    for i:=1 to dm.ADQ_department.RecordCount-1 do
    begin
      dm.ADQ_departAchiv.Append;
      dm.ADQ_departAchiv.FieldByName('months').AsString:=month;
      dm.ADQ_departAchiv.FieldByName('departNo').AsInteger:=i;
    end;
    dm.ADQ_departAchiv.Edit;
    dm.ADQ_departAchiv.Post;
    MessageBox(handle,'本月部门信息输入完比，请输入数据进行统计！','已有记录',MB_OK or MB_ICONINFORMATION);
    CB_month.Items.Add(dm.ADQ_departAchiv.fieldbyname('months').AsString);
  end;
end;

procedure TFom_yjgl.BitBtn2Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Edit;
  dm.ADQ_departAchiv.Post;
  MessageBox(handle,'类型记录保存成功！','保存成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_yjgl.BitBtn3Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Cancel;
end;

procedure TFom_yjgl.BitBtn4Click(Sender: TObject);
var
  i:integer;
  m,y:integer;
  month:string;
begin
  m:=MonthOf(date);
  y:=YearOf(date);
  month:=inttostr(y)+'-'+inttostr(m)+'-'+'1';
  dm.ADQ_personAchiv.sql.Clear;
  dm.ADQ_personAchiv.SQL.Add('select * from achivement');
  dm.ADQ_personAchiv.SQL.Add('where months='+''''+month+'''');
  dm.ADQ_personAchiv.Open;
  dm.ADQ_personAchiv.edit;
  if  dm.ADQ_personAchiv.RecordCount>0 then
    MessageBox(handle,'本月已有记录，请输入数据进行统计！','已有记录',MB_OK or MB_ICONINFORMATION)
  else
  begin
    DLYH_Q.SQL.Clear;
    DLYH_Q.SQL.Add('select * from worker');
    DLYH_Q.Open;
    dlyh_Q.edit;
    for i:=1 to DLYH_Q.RecordCount do
    begin
      dm.ADQ_personAchiv.Append;
      dm.ADQ_personAchiv.FieldByName('months').AsString:=month;
      dm.ADQ_personAchiv.FieldByName('workNo').AsInteger:=i;
    end;
    dm.ADQ_personAchiv.Edit;
    dm.ADQ_personAchiv.Post;
    MessageBox(handle,'本月个人信息输入完比，请输入数据进行统计！','已有记录',MB_OK or MB_ICONINFORMATION);
  end;
end;

procedure TFom_yjgl.BitBtn5Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Edit;
  dm.ADQ_personAchiv.Post;
  MessageBox(handle,'类型记录保存成功！','保存成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_yjgl.BitBtn6Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Edit;
  dm.ADQ_personAchiv.Post;
  close;
end;

procedure TFom_yjgl.BitBtn7Click(Sender: TObject);
var
  i:integer;
begin
  DLYH_Q.SQL.Clear;
  DLYH_Q.SQL.Add('select * from dachive');
  DLYH_Q.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  DLYH_Q.Open;
  dlyh_Q.edit;
  for i:=1 to DLYH_Q.RecordCount do
  begin
      dm.ADQ_departAchiv.Delete;
  end;
  dm.ADQ_departAchiv.Edit;
  dm.ADQ_departAchiv.Post;
  MessageBox(handle,'类型记录删除成功！','删除成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_yjgl.BitBtn8Click(Sender: TObject);
var
  i:integer;
begin
  DLYH_Q.SQL.Clear;
  DLYH_Q.SQL.Add('select * from achivement');
  DLYH_Q.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  DLYH_Q.Open;
  dlyh_Q.edit;
  for i:=1 to DLYH_Q.RecordCount do
  begin
    dm.ADQ_personAchiv.Delete;
  end;
  dm.ADQ_personAchiv.Edit;
  dm.ADQ_personAchiv.Post;
  MessageBox(handle,'类型记录删除成功！','删除成功',MB_OK or MB_ICONINFORMATION);
end;

procedure TFom_yjgl.FormCreate(Sender: TObject);
begin
  fom_yjgl.DBGrid1.Visible:=false;
  fom_yjgl.DBGrid2.Visible:=false;
end;

procedure TFom_yjgl.FormActivate(Sender: TObject);
var
  i:integer;
begin
  DLYH_Q.SQL.Clear;
  DLYH_Q.SQL.Add('select months from dAchive');
  DLYH_Q.SQL.Add('where departNo=1');
  DLYH_Q.Open;
  DLYH_Q.Last;
  for i:=1 to DLYH_Q.RecordCount do
  begin
    CB_month.Items.Add(DLYH_Q.fieldbyname('months').AsString);
    DLYH_Q.Prior;
  end;
  DLYH_Q.Last;
  CB_month.Text:=DLYH_Q.fieldbyname('months').AsString;
//**************************************************************
  dm.ADQ_departAchiv.sql.Clear;
  dm.ADQ_departAchiv.SQL.Add('select * from dachive');
  dm.ADQ_departAchiv.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  dm.ADQ_departAchiv.Open;
  dm.ADQ_personAchiv.sql.Clear;
  dm.ADQ_personAchiv.SQL.Add('select * from achivement');
  dm.ADQ_personAchiv.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  dm.ADQ_personAchiv.Open;
  fom_yjgl.DBGrid1.Visible:=true;
  fom_yjgl.DBGrid2.Visible:=true;
end;

procedure TFom_yjgl.BitBtn9Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.First;
  DBEdit5.SetFocus;
  DBEdit5.SelectAll;
end;

procedure TFom_yjgl.BitBtn10Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Prior;
  DBEdit5.SetFocus;
  DBEdit5.SelectAll;
end;

procedure TFom_yjgl.BitBtn11Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Next;
  DBEdit5.SetFocus;
  DBEdit5.SelectAll;
end;

procedure TFom_yjgl.BitBtn12Click(Sender: TObject);
begin
  dm.ADQ_departAchiv.Last;
  DBEdit5.SetFocus;
  DBEdit5.SelectAll;
end;

procedure TFom_yjgl.BitBtn13Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.First;
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

procedure TFom_yjgl.BitBtn14Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Prior;
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

procedure TFom_yjgl.BitBtn16Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Next;
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

procedure TFom_yjgl.BitBtn15Click(Sender: TObject);
begin
  dm.ADQ_personAchiv.Last;
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

procedure TFom_yjgl.CB_monthChange(Sender: TObject);
begin
  dm.ADQ_departAchiv.sql.Clear;
  dm.ADQ_departAchiv.SQL.Add('select * from dachive');
  dm.ADQ_departAchiv.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  dm.ADQ_departAchiv.Open;
  dm.ADQ_personAchiv.sql.Clear;
  dm.ADQ_personAchiv.SQL.Add('select * from achivement');
  dm.ADQ_personAchiv.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  dm.ADQ_personAchiv.Open;
end;

procedure TFom_yjgl.DBEdit2Change(Sender: TObject);
begin
  DLYH_Q.SQL.Clear;
  DLYH_Q.SQL.Add('select departname from department');
  DLYH_Q.SQL.Add('where departNo='+#39+Trim(DBEdit2.Text)+#39);
  DLYH_Q.Open;
  DBEdit3.Text:=DLYH_Q.fieldbyname('departname').AsString;
end;

procedure TFom_yjgl.DBEdit6Change(Sender: TObject);
begin
  DLYH_Q.SQL.Clear;
  DLYH_Q.SQL.Add('select name from worker');
  DLYH_Q.SQL.Add('where workNo='+#39+Trim(DBEdit6.Text)+#39);
  DLYH_Q.Open;
  DBEdit7.Text:=DLYH_Q.fieldbyname('name').AsString;
end;

procedure TFom_yjgl.DBEdit8Click(Sender: TObject);
begin
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

procedure TFom_yjgl.DBEdit5Click(Sender: TObject);
begin
   DBEdit5.SetFocus;
   DBEdit5.SelectAll;
end;

procedure TFom_yjgl.DBGrid1CellClick(Column: TColumn);
begin
  DBEdit5.SetFocus;
  DBEdit5.SelectAll;
end;

procedure TFom_yjgl.DBGrid2CellClick(Column: TColumn);
begin
  DBEdit8.SetFocus;
  DBEdit8.SelectAll;
end;

end.
💿 文件大小 1995 K
👤 上传用户 my
📂 所属分类企业管理
🏷️ 相关标签

#ERP #编写 #分配 #数据
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -