pricetranunit.pas

来自「用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 」· PAS 代码 · 共 67 行

unit PriceTranUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, ExtCtrls, RzPanel, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  cxControls, cxContainer, cxCheckListBox, RzTabs, cxEdit, cxCheckBox,
  cxListBox, StdCtrls, cxRadioGroup;

type
  TFrmCustManage = class(TForm)
    RzPanel1: TRzPanel;
    RzGroupBox1: TRzGroupBox;
    RB_WX: TcxRadioButton;
    RB_NK: TcxRadioButton;
    RB_HK: TcxRadioButton;
    RzGroupBox2: TRzGroupBox;
    ListProd: TcxListBox;
    RzGroupBox3: TRzGroupBox;
    CB_NP: TcxCheckBox;
    CB_LA: TcxCheckBox;
    CB_LC: TcxCheckBox;
    CB_LB: TcxCheckBox;
    CB_ZG: TcxCheckBox;
    cxCheckBox1: TcxCheckBox;
    cxCheckBox2: TcxCheckBox;
    cxCheckBox3: TcxCheckBox;
    cxCheckBox4: TcxCheckBox;
    cxCheckBox5: TcxCheckBox;
    cxCheckBox6: TcxCheckBox;
    cxCheckBox7: TcxCheckBox;
    cxCheckBox8: TcxCheckBox;
    cxCheckBox9: TcxCheckBox;
    cxCheckBox10: TcxCheckBox;
    cxCheckBox11: TcxCheckBox;
    RzPanel2: TRzPanel;
    Panel1: TPanel;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    RzPageControl2: TRzPageControl;
    RzTabSheet1: TRzTabSheet;
    AllowSaleCustList: TcxCheckListBox;
    RzTabSheet2: TRzTabSheet;
    ReturnCustlist: TcxCheckListBox;
    TabSheet3: TRzTabSheet;
    ForbidSaleCustList: TcxCheckListBox;
    TabSheet4: TRzTabSheet;
    NoSaleCustList: TcxCheckListBox;
    TabSheet5: TRzTabSheet;
    cxCheckListBox2: TcxCheckListBox;
    Panel2: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCustManage: TFrmCustManage;

implementation

{$R *.dfm}

end.