szgwbz.pas

来自「人力资源管理系统（Delphi程序）大家学习共勉」· PAS 代码 · 共 64 行

unit szgwbz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, CheckLst, DB,
  ADODB;

type
  TfrmSzgwbz = class(TForm)
    GroupBoxGwBz: TGroupBox;
    GroupBox1: TGroupBox;
    DBGridYygw: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBLookupCmbBm: TDBLookupComboBox;
    DBLookupCmbGw: TDBLookupComboBox;
    DBEdtRs: TDBEdit;
    BtnExit: TButton;
    Label4: TLabel;
    DBEdtGwbh: TDBEdit;
    BtnGwbzyq: TButton;
    procedure BtnExitClick(Sender: TObject);
    procedure BtnGwbzyqClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSzgwbz: TfrmSzgwbz;

implementation
uses
  dm, szgwyq;

{$R *.dfm}

procedure TfrmSzgwbz.BtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSzgwbz.BtnGwbzyqClick(Sender: TObject);
begin
  try
    frmSzgwyq := TfrmSzgwyq.Create(nil);
    frmSzgwyq.Gwbh := DBEdtGwbh.Text ; //设置需要设置要求的岗位编号
    frmSzgwyq.Qtyq := DBGridYygw.DataSource.
      DataSet.fieldByName('Gwbz_yq').AsString ;//读出岗位编制的其他要求
    frmSzgwyq.ShowModal ;//显示设置岗位编制窗口
  finally
    frmSzgwyq.Free ;
  end;

end;

end.