frmpopinip.~pas

二次开发模块 一、条形码的批量生成

unit FrmPopIniP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmRootAddP, StdCtrls, Buttons, ExtCtrls, DB, ADODB, dxExEdtr,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  TFrmPopIni = class(TFrmRootAdd)
    Panel3: TPanel;
    Panel4: TPanel;
    QryRD: TADOQuery;
    dsQryRD: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid2: TdxDBGrid;
    QryPur: TADOQuery;
    dsQryPur: TDataSource;
    dxDBGrid1cPTCode: TdxDBGridMaskColumn;
    dxDBGrid1cPTName: TdxDBGridMaskColumn;
    dxDBGrid2cRdCode: TdxDBGridMaskColumn;
    dxDBGrid2cRdName: TdxDBGridMaskColumn;
    dxDBGrid3: TdxDBGrid;
    QryWH: TADOQuery;
    dsQryWH: TDataSource;
    dxDBGrid3cWhcode: TdxDBGridMaskColumn;
    dxDBGrid3cWhName: TdxDBGridMaskColumn;
    QryRdOut: TADOQuery;
    dsQryRdOut: TDataSource;
    Panel5: TPanel;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxDBGrid3DblClick(Sender: TObject);
    procedure dxDBGrid2DblClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure dxDBGrid4DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPopIni: TFrmPopIni;

implementation

uses DataDmP;

{$R *.dfm}

procedure TFrmPopIni.FormShow(Sender: TObject);
begin
//  inherited;
  FrmPopIni.Width:=313;
{  if FrmPopIni.Caption='采购类型' then
    begin
      Panel3.Visible:=False;
      Panel4.Visible:=False;
//      Panel2.Align:=alClient;
      Panel2.Visible:=True;
      Panel5.Visible:=False;
    end;
  if FrmPopIni.Caption='入库类别' then
    begin
      Panel2.Visible:=False;
      Panel3.Visible:=True;
      Panel4.Visible:=False;
      Panel5.Visible:=False;
//      Panel3.Align:=alClient;
    end;
  if FrmPopIni.Caption='出库类别' then
    begin
      Panel2.Visible:=False;
      Panel3.Visible:=False;
      Panel4.Visible:=False;
      Panel5.Visible:=True;
//      Panel3.Align:=alClient;
    end;
}
end;

procedure TFrmPopIni.FormCreate(Sender: TObject);
begin
 // inherited;

end;

procedure TFrmPopIni.dxDBGrid3DblClick(Sender: TObject);
begin
  inherited;
  (GetParentForm(dxDBGrid3) as TdxPopupEditForm).ClosePopup(True);
end;

procedure TFrmPopIni.dxDBGrid2DblClick(Sender: TObject);
begin
  inherited;
  (GetParentForm(dxDBGrid2) as TdxPopupEditForm).ClosePopup(True);
end;

procedure TFrmPopIni.dxDBGrid1DblClick(Sender: TObject);
begin
  inherited;
  (GetParentForm(dxDBGrid1) as TdxPopupEditForm).ClosePopup(True);
end;

procedure TFrmPopIni.dxDBGrid4DblClick(Sender: TObject);
begin
  inherited;
  (GetParentForm(dxDBGrid4) as TdxPopupEditForm).ClosePopup(True);
end;

end.