manufacture.pas

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

unit Manufacture;

interface

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

type
  TManufactureFrm = class(TForm)
    ManufactureFrmDBG: TDBGrid;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
    procedure ManufactureFrmDBGCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
    M_ID,M_Name:string;
  end;

var
  ManufactureFrm: TManufactureFrm;

implementation
  uses DataModule;
{$R *.dfm}

procedure TManufactureFrm.BB_ConfirmClick(Sender: TObject);
begin
  ManufactureFrm.Close;
  ManufactureFrm.ModalResult:=mrOK;
end;

procedure TManufactureFrm.BB_CancelClick(Sender: TObject);
begin
  ManufactureFrm.Close;
  ManufactureFrm.ModalResult:=mrCancel;
end;

procedure TManufactureFrm.ManufactureFrmDBGCellClick(Column: TColumn);
begin
  M_ID:=DM.AT_Manufacture['Manufacture_ID'];
  M_Name:=DM.AT_Manufacture['Manufacture_Name'];
end;

end.