uvadgpstockmedicine.pas

来自「一整套的源代码」· PAS 代码 · 共 141 行

unit UVADGPStockMedicine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UMADPstockmedicine, UCloneDataModel, UPrimaryDataModel, Factory,
  cxDBLookupComboBox, UAdapterDataGridView, UView, MyTools, StdCtrls, Mask,
  RzEdit, RzLabel, RzButton, cxCurrencyEdit;

type
  TVADGPstockmedicine = class(TAdapterDataGridView)
    RzPanel3: TRzPanel;
    UnitsID: TDataSource;
    EditPinYin: TRzEdit;
    RzLabel1: TRzLabel;
    RzButton1: TRzButton;
    GridDBTableViewPSM_PSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewPSM_SAMOUNT: TcxGridDBColumn;
    GridDBTableViewPSM_AMOUNT: TcxGridDBColumn;
    GridDBTableViewPSM_CREATED: TcxGridDBColumn;
    GridDBTableViewPSM_UPDATED: TcxGridDBColumn;
    GridDBTableViewMINAMOUNT: TcxGridDBColumn;
    GridDBTableViewM_PACKAMOUNT: TcxGridDBColumn;
    GridDBTableViewPSM_PRICE: TcxGridDBColumn;
    GridDBTableViewPSM_MEDICINESTOCKID: TcxGridDBColumn;
    GridDBTableViewMS_MEDICINESTOCKID: TcxGridDBColumn;
    GridDBTableViewMS_CREATED: TcxGridDBColumn;
    GridDBTableViewMS_UPDATED: TcxGridDBColumn;
    GridDBTableViewMS_AMOUNT: TcxGridDBColumn;
    GridDBTableViewMS_MEDICINEID: TcxGridDBColumn;
    GridDBTableViewM_MEDICINEID: TcxGridDBColumn;
    GridDBTableViewM_CODE: TcxGridDBColumn;
    GridDBTableViewM_TOPQTY: TcxGridDBColumn;
    GridDBTableViewM_DOWNQTY: TcxGridDBColumn;
    GridDBTableViewM_MEMO: TcxGridDBColumn;
    GridDBTableViewM_ALAIS: TcxGridDBColumn;
    GridDBTableViewM_MODEL: TcxGridDBColumn;
    GridDBTableViewM_PINYIN: TcxGridDBColumn;
    GridDBTableViewM_CAPTION: TcxGridDBColumn;
    GridDBTableViewM_DOSEID: TcxGridDBColumn;
    GridDBTableViewM_UNITSID: TcxGridDBColumn;
    GridDBTableViewM_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewM_MEDICINECATALOGID: TcxGridDBColumn;
    GridDBTableViewM_MINUNITSID: TcxGridDBColumn;
    GridDBTableViewD_CAPTION: TcxGridDBColumn;
    GridDBTableViewU_CAPTION: TcxGridDBColumn;
    GridDBTableViewMU_CAPTION: TcxGridDBColumn;
    GridDBTableViewUM_CAPTION: TcxGridDBColumn;
    GridDBTableViewMC_CAPTION: TcxGridDBColumn;
    RzButton2: TRzButton;
    procedure RzButton1Click(Sender: TObject);
    procedure RzButton2Click(Sender: TObject);
    procedure FrameClick(Sender: TObject);
  private
    UnitsIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
    destructor Destroy; override;
  end;

implementation

uses UMADMedicineStock, UMADUnits;

{$R *.dfm}

{ TVADGPstockmedicine }

procedure TVADGPstockmedicine.Append(Parameters: IParameters);
begin
//
end;

procedure TVADGPstockmedicine.Delete(Parameters: IParameters);
begin
//
end;

function TVADGPstockmedicine.GetCaption: string;
begin
  Result := '药房库存';
end;

procedure TVADGPstockmedicine.InitModel;
begin
  inherited;
  UnitsIDModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  UnitsID.DataSet := UnitsIDModel.GetDataSet;
end;

procedure TVADGPstockmedicine.Save(Parameters: IParameters);
begin
//
end;

procedure TVADGPstockmedicine.RzButton1Click(Sender: TObject);
begin
  inherited;
  EditPinYin.Text := Trim(UpperCase(EditPinYin.Text));
  if EditPinYin.Text = '' then Exit;
  GetDataModel.GetDataSet.First;
  if not GetDataModel.GetDataSet.Locate('M_PinYin', EditPinYin.Text, [loPartialKey]) then
    ShowMessage('没有找到');
end;

procedure TVADGPstockmedicine.RzButton2Click(Sender: TObject);
begin
  inherited;
  EditPinYin.Text := Trim(UpperCase(EditPinYin.Text));
  if EditPinYin.Text = '' then
    GetDataModel.GetDataSet.Filtered := False;
  GetDataModel.GetDataSet.Filter := 'M_PINYIN LIKE ''' + EditPinYin.Text + '%''';
  GetDataModel.GetDataSet.Filtered := True;
end;

destructor TVADGPstockmedicine.Destroy;
begin
  GetDataModel.GetDataSet.Filtered := False;
  inherited;
end;

procedure TVADGPstockmedicine.FrameClick(Sender: TObject);
begin
  inherited;
  EditPinYin.SetFocus;
end;

end.