rkd.pas

物资管理系统 包括屋子入库出库管理

unit RKD;

interface

uses
  Windows, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, DB, WZGLCommon, ADODB, ExtCtrls, Grids, DBGrids;

type
  TRKDForm = class(TForm)
    adoqWZZD: TADOQuery;
    pnlRight: TPanel;
    pnlToolBar: TPanel;
    btOk: TButton;
    btClose: TButton;
    dbWZZD: TDBGrid;
    pnlLeft: TPanel;
    tvLb: TTreeView;
    pnlWzlb: TPanel;
    Splitter: TSplitter;
    edtRkSl: TEdit;
    lblRksl: TLabel;
    adoqWzlb: TADOQuery;
    pnlWzzd: TPanel;
    dsWzzd: TDataSource;
    procedure btOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure tvLbChange(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    function CheckData: Boolean;
  public
    { Public declarations }
    FWZRec: TWZMX;
  end;

implementation

{$R *.dfm}

procedure TRKDForm.btOkClick(Sender: TObject);
begin
  if adoqWzzd.FieldByName('BM').AsString = '' then
  begin
    Showmessage('请选择物资！');
    Exit;
  end
  else if CheckData then
  begin
    FWZRec.BM := adoqWzzd.FieldByName('BM').AsString;
    FWZRec.RKSL := StrToFloat(edtRKSL.Text);
    ModalResult := mrOK;
  end;
end;

function TRKDForm.CheckData: Boolean;
begin
  Result := False;
  if not IsNumeric(edtRKSL.Text) or (strToFloat(edtRKSL.Text) <= 0) then
  begin
    Showmessage('数量必须大于0！');
    edtRKSL.SetFocus;
    Exit;
  end;
  Result := True;
end;

procedure TRKDForm.FormCreate(Sender: TObject);
begin
  inherited;
  // 初始化类别Treeview
  with adoqWzlb do
  begin
    Connection := AdoWzgl;
    SQL.Text := 'Select * From WZLB Order By ID';
    Open;
  end;
  FillTreeView(tvLb, adoqWzlb, 'ID', 'PID', 'LBMC');

  with adoqWzzd do
  begin
    Connection := AdoWzgl;
    Sql.Text := 'select * from WZZD';
    Open;
  end;
end;

procedure TRKDForm.FormDestroy(Sender: TObject);
begin
  if adoqWzlb.Active then adoqWzlb.Close;
  if adoqWzzd.Active then adoqWzzd.Close;
end;

procedure TRKDForm.tvLbChange(Sender: TObject; Node: TTreeNode);
begin
  // 切换节点，刷新物资字典表格
  with adoqWzzd do
  begin
    Filtered := False;
    Filter := 'ID = ' + IntToStr(Integer(tvLb.Selected.Data));
    Filtered := True;
  end;
end;

end.