custmangaeunit.pas

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

unit CustMangaeUnit;

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, cxGraphics, cxTextEdit, cxMaskEdit,
  cxDropDownEdit;

type
  TFrmCustManage = class(TForm)
    RzPanel1: TRzPanel;
    RzGroupBox1: TRzGroupBox;
    RB_WX: 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;
    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;
    Fqlist: TcxComboBox;
    cxCheckBox4: TcxCheckBox;
    cxCheckBox5: TcxCheckBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCustManage: TFrmCustManage;

implementation

uses PublicUnit, DataUnit, MainUnit, LoginUnit;

{$R *.dfm}

procedure TFrmCustManage.FormCreate(Sender: TObject);
begin
    Sqltext:='SELECT DISTINCT  P.cPersonName+ '' - ''+ P.cPersonCode FROM Customer INNER JOIN Person AS P ON Customer.cCusPPerson = P.cPersonCode'
    Fqlist.Properties.Items := getList(Sqltext);

end;

end.