roleedfrm.pas

医药连锁经营管理系统源码

unit RoleEdFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, RzEdit, RzButton, ExtCtrls, RzPanel, DB, uGlobal,
  RzDBEdit, ceGlobal;

type
  TFmRoleEd = class(TForm)
    RzPanel1: TRzPanel;
    BtnOK: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    edPrName: TRzDBEdit;
    edRemark: TRzDBEdit;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  FmRoleEd: TFmRoleEd;

implementation

{$R *.DFM}

procedure TFmRoleEd.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
end;

end.