untframedpt.pas

来自「是分布式粮库程序,是采用Delphi实现的」· PAS 代码 · 共 50 行

unit UntframeDpt;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Mask, DBCtrls;

type
  TFrameDpt = class(TFrame)
    lblDepcode: TLabel;
    lblDptName: TLabel;
    lblupDptmaneger: TLabel;
    lblDptmaneger: TLabel;
    stcDepcode: TStaticText;
    dedtDptName: TDBEdit;
    tblDpt: TTable;
    dsDpt: TDataSource;
    lblupDptName: TLabel;
    stcupDptName: TStaticText;
    cbxupDptmaneger: TComboBox;
    stcDptManeger: TStaticText;
    procedure cbxDptmanegerChange(Sender: TObject);
    procedure dedtDptNameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation
 uses UntDptEmp;
{$R *.DFM}

procedure TFrameDpt.cbxDptmanegerChange(Sender: TObject);
var
  sDptManeger:string;
  iNum:integer;
begin

end;

procedure TFrameDpt.dedtDptNameChange(Sender: TObject);
begin
  if frmDptEmp.bAdd or frmDptEmp.bEdit then
    frmDptEmp.TreeView1.Selected.Text:=dedtDptName.Text;
end;

end.