newproductunit.~pas

批发商品管理系统 目前我正在潜心研究

unit NewProductUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxPC, cxControls, RzPanel, RzButton, ImgList, ExtCtrls, DB,
  ADODB, ActnList, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
  cxGroupBox, cxContainer, cxEdit, cxLabel, cxGraphics, cxCheckComboBox,
  cxMemo, cxCheckBox, cxLookupEdit, cxDBLookupEdit, cxDBExtLookupComboBox,
  cxDBEdit, cxDBLookupComboBox, cxDBCheckComboBox, Grids, DBGrids,
  cxButtonEdit, cxSpinEdit, StdCtrls, Mask, DBCtrls;

type
  TNewProductForm = class(TForm)
    MainPC: TcxPageControl;
    MainTS: TcxTabSheet;
    Toolbar: TRzToolbar;
    BtnNew: TRzToolButton;
    RzSpacer1: TRzSpacer;
    BtnFirst: TRzToolButton;
    BtnPrior: TRzToolButton;
    BtnNext: TRzToolButton;
    BtnLast: TRzToolButton;
    BtnEdit: TRzToolButton;
    BtnSave: TRzToolButton;
    BtnDelete: TRzToolButton;
    BtnRefresh: TRzToolButton;
    RzSpacer2: TRzSpacer;
    TranList: TActionList;
    Query: TAction;
    Add: TAction;
    Edit: TAction;
    Save: TAction;
    Refresh: TAction;
    Delete: TAction;
    First: TAction;
    Prior: TAction;
    Next: TAction;
    Last: TAction;
    Transact: TAction;
    BtnQuery: TRzToolButton;
    ImageList: TImageList;
    Label_Main: TcxLabel;
    GB_01: TcxGroupBox;
    Type_Label: TcxLabel;
    Size_Label: TcxLabel;
    Number_Label: TcxLabel;
    Label_Label: TcxLabel;
    UnitGroup_Label: TcxLabel;
    Color_Label: TcxLabel;
    Unit_Label: TcxLabel;
    Color_CCB: TcxCheckComboBox;
    Size_CCB: TcxCheckComboBox;
    Number_TE: TcxTextEdit;
    ProductMemo_Label: TcxLabel;
    ProductMemo_TE: TcxTextEdit;
    GB_02: TcxGroupBox;
    Agree_Label: TcxLabel;
    LabelNO_Label: TcxLabel;
    ChangeLabel_Label: TcxLabel;
    LoadColor_Label: TcxLabel;
    LoadColor_CCB: TcxCheckComboBox;
    ChangeLabel_CBB: TcxComboBox;
    cxLabel24: TcxLabel;
    Agree_CB: TcxCheckBox;
    LabelPrice_Label: TcxLabel;
    LoadPrice_Label: TcxLabel;
    SalePrice_Label: TcxLabel;
    AreaPrice_Label: TcxLabel;
    AreaPrice_TE: TcxTextEdit;
    LastPrice_Label: TcxLabel;
    LastPrice_TE: TcxTextEdit;
    PlanInputDate_Label: TcxLabel;
    FirstSupplyQty_Label: TcxLabel;
    FirstSupplyQty_TE: TcxTextEdit;
    Evaluate_Memo: TcxMemo;
    LabelPrice_TE: TcxTextEdit;
    LoadPrice_TE: TcxTextEdit;
    SalePrice_TE: TcxTextEdit;
    GB_03: TcxGroupBox;
    Approve_Label: TcxLabel;
    Approve_CB: TcxCheckBox;
    Approve_Memo: TcxMemo;
    GB_00: TcxGroupBox;
    Code_Label: TcxLabel;
    Label_dDate: TcxLabel;
    DE_dDate: TcxDateEdit;
    Label_Create: TcxLabel;
    Create_CBB: TcxComboBox;
    GB_05: TcxGroupBox;
    GB_04: TcxGroupBox;
    InputDate_Label: TcxLabel;
    InputPrice_Label: TcxLabel;
    InputPrice_TE: TcxTextEdit;
    SQL: TADODataSet;
    Vendor_Label: TcxLabel;
    Vendor_CBB: TcxComboBox;
    DMakerQty_Label: TcxLabel;
    DMakerQty_TE: TcxTextEdit;
    ReportPrice_Label: TcxLabel;
    Person_Label: TcxLabel;
    Person_CBB: TcxComboBox;
    CupType_Label: TcxLabel;
    SeasonType_Label: TcxLabel;
    ImageType_Label: TcxLabel;
    ReturnText_Label: TcxLabel;
    ReturnText_TE: TcxTextEdit;
    Type_CBB: TcxComboBox;
    Label_CBB: TcxComboBox;
    UnitGroup_CBB: TcxComboBox;
    Unit_CBB: TcxComboBox;
    CupType_CBB: TcxComboBox;
    SeasonType_CBB: TcxComboBox;
    BowlType_CBB: TcxComboBox;
    ImageType_CBB: TcxComboBox;
    ReportPrice_TE: TcxTextEdit;
    BowlType_Label: TcxLabel;
    CodeText_Label: TcxLabel;
    LabelNO_TE: TcxTextEdit;
    PlanInputDate_DE: TcxDateEdit;
    BtnSubmission: TRzToolButton;
    InputDate_DE: TcxDateEdit;
    BtnReturn: TRzToolButton;
    RzToolbar1: TRzToolbar;
    AlsoPriceList: TRzToolButton;
    AlsoTypeList: TRzToolButton;
    VendorSeasonReturn: TRzToolButton;
    _Spacer01: TRzSpacer;
    _Spacer02: TRzSpacer;
    _Spacer03: TRzSpacer;
    VendorSaleProductList: TRzToolButton;
    BtnTransact: TRzToolButton;
    SaleType_Label: TcxLabel;
    SaleType_CBB: TcxComboBox;
    PlanCusType_CCB: TcxCheckComboBox;
    ControlMode_Label: TcxLabel;
    ControlMode_CBB: TcxComboBox;
    SaleArea_CB: TcxCheckBox;
    cxLabel3: TcxLabel;
    PlanCustQty_SE: TcxSpinEdit;
    RzSpacer3: TRzSpacer;
    BtnInsertImage: TRzToolButton;
    Return: TAction;
    Submission: TAction;
    tSQL: TADOQuery;
    NewPR: TADOQuery;
    Agree: TAction;
    LoadUnit: TAction;
    LoadMakeQty: TAction;
    sFlowID: TDBEdit;
    DS_NewPR: TDataSource;
    sCourseNO: TDBEdit;
    NewPRID: TAutoIncField;
    NewPRDocumentNO: TWideStringField;
    NewPRdDate: TDateTimeField;
    NewPRPerson: TWideStringField;
    NewPRCourseNO: TIntegerField;
    ExeSQL: TADOCommand;
    procedure FormCreate(Sender: TObject);
    procedure FirstExecute(Sender: TObject);
    procedure PriorExecute(Sender: TObject);
    procedure NextExecute(Sender: TObject);
    procedure LastExecute(Sender: TObject);
    procedure AddExecute(Sender: TObject);
    procedure EditExecute(Sender: TObject);
    procedure TransactExecute(Sender: TObject);
    procedure SaveExecute(Sender: TObject);
    procedure RefreshExecute(Sender: TObject);
    procedure AgreeExecute(Sender: TObject);
    procedure LoadUnitExecute(Sender: TObject);
    procedure LoadMakeQtyExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewProductForm: TNewProductForm;
  sChange,sSQLText: String;
