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;
    ShowForm: TAction;
    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);
    procedure ShowFormExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

procedure TNewProductForm.FirstExecute(Sender: TObject);
begin
    NewPR.First;
end;

procedure TNewProductForm.PriorExecute(Sender: TObject);
begin
    NewPR.Prior;
end;

procedure TNewProductForm.NextExecute(Sender: TObject);
begin
    NewPR.Next;
end;

procedure TNewProductForm.LastExecute(Sender: TObject);
begin
    NewPR.Last;
end;

procedure TNewProductForm.AddExecute(Sender: TObject);
begin
    BtnNew.Enabled        := False ;
    BtnEdit.Enabled       := False ;
    BtnDelete.Enabled     := False ;
    BtnFirst.Enabled      := False ;
    BtnPrior.Enabled      := False ;
    BtnNext.Enabled       := False ;
    BtnLast.Enabled       := False ;
    BtnReturn.Enabled     := False ;
    BtnTransact.Enabled   := False ;
    BtnSubmission.Enabled := False ;
    BtnSave.Enabled       := True ;
    BtnRefresh.Enabled    := True ;
    sChange:= 'New';

    GB_00.Enabled := True ;
    GB_01.Enabled := True ;

    GB_02.Visible := False ;
    GB_03.Visible := False ;
    GB_04.Visible := False ;
    GB_05.Visible := False ;

    DE_dDate.Date := Now();
    Create_CBB.Text := UserCode;

    Type_CBB.Text       := '';
    Label_CBB.Text      := '';
    Number_TE.Text      := '';
    UnitGroup_CBB.Text  := '';
    Unit_CBB.Text       := '';
    CupType_CBB.Text    := '';
    BowlType_CBB.Text   := '';
    SeasonType_CBB.Text := '';
    ImageType_CBB.Text  := '';
    Size_CCB.Text       := '';
    Color_CCB.Text      := '';
    ProductMemo_TE.Text := '';
    Vendor_CBB.Text     := '';
    DMakerQty_TE.Text   :='' ;
    ReportPrice_TE.Text := '';
    Person_CBB.Text     := '';
end;

procedure TNewProductForm.EditExecute(Sender: TObject);
begin
    BtnNew.Enabled        := False ;
    BtnEdit.Enabled       := False ;
    BtnDelete.Enabled     := False ;
    BtnFirst.Enabled      := False ;
    BtnPrior.Enabled      := False ;
    BtnNext.Enabled       := False ;
    BtnLast.Enabled       := False ;
    BtnReturn.Enabled     := False ;
    BtnTransact.Enabled   := False ;
    BtnSubmission.Enabled := False ;
    BtnSave.Enabled       := True ;
    BtnRefresh.Enabled    := True ;
    sChange:= 'Edit';
end;

procedure TNewProductForm.TransactExecute(Sender: TObject);
begin
    BtnNew.Enabled        := False ;
    BtnEdit.Enabled       := False ;
    BtnDelete.Enabled     := False ;
    BtnFirst.Enabled      := False ;
    BtnPrior.Enabled      := False ;
    BtnNext.Enabled       := False ;
    BtnLast.Enabled       := False ;
    BtnReturn.Enabled     := False ;
    BtnTransact.Enabled   := False ;
    BtnSubmission.Enabled := False ;
    BtnSave.Enabled       := True ;
    BtnRefresh.Enabled    := True ;
    sChange:= 'Tran';
    // 读入引进颜色资料
    SQL.Close;
    SQL.CommandText := 'SELECT cValue FROM UserDefine WHERE (cID = ''20'') AND cValue IN ('''+ Color_CCB.text + ''') ORDER BY cValue' ;
    SQL.Open ;
    LoadColor_CCB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        LoadColor_CCB.Properties.Items.AddCheckItem(SQL.Fields[0].AsString,SQL.Fields[0].AsString);
        SQL.next;
    End;
end;

procedure TNewProductForm.SaveExecute(Sender: TObject);
Var
  sNO,sID: String;
begin
    BtnNew.Enabled        := True ;
    BtnEdit.Enabled       := True ;
    BtnDelete.Enabled     := True ;