rc_functionresourcemanage.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit RC_FunctionResourceManage;

{
代码单元名称：通用权限分配工具功能资源管理窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ImgList, ExtCtrls, ComCtrls, ToolWin, db, dbtables,
  Grids, DBGrids, ADOdb;

type
  TRC_DfmFunctionResouirceManage = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    FunctionResourceNameDBEdit: TDBEdit;
    FunctionResourceDescribeDBEdit: TDBEdit;
    CloseToolButton: TToolButton;
    ToolButton2: TToolButton;
    Imagilist1: TImageList;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CloseToolButtonClick(Sender: TObject);
  private
    { Private declarations }
    function OpenFunctionResourceQuery: Boolean;
  public
    { Public declarations }
  end;

implementation

uses RC_DataModule1;

{$R *.DFM}

{ TDfmFunctionResouirceManage }

//窗体--------------------------------------------------------------------------

procedure TRC_DfmFunctionResouirceManage.FormShow(Sender: TObject);
begin
  OpenFunctionResourceQuery;
  FunctionResourceNameDBEdit.DataSource :=
    RC_DfmDataModule1.FunctionResourceDataSource;
  FunctionResourceNameDBEdit.DataField := 'FunResName';
  FunctionResourceDescribeDBEdit.DataSource :=
    RC_DfmDataModule1.FunctionResourceDataSource;
  FunctionResourceDescribeDBEdit.DataField := 'FunResDsc';
  DBNavigator1.DataSource := RC_DfmDataModule1.FunctionResourceDataSource;
  //汉化字段名称----------------------------------------------------------------
  RC_DfmDataModule1.DFunctionResourceQuery.First;
  while not RC_DfmDataModule1.DFunctionResourceQuery.Eof do
  begin
    RC_DfmDataModule1.FunctionResourceQuery.FieldByName(Trim(RC_DfmDataModule1.DFunctionResourceQuery.FieldByName('FieldNameE').AsString)).DisplayLabel :=
      RC_DfmDataModule1.DFunctionResourceQuery.FieldByName('FieldNameC').AsString;
    RC_DfmDataModule1.DFunctionResourceQuery.Next;
  end;
  RC_DfmDataModule1.FunctionResourceQuery.Fields[0].Visible := False;
  DBGrid1.DataSource := RC_DfmDataModule1.FunctionResourceDataSource;
end;

procedure TRC_DfmFunctionResouirceManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
end;

//按钮--------------------------------------------------------------------------

procedure TRC_DfmFunctionResouirceManage.CloseToolButtonClick(Sender: TObject);
begin
  Close;
end;

function TRC_DfmFunctionResouirceManage.OpenFunctionResourceQuery: Boolean;
begin
  //打开功能资源表----------------------------------------------------------------
  with RC_DfmDataModule1.FunctionResourceQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select * From TFunctionResource');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Exit;
    end;
  end;
  RC_DfmDataModule1.FunctionResourceQuery.FieldByName('FunResId').Alignment :=
    taLeftJustify;
  with RC_DfmDataModule1.DFunctionResourceQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select * From DFunctionResource');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Exit;
    end;
  end;
end;

end.