pz_spdhdic.pas

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

unit PZ_SpdhDic;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  TFrmPZ_SpdhDic = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function SetWork(ADBGrid: TDBGrid): Boolean;
implementation

uses main;

{$R *.dfm}

function SetWork(ADBGrid: TDBGrid): Boolean;
var
  FrmPZ_SpdhDic: TFrmPZ_SpdhDic;
begin
  Result := False;
  Application.CreateForm(TFrmPZ_SpdhDic, FrmPZ_SpdhDic);
  with FrmPZ_SpdhDic do
  begin
    if ShowModal = mrOK then
    begin
      ADBGrid.SelectedField.ReadOnly := False;
      ADBGrid.SelectedField.AsVariant := ADOQuery1.Fields[1].AsVariant;
      ADBGrid.SelectedField.ReadOnly := True;
      ADOQuery1.Close;
      Result := True;
    end;
    Free;
  end;
end;

procedure TFrmPZ_SpdhDic.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //ADOQuery1.Close;
end;

procedure TFrmPZ_SpdhDic.FormShow(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='
      + FrmMain.DbUser + ';Password=' + FrmMain.DbPass + ';Initial Catalog=' +
      FrmMain.DbName + ';Data Source=' + FrmMain.ServerName;
    Sql.Add('Select * ');
    Sql.Add('From Dic_商品类别号1');
    try
      Open;
    except
      ShowMessage('商品类别的字典尚未建立，请在配置信息中创建字典！');
      Exit;
    end;
  end;
end;

procedure TFrmPZ_SpdhDic.DBGrid1DblClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

end.