productselect.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit ProductSelect;

interface

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

type
  TProductSelectFrm = class(TForm)
    GroupBox1: TGroupBox;
    TV_Product: TTreeView;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    Panel2: TPanel;
    ProductSG: TStringGrid;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure TV_ProductDblClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SelectNo:integer;
  end;

var
  ProductSelectFrm: TProductSelectFrm;

implementation
  uses DataModule;
{$R *.dfm}

procedure TProductSelectFrm.FormCreate(Sender: TObject);
begin
  with  ProductSG do
  begin
    ProductSG.ColCount:=6;
    cells[0,0]:='工号';
    cells[1,0]:='产品编号';
    cells[2,0]:='产品名称';
    cells[3,0]:='单位';
    cells[4,0]:='计划数量';
    cells[5,0]:='完成数量';
  end;
  SelectNo:=0;

end;

procedure TProductSelectFrm.TV_ProductDblClick(Sender: TObject);
begin
  with  DM.AQ_Prodcut do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from Product where Product_Class='+''''+TV_Product.Selected.Text+'''');
      open;
    end;
end;

procedure TProductSelectFrm.DBGrid1CellClick(Column: TColumn);
begin
   SelectNo:=SelectNo+1;
   with  ProductSG do
    begin
      ProductSG.RowCount:=SelectNo+1;
      cells[0,SelectNo]:=DM.AQ_Prodcut['Produce_No'];
      cells[1,SelectNo]:=DM.AQ_Prodcut['Product_ID'];
      cells[2,SelectNo]:=DM.AQ_Prodcut['Product_Name'];
      cells[3,SelectNo]:=DM.AQ_Prodcut['Product_Unit'];
      cells[4,SelectNo]:=DM.AQ_Prodcut['Scheme_Num'];
      cells[5,SelectNo]:=DM.AQ_Prodcut['Complete_Num'];
      end;
   Label1.Caption:='选择的记录：'+inttostr(SelectNo)+' 条';

end;


procedure TProductSelectFrm.BitBtn1Click(Sender: TObject);
var
  i,j:integer;
begin
  for i:=0 to 4 do
   for j:=1 to SelectNo do
     ProductSG.Cells[i,j]:='';
     ProductSG.RowCount:=1;
   SelectNo:=0;
end;

procedure TProductSelectFrm.BB_ConfirmClick(Sender: TObject);
begin
   ProductSelectFrm.Close;
   ProductSelectFrm.ModalResult:=mrOK;
end;

procedure TProductSelectFrm.BB_CancelClick(Sender: TObject);
begin
   ProductSelectFrm.Close;
   ProductSelectFrm.ModalResult:=mrCancel;
end;

end.