oreBill.FieldByName('commodity').AsString, 'Commodity');
            EditSysUser.Text := GetNameByID(DataSetStoreBill.FieldByName('sysuser').AsString, 'SysUser');
            EditDepot.Text := GetNameByID(DataSetStoreBill.FieldByName('depot').AsString, 'Depot');
            EditProvider.Text := GetNameByID(DataSetStoreBill.FieldByName('provider').AsString, 'Provider');
            EditDeliver.Text := GetNameByID(DataSetStoreBill.FieldByName('deliver').AsString, 'Deliver');
    end;
    
    procedure TFormConfirmStoreBill.FormShow(Sender: TObject);
    begin
            if not(DataSetStoreBill.CommandText = '') then
                    DataSetStoreBill.Requery;
    end;
    
    procedure TFormConfirmStoreBill.BtnConfirmClick(Sender: TObject);
    begin
            CmdConfirm.CommandText :=
                    'UPDATE StoreBill SET confirmed = 1 where time = '''
                    + EditTime.Text +
                    '''';
            try
                    CmdConfirm.Execute;
            except
                    ShowMessage('确认进货单失败！');
                    exit;
            end;
            ShowMessage('确认进货单成功！');
            DataSetStoreBill.Requery;
            BtnConfirm.Enabled := False;
    end;
    
    
    end.