implementation
uses
  DataModule;
{$R *.dfm}

procedure TNewProductForm.FormCreate(Sender: TObject);
begin
    GB_00.Style.BorderStyle := ebsNone ;
    // 读入类别资料
    SQL.Close;
    SQL.CommandText := 'SELECT cInvCCode + '' - '' + cInvCName AS 名称 FROM InventoryClass WHERE (cInvCCode LIKE N''10%'') AND ({ fn LENGTH(cInvCCode) } = 4) ORDER BY cInvCCode';
    SQL.Open ;
    Type_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Type_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

   // 读入品牌资料
    SQL.Close;
    SQL.CommandText := 'SELECT DISTINCT RIGHT(LEFT(cInvCode, 5), 3) + '' - '' + cLabel AS 品牌,cLabel, cInvDefine6 FROM Inventory ORDER BY cLabel,cInvDefine6 DESC';
    SQL.Open ;
    Label_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Label_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入单位组资料
    SQL.Close;
    SQL.CommandText := 'SELECT cGroupCode + '' - '' + cGroupName AS 单位组 FROM ComputationGroup ORDER BY cGroupName' ;
    SQL.Open ;
    UnitGroup_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        UnitGroup_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入尺码资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''21'') ORDER BY cValue' ;
    SQL.Open ;
    Size_CCB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Size_CCB.Properties.Items.AddCheckItem(SQL.Fields[0].AsString,SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入颜色资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''20'') ORDER BY cValue' ;
    SQL.Open ;
    Color_CCB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Color_CCB.Properties.Items.AddCheckItem(SQL.Fields[0].AsString,SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入杯形资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''56'') ORDER BY cValue' ;
    SQL.Open ;
    CupType_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        CupType_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入碗形资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''52'') ORDER BY cValue' ;
    SQL.Open ;
    BowlType_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        BowlType_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入季节资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''57'') ORDER BY cValue' ;
    SQL.Open ;
    SeasonType_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        SeasonType_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入面花描述资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''53'') ORDER BY cValue' ;
    SQL.Open ;
    ImageType_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        ImageType_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入供应商资料
    SQL.Close;
    SQL.CommandText := 'SELECT cVenCode + '' - '' + cVenAbbName + '' ---- '' + CASE WHEN iGradeABC = 0 THEN ''A'' ELSE (CASE WHEN iGradeABC = 1 THEN ''B'' ELSE (CASE WHEN iGradeABC = 2 THEN ''C'' ELSE ''D'' END) END) END  AS 供应商 FROM Vendor WHERE (cVenCode LIKE ''C%'')' ;
    SQL.Open ;
    Vendor_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Vendor_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

    // 读入职员资料
    SQL.Close;
    SQL.CommandText := 'SELECT cPsn_Num + '' - '' + cPsn_Name AS 人员, cDept_num FROM hr_hi_person WHERE (rPersonType = ''10'') AND (cDept_num = ''03'')' ;