rewardfind.~pas

本系统是结合行业管理中实际的人力资源、工资制度

unit rewardfind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls,
  DBClient,rewardpun_unit;

type
  Trewardfindfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    rewardfind_ds1: TDataSource;
    cancel_btn: TButton;
    rewardfind_cds1: TClientDataSet;
    HoldBtn: TButton;
    IdList: TListBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure one_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdListClick(Sender: TObject);
    procedure HoldBtnClick(Sender: TObject);
  private
    rewardpun:Trewardpun;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  rewardfindfrm: Trewardfindfrm;
  reid:string;
implementation

uses rewardpunfrm;

{$R *.dfm}

procedure Trewardfindfrm.one_btnClick(Sender: TObject);
var
 t1,sql:string;
begin
//创建类的实例
rewardpun:=Trewardpun.create ;
end;

procedure Trewardfindfrm.cancel_btnClick(Sender: TObject);
begin

rewardfindfrm.Close;
end;

procedure Trewardfindfrm.DBGrid1CellClick(Column: TColumn);
begin
  try
    reid := DBGrid1.Fields[0].AsString;
  except
    exit;
  end;
end;

procedure Trewardfindfrm.FormActivate(Sender: TObject);
begin
//创建类的实例
rewardpun:=Trewardpun.create ;
IdList.Items:=rewardpun.GetRWPIdList();
end;

procedure Trewardfindfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//释放实例
rewardpun.Free;
end;

procedure Trewardfindfrm.IdListClick(Sender: TObject);
var
   i:integer;
   sql,idnum:string;
begin
for i:=0 to IdList.Items.Count-1 do
begin
  if IdList.Selected[i] then
  idnum:=IdList.Items.Strings[i];
end;
//赋值查询语句
sql:='select record_id 记录号,worker_id 员工编号,'
+'worker_name 员工姓名,record_date 奖惩日期,'
+'record_type 奖惩类型,allow_unit 批准单位,'
+'record_content 奖惩内容,record_reason 奖惩原因,'
+'remark  备注 from reward_pun where worker_id='''+idnum+'''';
//将查询结果用列表显示出来
rewardfind_cds1.Data :=rewardpun.RewardPunRecs(sql);
end;

procedure Trewardfindfrm.HoldBtnClick(Sender: TObject);
begin
  rewardfrm.showmodal;
end;

end.