uinventory.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 63 行

unit uInventory;

interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub3, dxExEdtr, ImgList, ActnList, Menus, DB, ComCtrls,
  ToolWin, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, StdCtrls,
  wwdbdatetimepicker, dxEditor, dxEdLib, dxDBTLCl, dxGrClms;

type
  TfmInventory = class(Tfmpub3)
    DBGrid1StockId: TdxDBGridMaskColumn;
    DBGrid1StockName: TdxDBGridMaskColumn;
    DBGrid1CategoryId: TdxDBGridMaskColumn;
    DBGrid1CategoryName: TdxDBGridMaskColumn;
    DBGrid1PartNo: TdxDBGridMaskColumn;
    DBGrid1PartNameE: TdxDBGridMaskColumn;
    DBGrid1PartNameC: TdxDBGridMaskColumn;
    DBGrid1Model: TdxDBGridMaskColumn;
    DBGrid1Color: TdxDBGridMaskColumn;
    DBGrid1UnitId: TdxDBGridMaskColumn;
    DBGrid1UnitName: TdxDBGridMaskColumn;
    DBGrid1Price: TdxDBGridMaskColumn;
    DBGrid1Qty: TdxDBGridMaskColumn;
    DBGrid1Locked: TdxDBGridCheckColumn;
    procedure FormCreate(Sender: TObject);
    procedure ARefreshExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmInventory: TfmInventory;

implementation

uses udminv, SherryLib;

{$R *.dfm}

procedure TfmInventory.FormCreate(Sender: TObject);
begin
  inherited;
  OpenData(DataSource1);
  Sherrylib.ShowGrid(DBGrid1,'Price',6);
end;

procedure TfmInventory.ARefreshExecute(Sender: TObject);
begin
  Try
    ShowWait;
    DMINV.CInventory.Close;
    DMINV.CInventory.Open;
  Finally
    HideWait;
  End;    
end;

end.