departmentselect.pas

该系统主要用于生产采购系统

unit DepartmentSelect;

interface

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

type
  TDepartmentSelectFrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    DepartDBG: TDBGrid;
    Label1: TLabel;
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
    procedure DepartDBGCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
    D_ID:integer;
    D_Name:string;
  end;

var
  DepartmentSelectFrm: TDepartmentSelectFrm;
implementation
  uses DataModule;
{$R *.dfm}

procedure TDepartmentSelectFrm.BB_ConfirmClick(Sender: TObject);
begin
   DepartmentSelectFrm.Close;  //关闭生产部门选择窗口
   DepartmentSelectFrm.ModalResult := mrOk; //表示用户确定选择的生产部门
   DM.AQ_Department.Active:=false;
end;

procedure TDepartmentSelectFrm.BB_CancelClick(Sender: TObject);
begin
   DepartmentSelectFrm.Close;  //关闭生产部门选择窗口
   DepartmentSelectFrm.ModalResult := mrCancel; //表示用户确定选择的生产部门
   DM.AQ_Department.Active:=false;
end;

procedure TDepartmentSelectFrm.DepartDBGCellClick(Column: TColumn);
begin
   D_ID:=DM.AQ_Department['Department_ID'];
   D_Name:=DM.AQ_Department['Department_Name'];
end;

end.