【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MaterielSelect.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit MaterielSelect;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Grids, DBGrids, ExtCtrls, ComCtrls, StdCtrls, Buttons;
    
    type
      TMaterielSelectFrm = class(TForm)
        GroupBox1: TGroupBox;
        TreeView1: TTreeView;
        Panel1: TPanel;
        DBGrid1: TDBGrid;
        BB_Confirm: TBitBtn;
        BB_Cancel: TBitBtn;
        procedure FormCreate(Sender: TObject);
        procedure BB_ConfirmClick(Sender: TObject);
        procedure BB_CancelClick(Sender: TObject);
        procedure DBGrid1CellClick(Column: TColumn);
        procedure TreeView1DblClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        M_Name:string;         //材料名称变量
        M_ID:string;         //材料编号变量
        M_Standard:string;         //材料规格变量
        M_Unit:string;         //计量单位变量
        M_Pirce:string;         //单价变量
      end;
    
    var
      MaterielSelectFrm: TMaterielSelectFrm;
      n:integer;
    implementation
        uses DataModule;
    {$R *.dfm}
    
    procedure TMaterielSelectFrm.FormCreate(Sender: TObject);
    begin
      DM.AQ_Materiel.Filtered:=false;   //关闭材料信息表过滤器
      DM.AQ_Materiel.Active:=false;  
    end;
    
    procedure TMaterielSelectFrm.BB_ConfirmClick(Sender: TObject);
    begin
       MaterielSelectFrm.Close;  //关闭材料选择窗口
       MaterielSelectFrm.ModalResult := mrOk; //表示用户确定选择的材料
       DM.AQ_Materiel.Active:=false;
    end;
    
    procedure TMaterielSelectFrm.BB_CancelClick(Sender: TObject);
    begin
       MaterielSelectFrm.Close;  //关闭材料选择窗口
       MaterielSelectFrm.ModalResult := mrCancel; //表示用户确定选择的材料
       DM.AQ_Materiel.Active:=false;
    end;
    
    procedure TMaterielSelectFrm.DBGrid1CellClick(Column: TColumn);
    begin
       M_Name:=DM.AQ_Materiel['Materiel_Name'];
       M_ID:=DM.AQ_Materiel['Materiel_ID'];
       M_Standard:=DM.AQ_Materiel['Materiel_Standard'];
       M_Unit:=DM.AQ_Materiel['Materiel_Unit'];
       M_Pirce:=DM.AQ_Materiel['Materiel_Pirce'];
    end;
    
    procedure TMaterielSelectFrm.TreeView1DblClick(Sender: TObject);
    begin
        with DM.AQ_Materiel do
         begin
          close;
          SQL.Clear;
          SQL.Add('Select * from Materiel where Materiel_Class='+''''+TreeView1.Selected.Text+'''');
          open;
         end;
    end;
    
    end.