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.