links.pas

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

unit links;

interface

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

type
  TFom_dinzhi = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn13: TBitBtn;
    CB_month: TComboBox;
    Label9: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure CB_monthChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fom_dinzhi: TFom_dinzhi;

implementation

uses data, share;

{$R *.dfm}

procedure TFom_dinzhi.BitBtn1Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.Append;
end;

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

procedure TFom_dinzhi.BitBtn3Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.Cancel;
  close;
end;

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

procedure TFom_dinzhi.BitBtn13Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.First;
end;

procedure TFom_dinzhi.BitBtn14Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.Prior;
end;

procedure TFom_dinzhi.BitBtn16Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.Next;
end;

procedure TFom_dinzhi.BitBtn15Click(Sender: TObject);
begin
  dm.ADQ_dinzhi.Last;
end;

procedure TFom_dinzhi.CB_monthChange(Sender: TObject);
begin
  dm.ADQ_dinzhi.sql.Clear;
  dm.ADQ_dinzhi.SQL.Add('select * from dinzhi');
  dm.ADQ_dinzhi.SQL.Add('where months='+#39+Trim(CB_month.Text)+#39);
  dm.ADQ_dinzhi.Open;
end;

procedure TFom_dinzhi.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);
    DBComboBox1.Items.Add(DLYH_Q.fieldbyname('months').AsString);
    DLYH_Q.Prior;
  end;
  DLYH_Q.Last;
  CB_month.Text:=DLYH_Q.fieldbyname('months').AsString;
end;

end.