viewreq.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 103 行

unit viewreq;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, Db, ADODB, Menus;

type
  Tformview = class(TForm)
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    DBGrid2: TDBGrid;
    Dsmaster: TDataSource;
    Adomaster: TADOQuery;
    Adodetail: TADOQuery;
    Dsdetail: TDataSource;
    AdomasterRprof: TStringField;
    Adomasterboy: TBCDField;
    Adomastergirl: TBCDField;
    Adodetailrno: TStringField;
    AdodetailRcourse: TStringField;
    AdodetailRdegree: TStringField;
    Adodetailboys: TBCDField;
    Adodetailgirls: TBCDField;
    AdodetailRexp: TMemoField;
    AdodetailRprof: TStringField;
    AdodetailRage: TStringField;
    AdodetailRmarry: TStringField;
    AdodetailRdept: TStringField;
    AdodetailRprov: TStringField;
    Adodetailsumperson: TBCDField;
    Adodetailnowperson: TBCDField;
    Adodetailwhy: TStringField;
    AdodetailRman: TStringField;
    Adodetailmemo: TStringField;
    Adodetailstate1: TBooleanField;
    Adodetailstate2: TBooleanField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Adodetailhopedate: TDateTimeField;
    Adodetaildept: TStringField;
    AdodetailRdate: TDateTimeField;
    AdodetailCdate: TDateTimeField;
    Adodetailoperator: TStringField;
    procedure N1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formview: Tformview;

implementation

uses datamol, empset;
{$R *.DFM}

procedure Tformview.N1Click(Sender: TObject);
begin
  if not assigned(formempset) then
    formempset:=tformempset.create(self);
  with formempset do
  begin
    datamod.adoempplan1.Append;
    datamod.Adoempplan1.FieldByName('rno').asstring:=adodetailrno.asstring;
    datamod.Adoempplan1.FieldByName('rprof').asstring:=adodetailrno.asstring;
    datamod.Adoempplan1.FieldByName('rcourse').asstring:=adodetailrcourse.asstring;
    datamod.Adoempplan1.FieldByName('rdegree').asstring:=adodetailrdegree.asstring;
    datamod.Adoempplan1.FieldByName('boys').asstring:=adodetailboys.asstring;
    datamod.Adoempplan1.FieldByName('girls').asstring:=adodetailgirls.asstring;
    datamod.Adoempplan1.FieldByName('rdate').asstring:=adodetailhopedate.asstring;
    datamod.Adoempplan1.FieldByName('rexp').asstring:=adodetailrexp.asstring;
    datamod.Adoempplan1.FieldByName('mem').asstring:=adodetailmemo.asstring;
    with datamod.ADOQuery2 do
    begin
      close;
      sql.text:='update  emp06011 set state1=1,state2=1 where rno='''+adodetailrno.asstring+'''';
      execsql;
    end;
  end;
end;

procedure Tformview.FormActivate(Sender: TObject);
begin
  adomaster.close;
  adomaster.Open;
  adodetail.close;
  adodetail.Open;
  if (not adomaster.eof) and (adodetail.eof) then
    with datamod.ADOQuery2 do
    begin
      close;
      sql.text:='update  emp06010 set state1=1,state2=1 where rno='''+adomasterRprof.asstring+''' and state1=1 and state2=0';
      execsql;
    end;
end;

end.