newproductunit.~pas

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

    SQL.Open ;
    Create_CBB.Properties.Items.Clear;
    Person_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Create_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        Person_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  WHERE cInvDefine6 = ''自有品牌'' ORDER BY cLabel,cInvDefine6 DESC';
    SQL.Open ;
    ChangeLabel_CBB.Properties.Items.Clear;
    ChangeLabel_CBB.Properties.Items.Add('不改标');
    While Not SQL.Eof do
    Begin
        ChangeLabel_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;

   // 读入客户类别资料
    SQL.Close;
    SQL.CommandText := 'SELECT cCusRankCode AS 客户类别 FROM CustomerRank ORDER BY cCusRankMemo';
    SQL.Open ;
    PlanCusType_CCB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        PlanCusType_CCB.Properties.Items.AddCheckItem(SQL.Fields[0].AsString,SQL.Fields[0].AsString);
        SQL.next;
    End;

    NewPR.Open;
    NewPR.Last;
    CodeText_Label.Caption := NewPR.Fields[1].AsString;
    DE_dDate.Date          := NewPR.Fields[2].AsDateTime;
    Create_CBB.Text        := NewPR.Fields[3].AsString;
end;

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 ;
    BtnFirst.Enabled      := True ;
    BtnPrior.Enabled      := True ;
    BtnNext.Enabled       := True ;
    BtnLast.Enabled       := True ;
    BtnReturn.Enabled     := True ;
    BtnTransact.Enabled   := True ;
    BtnSubmission.Enabled := True ;
    BtnSave.Enabled       := False ;
    BtnRefresh.Enabled    := False ;
    IF sChange = 'New' Then
    Begin
        tSQL.Close;
        tSQL.SQL.Clear;
        tSQL.SQL.Add('SELECT TOP 1 tDocumentData.DocumentNO FROM tNewProductRequisition INNER JOIN tDocumentData ON tNewProductRequisition.ID = tDocumentData.ID ');
        tSQL.SQL.Add('WHERE (tDocumentData.dDate >= '''+ FormatDatetime('YYYY-MM-',Now())+'01' +''')');
        tSQL.SQL.Add('AND (tDocumentData.dDate < +'''+ FormatDatetime('YYYY-MM-DD',Now()+1) +''')');
        tSQL.SQL.Add('ORDER BY tDocumentData.ID DESC');
        tSQL.Open;

        IF tSQL.RecordCount = 0 Then sNO := '00001'
        Else Begin
            sNO := IntToStr(StrToInt(Copy(tSQL.Fields[0].asString,7,5))+1);
            While length(sNO) < 5 do
            Begin
                sNO := '0' +  sNO;
            End;
        End;
        sNO := 'NR' + FormatDatetime('YYMM',Now()) + sNO;

        IF  (Type_CBB.Text       = '') OR
            (Label_CBB.Text      = '') OR
            (Number_TE.Text      = '') OR
            (UnitGroup_CBB.Text  = '') OR
            (Unit_CBB.Text       = '') OR
            (CupType_CBB.Text    = '') OR
            (BowlType_CBB.Text   = '') OR
            (SeasonType_CBB.Text = '') OR
            (ImageType_CBB.Text  = '') OR
            (Size_CCB.Text       = '') OR
            (Color_CCB.Text      = '') OR
            (ProductMemo_TE.Text = '') OR
            (Vendor_CBB.Text     = '') OR
            (DMakerQty_TE.Text   = '') OR
            (ReportPrice_TE.Text = '') OR
            (Person_CBB.Text     = '') Then
        Begin
            Showmessage('资料填写不完整,请重新输入');
            Exit ;
        End;

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

        ExeSQL.CommandText := 'INSERT INTO tDocumentData ' +
                                  '(FlowNO, DocumentNO, dDate, Person) ' +
                              'VALUES (' +
                                      ''+ IntToStr(FlowNO) + ','+
                                      ''''+ sNO +''', '+
                                      ''''+ FormatDatetime('yyyy-mm-dd hh:mm:ss',DE_dDate.Date) +''',' +
                                      ''''+ Create_CBB.Text +'''' +
                                      ')';
        ExeSQL.Execute ;

        tSQL.Close;
        tSQL.SQL.Clear;
        tSQL.SQL.Add('SELECT DocumentNO FROM tDocumentData  ');
        tSQL.SQL.Add('WHERE DocumentNO = '''+ sNO +''')');
        tSQL.Open;

        IF tSQL.RecordCount = 1 Then
        sID := tSQL.Fields[0].asString
        Else Begin
        ShowMessage ('新增记录失败!');
        Exit;
        End;

{        ExeSQL.CommandText :=
            'EXECUTE NewPR_Add '  +
            ''  + sID + ','+
            ''''+ sNO + ''','+
            ''''+ Copy(Type_CBB.Text,1,4) +''', '+
            ''''+ Copy(Label_CBB.Text,Strpos('-',Label_CBB.Text)+3,Length(Label_CBB.Text)-Strpos('-',Label_CBB.Text)+2) +''',' +
            ''''+ Copy(Type_CBB.Text,1,4) +''',' +
            ''''+ Copy(Type_CBB.Text,1,4) +''',' +
            ''''+ Copy(Type_CBB.Text,1,4) +''',' +
            ''''+ Copy(Type_CBB.Text,1,4) +''',' +
            ''''+ Create_CBB.Text +'''' ;
}
    NewPR.Open;
    NewPR.Last;
    CodeText_Label.Caption := NewPR.Fields[1].AsString ;
    DE_dDate.Date          := NewPR.Fields[2].AsDateTime ;
    Create_CBB.Text        := NewPR.Fields[3].AsString ;
    End;

end;

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

end;

procedure TNewProductForm.AgreeExecute(Sender: TObject);
begin
    IF Agree_CB.Checked = True Then
    Agree_CB.Caption := '同意引进'
    Else Agree_CB.Caption := '不引进';
end;

procedure TNewProductForm.LoadUnitExecute(Sender: TObject);
begin
    SQL.Close;
    SQL.CommandText := 'SELECT cComunitCode + '' - '' + cComUnitName AS 单位 FROM ComputationUnit WHERE (cGroupCode = '''+ Copy(UnitGroup_CBB.Text,1,2) +''')' ;
    SQL.Open ;
    Unit_CBB.Properties.Items.Clear;
    While Not SQL.Eof do
    Begin
        Unit_CBB.Properties.Items.Add(SQL.Fields[0].AsString);
        SQL.next;
    End;
end;

procedure TNewProductForm.LoadMakeQtyExecute(Sender: TObject);
begin
    SQL.Close;
    SQL.CommandText := 'SELECT cVenDefine1 AS 日产量,cVenPPerson+ '' - '' + cPsn_Name AS 跟单员 FROM Vendor,hr_hi_person WHERE Vendor.cVenPPerson = hr_hi_person.cPsn_Num AND (cVenCode = '''+ Copy(Vendor_CBB.Text,1,5) +''')' ;
    SQL.Open ;
    DMakerQty_TE.Text := SQL.Fields[0].AsString ;
    Person_CBB.Text := SQL.Fields[1].AsString ;
end;

end.