custmangaeunit.pas

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

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.